unit u_sys_parameters;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  DB, ADODB, bsSkinCtrls, StdCtrls, Grids, DBGrids, bsSkinBoxCtrls,ComObj,
  bsdbctrls, dxDBTLCl, dxGrClms, Mask, cxControls, cxContainer, cxEdit,
  cxRadioGroup;

type
  Tfrm_sys_parameters = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    dxDBGrid1: TdxDBGrid;
    t_sys_parameters: TADOQuery;
    t_sys_parameters1: TDataSource;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinNotebook1: TbsSkinNotebook;
    t_sys_parameters_value: TADOQuery;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
    Label2: TLabel;
    Label3: TLabel;
    bsSkinGroupBox3: TbsSkinGroupBox;
    Label4: TLabel;
    Edit1: TEdit;
    bsSkinGroupBox4: TbsSkinGroupBox;
    Label5: TLabel;
    Edit2: TEdit;
    bsSkinGroupBox5: TbsSkinGroupBox;
    Label6: TLabel;
    Edit3: TEdit;
    bsSkinGroupBox6: TbsSkinGroupBox;
    Label7: TLabel;
    Edit4: TEdit;
    Label10: TLabel;
    Edit7: TEdit;
    Label11: TLabel;
    Edit8: TEdit;
    Label12: TLabel;
    Edit9: TEdit;
    bsSkinGroupBox7: TbsSkinGroupBox;
    bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
    bsSkinGroupBox8: TbsSkinGroupBox;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinGroupBox9: TbsSkinGroupBox;
    bsSkinCheckRadioBox9: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox10: TbsSkinCheckRadioBox;
    bsSkinGroupBox10: TbsSkinGroupBox;
    bsSkinCheckRadioBox11: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox12: TbsSkinCheckRadioBox;
    bsSkinGroupBox11: TbsSkinGroupBox;
    Edit14: TEdit;
    Label1: TLabel;
    Edit15: TEdit;
    Label17: TLabel;
    Edit16: TEdit;
    Label18: TLabel;
    Edit17: TEdit;
    Label19: TLabel;
    Edit18: TEdit;
    bsSkinGroupBox12: TbsSkinGroupBox;
    bsSkinCheckRadioBox13: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox14: TbsSkinCheckRadioBox;
    bsSkinGroupBox13: TbsSkinGroupBox;
    bsSkinCheckRadioBox15: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox16: TbsSkinCheckRadioBox;
    Label20: TLabel;
    Edit19: TEdit;
    bsSkinGroupBox15: TbsSkinGroupBox;
    bsSkinCheckRadioBox19: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox20: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox21: TbsSkinCheckRadioBox;
    bsSkinGroupBox16: TbsSkinGroupBox;
    bsSkinCheckRadioBox22: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox23: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox24: TbsSkinCheckRadioBox;
    Label21: TLabel;
    Edit20: TEdit;
    bsSkinGroupBox17: TbsSkinGroupBox;
    Label22: TLabel;
    bsSkinCheckRadioBox25: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox26: TbsSkinCheckRadioBox;
    bsSkinGroupBox18: TbsSkinGroupBox;
    bsSkinCheckRadioBox27: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox28: TbsSkinCheckRadioBox;
    bsSkinGroupBox19: TbsSkinGroupBox;
    bsSkinCheckRadioBox29: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox30: TbsSkinCheckRadioBox;
    bsSkinGroupBox20: TbsSkinGroupBox;
    bsSkinGroupBox21: TbsSkinGroupBox;
    bsSkinCheckRadioBox31: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox32: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox33: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox34: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox35: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox36: TbsSkinCheckRadioBox;
    bsSkinGroupBox24: TbsSkinGroupBox;
    bsSkinPanel3: TbsSkinPanel;
    Label8: TLabel;
    Edit5: TEdit;
    Label9: TLabel;
    Edit6: TEdit;
    Label13: TLabel;
    Edit10: TEdit;
    Label14: TLabel;
    Edit11: TEdit;
    Label16: TLabel;
    Edit12: TEdit;
    Label15: TLabel;
    Edit13: TEdit;
    Label23: TLabel;
    Edit21: TEdit;
    Label24: TLabel;
    Edit22: TEdit;
    Label25: TLabel;
    Edit23: TEdit;
    bsSkinCheckRadioBox41: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox42: TbsSkinCheckRadioBox;
    bsSkinGroupBox25: TbsSkinGroupBox;
    bsSkinCheckRadioBox43: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox44: TbsSkinCheckRadioBox;
    bsSkinGroupBox26: TbsSkinGroupBox;
    bsSkinCheckRadioBox45: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox46: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox47: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox48: TbsSkinCheckRadioBox;
    bsSkinGroupBox27: TbsSkinGroupBox;
    bsSkinCheckRadioBox49: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox50: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox51: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox52: TbsSkinCheckRadioBox;
    bsSkinGroupBox28: TbsSkinGroupBox;
    bsSkinGroupBox29: TbsSkinGroupBox;
    bsSkinCheckRadioBox53: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox54: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox55: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox56: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox57: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox58: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox59: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox60: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox61: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox62: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox63: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox64: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox65: TbsSkinCheckRadioBox;
    bsSkinGroupBox30: TbsSkinGroupBox;
    bsSkinCheckRadioBox66: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox67: TbsSkinCheckRadioBox;
    bsSkinGroupBox31: TbsSkinGroupBox;
    bsSkinCheckRadioBox68: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox69: TbsSkinCheckRadioBox;
    bsSkinGroupBox32: TbsSkinGroupBox;
    bsSkinCheckRadioBox70: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox71: TbsSkinCheckRadioBox;
    bsSkinGroupBox33: TbsSkinGroupBox;
    p_update: TADOStoredProc;
    bsSkinGroupBox34: TbsSkinGroupBox;
    bsSkinCheckRadioBox72: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox73: TbsSkinCheckRadioBox;
    bsSkinGroupBox35: TbsSkinGroupBox;
    Edit31: TEdit;
    lbl1: TLabel;
    Label36: TLabel;
    Edit32: TEdit;
    Label37: TLabel;
    Edit33: TEdit;
    Label38: TLabel;
    Edit34: TEdit;
    Label39: TLabel;
    Edit35: TEdit;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinGroupBox23: TbsSkinGroupBox;
    bsSkinCheckRadioBox39: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox40: TbsSkinCheckRadioBox;
    bsSkinGroupBox14: TbsSkinGroupBox;
    bsSkinCheckRadioBox17: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox18: TbsSkinCheckRadioBox;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinGroupBox37: TbsSkinGroupBox;
    Label41: TLabel;
    bsSkinCheckRadioBox74: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox75: TbsSkinCheckRadioBox;
    Edit36: TEdit;
    bsSkinGroupBox36: TbsSkinGroupBox;
    bsSkinCheckRadioBox76: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox77: TbsSkinCheckRadioBox;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinGroupBox38: TbsSkinGroupBox;
    bsSkinCheckRadioBox78: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox79: TbsSkinCheckRadioBox;
    bsSkinGroupBox39: TbsSkinGroupBox;
    bsSkinCheckRadioBox80: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox81: TbsSkinCheckRadioBox;
    bsSkinPanel8: TbsSkinPanel;
    bsSkinGroupBox22: TbsSkinGroupBox;
    bsSkinCheckRadioBox37: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox38: TbsSkinCheckRadioBox;
    bsSkinGroupBox40: TbsSkinGroupBox;
    bsSkinCheckRadioBox82: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox83: TbsSkinCheckRadioBox;
    bsSkinGroupBox41: TbsSkinGroupBox;
    bsSkinGroupBox42: TbsSkinGroupBox;
    bsSkinGroupBox43: TbsSkinGroupBox;
    bsSkinGroupBox44: TbsSkinGroupBox;
    seachknot: TbsSkinCheckRadioBox;
    seachkall: TbsSkinCheckRadioBox;
    seaichknot: TbsSkinCheckRadioBox;
    seaichkall: TbsSkinCheckRadioBox;
    airchknot: TbsSkinCheckRadioBox;
    airchkall: TbsSkinCheckRadioBox;
    airichknot: TbsSkinCheckRadioBox;
    airichkall: TbsSkinCheckRadioBox;
    seachkpart: TbsSkinCheckRadioBox;
    bsSkinButton1: TbsSkinButton;
    seaichkpart: TbsSkinCheckRadioBox;
    bsSkinButton3: TbsSkinButton;
    airchkpart: TbsSkinCheckRadioBox;
    bsSkinButton4: TbsSkinButton;
    airichkpart: TbsSkinCheckRadioBox;
    bsSkinButton6: TbsSkinButton;
    bsSkinGroupBox45: TbsSkinGroupBox;
    bsSkinGroupBox46: TbsSkinGroupBox;
    bsSkinGroupBox47: TbsSkinGroupBox;
    bsSkinGroupBox48: TbsSkinGroupBox;
    fseachknot: TbsSkinCheckRadioBox;
    fseachkall: TbsSkinCheckRadioBox;
    fseachkpart: TbsSkinCheckRadioBox;
    fseaichknot: TbsSkinCheckRadioBox;
    fseaichkall: TbsSkinCheckRadioBox;
    fseaichkpart: TbsSkinCheckRadioBox;
    fairchknot: TbsSkinCheckRadioBox;
    fairchkall: TbsSkinCheckRadioBox;
    fairchkpart: TbsSkinCheckRadioBox;
    fairichknot: TbsSkinCheckRadioBox;
    fairichkall: TbsSkinCheckRadioBox;
    fairichkpart: TbsSkinCheckRadioBox;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinGroupBox49: TbsSkinGroupBox;
    bsSkinCheckRadioBox84: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox85: TbsSkinCheckRadioBox;
    bsSkinGroupBox50: TbsSkinGroupBox;
    bsSkinCheckRadioBox86: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox87: TbsSkinCheckRadioBox;
    bsSkinGroupBox51: TbsSkinGroupBox;
    bsSkinCheckRadioBox88: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox89: TbsSkinCheckRadioBox;
    Label40: TLabel;
    Label42: TLabel;
    Edit37: TEdit;
    Edit38: TEdit;
    bsSkinGroupBox52: TbsSkinGroupBox;
    bsSkinCheckRadioBox90: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox91: TbsSkinCheckRadioBox;
    Label43: TLabel;
    Memo1: TMemo;
    Label44: TLabel;
    Memo2: TMemo;
    Memo3: TMemo;
    Label45: TLabel;
    Label46: TLabel;
    Memo4: TMemo;
    bsSkinCheckRadioBox92: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox93: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox94: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox95: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox96: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox97: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox98: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox99: TbsSkinCheckRadioBox;
    Label47: TLabel;
    Memo5: TMemo;
    Memo6: TMemo;
    Label48: TLabel;
    Label49: TLabel;
    Memo7: TMemo;
    Memo8: TMemo;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Edit39: TEdit;
    Edit40: TEdit;
    Edit41: TEdit;
    bsSkinGroupBox53: TbsSkinGroupBox;
    bsSkinCheckRadioBox100: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox101: TbsSkinCheckRadioBox;
    bsSkinGroupBox54: TbsSkinGroupBox;
    bsSkinCheckRadioBox102: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox103: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox104: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox105: TbsSkinCheckRadioBox;
    bsSkinRadioGroup1: TbsSkinRadioGroup;
    bsSkinRadioGroup2: TbsSkinRadioGroup;
    bsSkinPanel9: TbsSkinPanel;
    bsSkinGroupBox55: TbsSkinGroupBox;
    bsSkinRadioGroup3: TbsSkinRadioGroup;
    bsSkinRadioGroup4: TbsSkinRadioGroup;
    bsSkinGroupBox56: TbsSkinGroupBox;
    bsSkinCheckRadioBox106: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox107: TbsSkinCheckRadioBox;
    bsSkinGroupBox57: TbsSkinGroupBox;
    Edit25: TEdit;
    Label28: TLabel;
    Label29: TLabel;
    bsSkinGroupBox58: TbsSkinGroupBox;
    bsSkinGroupBox59: TbsSkinGroupBox;
    bsSkinCheckRadioBox108: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox109: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox110: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox111: TbsSkinCheckRadioBox;
    bsSkinGroupBox60: TbsSkinGroupBox;
    bsSkinCheckRadioBox112: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox113: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox114: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox115: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox116: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox117: TbsSkinCheckRadioBox;
    Label30: TLabel;
    Edit26: TEdit;
    Label31: TLabel;
    Label26: TLabel;
    Edit24: TEdit;
    Label27: TLabel;
    bsSkinCheckRadioBox118: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox119: TbsSkinCheckRadioBox;
    bsSkinGroupBox61: TbsSkinGroupBox;
    bsSkinCheckRadioBox120: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox121: TbsSkinCheckRadioBox;
    bsSkinPanel10: TbsSkinPanel;
    bsSkinGroupBox62: TbsSkinGroupBox;
    bsSkinCheckRadioBox122: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox123: TbsSkinCheckRadioBox;
    bsSkinGroupBox63: TbsSkinGroupBox;
    bsSkinCheckRadioBox124: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox125: TbsSkinCheckRadioBox;
    bsSkinGroupBox64: TbsSkinGroupBox;
    bsSkinCheckRadioBox126: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox127: TbsSkinCheckRadioBox;
    bsSkinGroupBox65: TbsSkinGroupBox;
    bsSkinCheckRadioBox128: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox129: TbsSkinCheckRadioBox;
    bsSkinGroupBox66: TbsSkinGroupBox;
    bsSkinCheckRadioBox130: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox131: TbsSkinCheckRadioBox;
    bsSkinRadioGroup5: TbsSkinRadioGroup;
    bsSkinGroupBox67: TbsSkinGroupBox;
    Memo9: TMemo;
    bsSkinGroupBox68: TbsSkinGroupBox;
    bsSkinCheckRadioBox132: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox133: TbsSkinCheckRadioBox;
    bsSkinRadioGroup6: TbsSkinRadioGroup;
    t_sys_parametersPA_ID: TIntegerField;
    t_sys_parametersDSDesigner: TStringField;
    t_sys_parametersDSDesigner2: TStringField;
    dxDBGrid1Column2: TdxDBGridColumn;
    bsSkinGroupBox69: TbsSkinGroupBox;
    bsSkinMemo1: TbsSkinMemo;
    bsSkinGroupBox70: TbsSkinGroupBox;
    bsSkinCheckRadioBox134: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox135: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox136: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox137: TbsSkinCheckRadioBox;
    bsSkinGroupBox71: TbsSkinGroupBox;
    bsSkinCheckRadioBox138: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox139: TbsSkinCheckRadioBox;
    bsSkinPanel11: TbsSkinPanel;
    bsSkinGroupBox72: TbsSkinGroupBox;
    Label32: TLabel;
    Edit27: TEdit;
    Label33: TLabel;
    Edit28: TEdit;
    Label34: TLabel;
    Edit29: TEdit;
    Label35: TLabel;
    Edit30: TEdit;
    Label54: TLabel;
    Edit42: TEdit;
    Label55: TLabel;
    Edit43: TEdit;
    Edit44: TEdit;
    Label56: TLabel;
    Label57: TLabel;
    Edit45: TEdit;
    bsSkinGroupBox73: TbsSkinGroupBox;
    bsSkinCheckRadioBox140: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox141: TbsSkinCheckRadioBox;
    bsSkinGroupBox74: TbsSkinGroupBox;
    Label58: TLabel;
    Edit46: TEdit;
    bsSkinGroupBox75: TbsSkinGroupBox;
    bsSkinCheckRadioBox142: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox143: TbsSkinCheckRadioBox;
    bsSkinGroupBox76: TbsSkinGroupBox;
    bsSkinCheckRadioBox144: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox145: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox146: TbsSkinCheckRadioBox;
    SYS_EDI: TADOQuery;
    SYS_EDI1: TDataSource;
    bsSkinGroupBox77: TbsSkinGroupBox;
    dxDBGrid3: TdxDBGrid;
    dxDBGrid3Column1: TdxDBGridColumn;
    dxDBGrid3Column2: TdxDBGridPickColumn;
    bsSkinGroupBox78: TbsSkinGroupBox;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinLabel2: TbsSkinLabel;
    Edit47: TEdit;
    Edit48: TEdit;
    bsSkinGroupBox79: TbsSkinGroupBox;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinLabel4: TbsSkinLabel;
    Edit49: TEdit;
    Edit50: TEdit;
    bsSkinLabel5: TbsSkinLabel;
    Edit51: TEdit;
    bsSkinGroupBox80: TbsSkinGroupBox;
    bsSkinLabel6: TbsSkinLabel;
    bsSkinLabel7: TbsSkinLabel;
    Edit52: TEdit;
    Edit53: TEdit;
    bsSkinLabel8: TbsSkinLabel;
    Edit54: TEdit;
    bsSkinGroupBox81: TbsSkinGroupBox;
    bsSkinLabel9: TbsSkinLabel;
    bsSkinLabel10: TbsSkinLabel;
    Edit55: TEdit;
    Edit56: TEdit;
    bsSkinLabel11: TbsSkinLabel;
    Edit57: TEdit;
    bsSkinGroupBox82: TbsSkinGroupBox;
    bsSkinCheckRadioBox147: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox148: TbsSkinCheckRadioBox;
    bsSkinGroupBox84: TbsSkinGroupBox;
    bsSkinCheckRadioBox151: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox152: TbsSkinCheckRadioBox;
    bsSkinGroupBox85: TbsSkinGroupBox;
    bsSkinCheckRadioBox153: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox154: TbsSkinCheckRadioBox;
    p_op_gain: TADOStoredProc;
    bsSkinCheckRadioBox155: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox156: TbsSkinCheckRadioBox;
    bsSkinGroupBox86: TbsSkinGroupBox;
    bsSkinCheckRadioBox157: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox158: TbsSkinCheckRadioBox;
    bsSkinGroupBox87: TbsSkinGroupBox;
    Memo10: TMemo;
    bsSkinGroupBox88: TbsSkinGroupBox;
    bsSkinCheckRadioBox159: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox160: TbsSkinCheckRadioBox;
    Edit58: TEdit;
    Label59: TLabel;
    bsSkinGroupBox89: TbsSkinGroupBox;
    bsSkinCheckRadioBox161: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox162: TbsSkinCheckRadioBox;
    bsSkinGroupBox90: TbsSkinGroupBox;
    bsSkinCheckRadioBox163: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox164: TbsSkinCheckRadioBox;
    bsSkinGroupBox91: TbsSkinGroupBox;
    bsSkinCheckRadioBox165: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox166: TbsSkinCheckRadioBox;
    bsSkinGroupBox92: TbsSkinGroupBox;
    bsSkinCheckRadioBox167: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox168: TbsSkinCheckRadioBox;
    bsSkinGroupBox93: TbsSkinGroupBox;
    bsSkinGroupBox94: TbsSkinGroupBox;
    bsSkinLabel12: TbsSkinLabel;
    bsSkinLabel13: TbsSkinLabel;
    Edit59: TEdit;
    Edit60: TEdit;
    bsSkinLabel14: TbsSkinLabel;
    Edit61: TEdit;
    bsSkinLabel15: TbsSkinLabel;
    bsSkinLabel16: TbsSkinLabel;
    Edit62: TEdit;
    Edit63: TEdit;
    bsSkinLabel17: TbsSkinLabel;
    Edit64: TEdit;
    bsSkinGroupBox95: TbsSkinGroupBox;
    bsSkinCheckRadioBox169: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox170: TbsSkinCheckRadioBox;
    bsSkinGroupBox96: TbsSkinGroupBox;
    Edit65: TEdit;
    bsSkinGroupBox97: TbsSkinGroupBox;
    bsSkinCheckRadioBox171: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox172: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox173: TbsSkinCheckRadioBox;
    bsSkinGroupBox98: TbsSkinGroupBox;
    bsSkinLabel18: TbsSkinLabel;
    Edit66: TEdit;
    bsSkinGroupBox99: TbsSkinGroupBox;
    bsSkinCheckRadioBox174: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox175: TbsSkinCheckRadioBox;
    Memo11: TMemo;
    bsSkinGroupBox100: TbsSkinGroupBox;
    bsSkinGroupBox101: TbsSkinGroupBox;
    railwaychknot: TbsSkinCheckRadioBox;
    railwaychkall: TbsSkinCheckRadioBox;
    railwaychkpart: TbsSkinCheckRadioBox;
    bsSkinButton12: TbsSkinButton;
    frailwaychknot: TbsSkinCheckRadioBox;
    frailwaychkall: TbsSkinCheckRadioBox;
    frailwaychkpart: TbsSkinCheckRadioBox;
    bsSkinButton13: TbsSkinButton;
    Label60: TLabel;
    Edit67: TEdit;
    bsSkinPanel12: TbsSkinPanel;
    bsSkinGroupBox83: TbsSkinGroupBox;
    bsSkinCheckRadioBox149: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox150: TbsSkinCheckRadioBox;
    bsSkinGroupBox102: TbsSkinGroupBox;
    bsSkinCheckRadioBox176: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox177: TbsSkinCheckRadioBox;
    bsSkinGroupBox103: TbsSkinGroupBox;
    Edit68: TEdit;
    bsSkinGroupBox104: TbsSkinGroupBox;
    Label61: TLabel;
    Edit69: TEdit;
    Label62: TLabel;
    Edit70: TEdit;
    Label63: TLabel;
    Edit71: TEdit;
    Label64: TLabel;
    Edit72: TEdit;
    sys_country_code: TADOQuery;
    bsSkinPanel13: TbsSkinPanel;
    dxDBGrid2: TdxDBGrid;
    bsSkinPanel14: TbsSkinPanel;
    bsSkinButton14: TbsSkinButton;
    OpenDialog1: TOpenDialog;
    t_sys_country_code: TADOQuery;
    DataSource1: TDataSource;
    dxDBGrid2Column2: TdxDBGridMaskColumn;
    dxDBGrid2Column3: TdxDBGridMaskColumn;
    dxDBGrid2Column4: TdxDBGridMaskColumn;
    dxDBGrid2Column5: TdxDBGridMaskColumn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure t_sys_parametersAfterScroll(DataSet: TDataSet);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure save_true_false(i:integer;Box1:TbsSkinCheckRadioBox);
    procedure save_text(i:integer;str:string);
    procedure load_text(i:integer;Ed:TEdit);
    procedure load_memo(i:integer;me:TMemo);
    procedure load_true_false(i:integer;Box1:TbsSkinCheckRadioBox;Box2:TbsSkinCheckRadioBox=nil);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure bsSkinButton14Click(Sender: TObject);
  private
    { Private declarations }
    function getchkstyle(i:integer):string ;

  public
    { Public declarations }
  end;

var
  frm_sys_parameters: Tfrm_sys_parameters;
   //xls 文件名
    XlsFileNameStr:string;

implementation

uses u_main, u_data_share, u_open_operation, my_sys_function, my_sys_chat,
  u_op_chkpart,u_sys_progress;

{$R *.dfm}

procedure Tfrm_sys_parameters.load_true_false(i:integer;Box1:TbsSkinCheckRadioBox;Box2:TbsSkinCheckRadioBox=nil);
begin
  t_sys_parameters_value.Locate('VL_ID',i,[]);
  if strtobool(t_sys_parameters_value.FieldByName('参数值').asstring) then
    Box1.Checked:=true
  else begin
    Box1.Checked:=false;
    if box2<>nil then
      box2.Checked:=true;
  end;
end;

procedure Tfrm_sys_parameters.load_text(i:integer;Ed:TEdit);
begin
  t_sys_parameters_value.Locate('VL_ID',i,[]);
  Ed.text:=t_sys_parameters_value.FieldByName('参数值').asstring;
end;

procedure Tfrm_sys_parameters.save_text(i:integer;str:string);
begin
  if t_sys_parameters_value.Locate('VL_ID',i,[]) then begin
    t_sys_parameters_value.Edit;
    t_sys_parameters_value['参数值']:=str;
    t_sys_parameters_value.post;
  end;
end;

procedure Tfrm_sys_parameters.save_true_false(i:integer;Box1:TbsSkinCheckRadioBox);
begin
  t_sys_parameters_value.Locate('VL_ID',i,[]);
  if Box1.Checked then
  begin
    t_sys_parameters_value.Edit;
    t_sys_parameters_value['参数值']:='true';
    t_sys_parameters_value.post;
  end
  else
  begin
    t_sys_parameters_value.Edit;
    t_sys_parameters_value['参数值']:='false';
    t_sys_parameters_value.post;
  end;
end;

procedure Tfrm_sys_parameters.FormShow(Sender: TObject);
begin
  t_sys_parameters.open;
  t_sys_parameters_value.open;
  bsSkinButton11Click(Sender);
  t_sys_country_code.Open;
end;

procedure Tfrm_sys_parameters.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//  SendMsg_gonggao('55','');
  frm_data_share.t_sys_parameters_value.requery;
  if assigned(frm_open_operation) then
  begin
    if strtobool(get_parameters_value(1,'false'))then
      frm_open_operation.bsSkinSpeedButton15.Visible:=true
    else
      frm_open_operation.bsSkinSpeedButton15.Visible:=false;
  end;
  frm_sys_parameters:=nil;
end;

procedure Tfrm_sys_parameters.t_sys_parametersAfterScroll(
  DataSet: TDataSet);
begin
  bsSkinNotebook1.PageIndex:=0;
end;

procedure Tfrm_sys_parameters.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_sys_parameters.bsSkinButton11Click(Sender: TObject);
var
  i:integer;
begin
  if t_sys_parameters.IsEmpty then
    exit;
  case t_sys_parameters.fieldbyname('PA_ID').asinteger of
    9:
    begin
      bsSkinNotebook1.PageIndex:=1;
      frm_sys_parameters.load_true_false(3,bsSkinCheckRadioBox1,bsSkinCheckRadioBox2);
      frm_sys_parameters.load_true_false(2,bsSkinCheckRadioBox9,bsSkinCheckRadioBox10);
      frm_sys_parameters.load_true_false(146,bsSkinCheckRadioBox116,bsSkinCheckRadioBox117);

      frm_sys_parameters.load_true_false(184,bsSkinCheckRadioBox155,bsSkinCheckRadioBox156);

      frm_sys_parameters.load_true_false(27,bsSkinCheckRadioBox13,bsSkinCheckRadioBox14);
      frm_sys_parameters.load_true_false(120,bsSkinCheckRadioBox92,bsSkinCheckRadioBox93);
      frm_sys_parameters.load_true_false(123,bsSkinCheckRadioBox98,bsSkinCheckRadioBox99);
      frm_sys_parameters.load_true_false(28,bsSkinCheckRadioBox15,bsSkinCheckRadioBox16);
      frm_sys_parameters.load_text(29,Edit19);
      frm_sys_parameters.load_text(37,Edit20);
      frm_sys_parameters.load_true_false(30,bsSkinCheckRadioBox17,bsSkinCheckRadioBox18);
      frm_sys_parameters.load_true_false(38,bsSkinCheckRadioBox27,bsSkinCheckRadioBox28);
      frm_sys_parameters.load_true_false(145,bsSkinCheckRadioBox115,bsSkinCheckRadioBox114);
      frm_sys_parameters.load_true_false(39,bsSkinCheckRadioBox29,bsSkinCheckRadioBox30);
      frm_sys_parameters.load_true_false(122,bsSkinCheckRadioBox96,bsSkinCheckRadioBox97);
      frm_sys_parameters.load_true_false(46,bsSkinCheckRadioBox37,bsSkinCheckRadioBox38);
      frm_sys_parameters.load_true_false(47,bsSkinCheckRadioBox39,bsSkinCheckRadioBox40);
      frm_sys_parameters.load_true_false(81,bsSkinCheckRadioBox74,bsSkinCheckRadioBox75);
      frm_sys_parameters.load_text(82,Edit36);
      frm_sys_parameters.load_true_false(83,bsSkinCheckRadioBox76,bsSkinCheckRadioBox77);
      frm_sys_parameters.load_true_false(84,bsSkinCheckRadioBox78,bsSkinCheckRadioBox79);
      frm_sys_parameters.load_true_false(85,bsSkinCheckRadioBox80,bsSkinCheckRadioBox81);
      frm_sys_parameters.load_true_false(86,bsSkinCheckRadioBox82,bsSkinCheckRadioBox83);
      frm_sys_parameters.load_true_false(150,bsSkinCheckRadioBox122,bsSkinCheckRadioBox123);
      frm_sys_parameters.load_true_false(152,bsSkinCheckRadioBox126,bsSkinCheckRadioBox127);

      frm_sys_parameters.load_true_false(172,bsSkinCheckRadioBox142,bsSkinCheckRadioBox143);
      frm_sys_parameters.load_true_false(190,bsSkinCheckRadioBox161,bsSkinCheckRadioBox162);

      frm_sys_parameters.load_text(197,Edit65);
{
      frm_sys_parameters.load_text(162,Edit27);
      frm_sys_parameters.load_text(163,Edit28);
      frm_sys_parameters.load_text(164,Edit29);
      frm_sys_parameters.load_text(165,Edit30);
      frm_sys_parameters.load_text(166,Edit42);
      frm_sys_parameters.load_text(167,Edit43);
      frm_sys_parameters.load_text(168,Edit44);
      frm_sys_parameters.load_text(169,Edit45);
      frm_sys_parameters.load_text(176,Edit46);
}
      frm_sys_parameters.load_true_false(182,bsSkinCheckRadioBox149,bsSkinCheckRadioBox150);
      frm_sys_parameters.load_true_false(329,bsSkinCheckRadioBox176,bsSkinCheckRadioBox177);

    end;
    10:
    begin
      bsSkinNotebook1.PageIndex:=2;
      frm_sys_parameters.load_true_false(5,bsSkinCheckRadioBox3,bsSkinCheckRadioBox4);
      frm_sys_parameters.load_true_false(6,bsSkinCheckRadioBox5,bsSkinCheckRadioBox6);
      frm_sys_parameters.load_true_false(1,bsSkinCheckRadioBox7,bsSkinCheckRadioBox8);
      frm_sys_parameters.load_text(7,Edit14);
      frm_sys_parameters.load_text(147,Edit26);
      frm_sys_parameters.load_memo(156,memo9);
      frm_sys_parameters.load_memo(305,memo11);
      frm_sys_parameters.load_true_false(87,bsSkinCheckRadioBox147,bsSkinCheckRadioBox148);
      frm_sys_parameters.load_true_false(88,bsSkinCheckRadioBox153,bsSkinCheckRadioBox154);
      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',155,[]);
      bsSkinRadioGroup5.ItemIndex:=strtointdef(frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString,0);
    end;
    11:
    begin
      bsSkinNotebook1.PageIndex:=3;
      frm_sys_parameters.load_text(9,Edit1);
      frm_sys_parameters.load_text(10,Edit2);
      frm_sys_parameters.load_text(11,Edit3);
      frm_sys_parameters.load_true_false(4,bsSkinCheckRadioBox11,bsSkinCheckRadioBox12);
      frm_sys_parameters.load_true_false(188,bsSkinCheckRadioBox159,bsSkinCheckRadioBox160);
      frm_sys_parameters.load_true_false(191,bsSkinCheckRadioBox163,bsSkinCheckRadioBox164);
      frm_sys_parameters.load_true_false(192,bsSkinCheckRadioBox165,bsSkinCheckRadioBox166);
      frm_sys_parameters.load_true_false(194,bsSkinCheckRadioBox167,bsSkinCheckRadioBox168);
    end;
    12:
    begin
      bsSkinNotebook1.PageIndex:=4;
      frm_sys_parameters.load_text(13,Edit4);
    end;
    13:
    begin
      bsSkinNotebook1.PageIndex:=5;
      frm_sys_parameters.load_text(14,Edit5);
      frm_sys_parameters.load_text(16,Edit6);
      frm_sys_parameters.load_text(20,Edit10);
      frm_sys_parameters.load_text(21,Edit11);
      frm_sys_parameters.load_text(23,Edit12);
      frm_sys_parameters.load_text(22,Edit13);
      frm_sys_parameters.load_text(48,Edit21);
      frm_sys_parameters.load_text(49,Edit22);
      frm_sys_parameters.load_text(50,Edit23);
      frm_sys_parameters.load_text(114,Edit37);
      frm_sys_parameters.load_text(113,Edit38);
      frm_sys_parameters.load_memo(116,memo1);
      frm_sys_parameters.load_memo(124,memo5);
      frm_sys_parameters.load_text(1301,Edit71);
      frm_sys_parameters.load_text(1302,Edit72);


      frm_sys_parameters.load_text(312,Edit67);

      frm_sys_parameters.load_true_false(51,bsSkinCheckRadioBox41,bsSkinCheckRadioBox42);
      frm_sys_parameters.load_true_false(52,bsSkinCheckRadioBox43,bsSkinCheckRadioBox44);
      frm_sys_parameters.load_true_false(132,bsSkinCheckRadioBox102,bsSkinCheckRadioBox103);
      frm_sys_parameters.load_true_false(139,bsSkinCheckRadioBox106,bsSkinCheckRadioBox107);
      frm_sys_parameters.load_true_false(157,bsSkinCheckRadioBox132,bsSkinCheckRadioBox133);
      frm_sys_parameters.load_true_false(173,bsSkinCheckRadioBox144,bsSkinCheckRadioBox145);
    end;
    14:
    begin
      bsSkinNotebook1.PageIndex:=6;
      frm_sys_parameters.load_text(17,Edit7);
      frm_sys_parameters.load_memo(117,memo2);
      frm_sys_parameters.load_memo(127,memo8);
    end;
    15:
    begin
      bsSkinNotebook1.PageIndex:=7;
      frm_sys_parameters.load_text(18,Edit8);
      frm_sys_parameters.load_memo(118,memo3);
      frm_sys_parameters.load_memo(126,memo7);
    end;
    16:
    begin
      bsSkinNotebook1.PageIndex:=8;
      frm_sys_parameters.load_text(19,Edit9);
      frm_sys_parameters.load_memo(119,memo4);
      frm_sys_parameters.load_memo(125,memo6);

      frm_sys_parameters.load_text(189,Edit58);

     frm_sys_parameters.load_true_false(196,bsSkinCheckRadioBox169,bsSkinCheckRadioBox170);

    end;
    8:
    begin
      bsSkinNotebook1.PageIndex:=9;
      frm_sys_parameters.load_text(8,Edit15);
      frm_sys_parameters.load_text(24,Edit16);
      frm_sys_parameters.load_text(25,Edit17);
      frm_sys_parameters.load_text(26,Edit18);
    end;
    7:
    begin
      bsSkinNotebook1.PageIndex:=10;
      frm_sys_parameters.load_true_false(31,bsSkinCheckRadioBox19);
      frm_sys_parameters.load_true_false(32,bsSkinCheckRadioBox20);
      frm_sys_parameters.load_true_false(33,bsSkinCheckRadioBox21);
      frm_sys_parameters.load_true_false(34,bsSkinCheckRadioBox22);
      frm_sys_parameters.load_true_false(35,bsSkinCheckRadioBox23);
      frm_sys_parameters.load_true_false(36,bsSkinCheckRadioBox24);
      frm_sys_parameters.load_true_false(40,bsSkinCheckRadioBox31);
      frm_sys_parameters.load_true_false(41,bsSkinCheckRadioBox32);
      frm_sys_parameters.load_true_false(42,bsSkinCheckRadioBox33);
      frm_sys_parameters.load_true_false(43,bsSkinCheckRadioBox34);
      frm_sys_parameters.load_true_false(44,bsSkinCheckRadioBox35);
      frm_sys_parameters.load_true_false(45,bsSkinCheckRadioBox36);
      frm_sys_parameters.load_true_false(57,bsSkinCheckRadioBox61);
      frm_sys_parameters.load_true_false(58,bsSkinCheckRadioBox62);
      frm_sys_parameters.load_true_false(59,bsSkinCheckRadioBox63);
      frm_sys_parameters.load_true_false(60,bsSkinCheckRadioBox64);
      frm_sys_parameters.load_true_false(61,bsSkinCheckRadioBox65);
      frm_sys_parameters.load_text(128,Edit39);
      frm_sys_parameters.load_text(129,Edit40);
      frm_sys_parameters.load_text(130,Edit41);
      frm_sys_parameters.load_true_false(131,bsSkinCheckRadioBox100,bsSkinCheckRadioBox101);
      frm_sys_parameters.load_true_false(151,bsSkinCheckRadioBox124,bsSkinCheckRadioBox125);
      frm_sys_parameters.load_true_false(185,bsSkinCheckRadioBox157,bsSkinCheckRadioBox158);
      frm_sys_parameters.load_true_false(174,bsSkinCheckRadioBox146);
      frm_sys_parameters.load_memo(186,memo10);
    end;
    6:
    begin
      bsSkinNotebook1.PageIndex:=11;
      frm_sys_parameters.load_true_false(12,bsSkinCheckRadioBox25,bsSkinCheckRadioBox26);
      frm_sys_parameters.load_true_false(62,bsSkinCheckRadioBox66,bsSkinCheckRadioBox67);
      frm_sys_parameters.load_true_false(121,bsSkinCheckRadioBox94,bsSkinCheckRadioBox95);

      frm_sys_parameters.load_true_false(63,bsSkinCheckRadioBox68,bsSkinCheckRadioBox69);
      frm_sys_parameters.load_true_false(64,bsSkinCheckRadioBox70,bsSkinCheckRadioBox71);
      frm_sys_parameters.load_true_false(66,bsSkinCheckRadioBox72,bsSkinCheckRadioBox73);
      frm_sys_parameters.load_true_false(110,bsSkinCheckRadioBox84,bsSkinCheckRadioBox85);
      frm_sys_parameters.load_true_false(111,bsSkinCheckRadioBox86,bsSkinCheckRadioBox87);
      frm_sys_parameters.load_true_false(112,bsSkinCheckRadioBox88,bsSkinCheckRadioBox89);
      frm_sys_parameters.load_true_false(115,bsSkinCheckRadioBox90,bsSkinCheckRadioBox91);
      frm_sys_parameters.load_true_false(133,bsSkinCheckRadioBox104,bsSkinCheckRadioBox105);
      frm_sys_parameters.load_true_false(135,bsSkinCheckRadioBox136,bsSkinCheckRadioBox137);
      frm_sys_parameters.load_text(65,Edit24);
      frm_sys_parameters.load_true_false(148,bsSkinCheckRadioBox118,bsSkinCheckRadioBox119);
      frm_sys_parameters.load_true_false(153,bsSkinCheckRadioBox128,bsSkinCheckRadioBox129);

      frm_sys_parameters.load_true_false(183,bsSkinCheckRadioBox151,bsSkinCheckRadioBox152);
      frm_sys_parameters.load_true_false(198,bsSkinCheckRadioBox171,bsSkinCheckRadioBox172);

    end;
    5:
    begin
      bsSkinNotebook1.PageIndex:=12;
      t_sys_parameters_value.Locate('VL_ID',53,[]);
      if t_sys_parameters_value.FieldByName('参数值').asstring='业务编号' then
        bsSkinCheckRadioBox45.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='开船日期' then
        bsSkinCheckRadioBox46.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='委托编号' then
        bsSkinCheckRadioBox48.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='主提单号' then
        bsSkinCheckRadioBox47.Checked:=true;

      t_sys_parameters_value.Locate('VL_ID',54,[]);
      if t_sys_parameters_value.FieldByName('参数值').asstring='业务编号' then
        bsSkinCheckRadioBox49.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='进口日期' then
        bsSkinCheckRadioBox51.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='委托编号' then
        bsSkinCheckRadioBox50.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='主提单号' then
        bsSkinCheckRadioBox52.Checked:=true;

      t_sys_parameters_value.Locate('VL_ID',55,[]);
      if t_sys_parameters_value.FieldByName('参数值').asstring='业务编号' then
        bsSkinCheckRadioBox53.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='一程开航日期' then
        bsSkinCheckRadioBox55.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='委托编号' then
        bsSkinCheckRadioBox54.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='主运单号' then
        bsSkinCheckRadioBox56.Checked:=true;

      t_sys_parameters_value.Locate('VL_ID',56,[]);
      if t_sys_parameters_value.FieldByName('参数值').asstring='业务编号' then
        bsSkinCheckRadioBox57.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='进口日期' then
        bsSkinCheckRadioBox59.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='委托编号' then
        bsSkinCheckRadioBox58.Checked:=true;
      if t_sys_parameters_value.FieldByName('参数值').asstring='主运单号' then
        bsSkinCheckRadioBox60.Checked:=true;
    end;
    17:
    begin
      bsSkinNotebook1.PageIndex:=13;
      frm_sys_parameters.load_text(77,Edit31);
      frm_sys_parameters.load_text(78,Edit32);
      frm_sys_parameters.load_text(79,Edit33);
      frm_sys_parameters.load_text(80,Edit34);
//      frm_sys_parameters.load_text(81,Edit35);
    end;
    18:
    begin
      bsSkinNotebook1.PageIndex:=14;
      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',134,[]);
      for i:=0 to bsSkinRadioGroup1.Items.Count-1 do begin
        if bsSkinRadioGroup1.Items.Strings[i]=Trim(frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString) then
          bsSkinRadioGroup1.ItemIndex:=i;
      end;
      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',136,[]);
      for i:=0 to bsSkinRadioGroup2.Items.Count-1 do begin
        if bsSkinRadioGroup2.Items.Strings[i]=Trim(frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString) then
          bsSkinRadioGroup2.ItemIndex:=i;
      end;

      frm_sys_parameters.load_true_false(149,bsSkinCheckRadioBox120,bsSkinCheckRadioBox121);
      frm_sys_parameters.load_true_false(154,bsSkinCheckRadioBox130,bsSkinCheckRadioBox131);

      frm_sys_parameters.load_memo(159,bsSkinMemo1);

      frm_sys_parameters.load_true_false(160,bsSkinCheckRadioBox134,bsSkinCheckRadioBox135);

      frm_sys_parameters.load_true_false(161,bsSkinCheckRadioBox138,bsSkinCheckRadioBox139);

      frm_sys_parameters.load_true_false(170,bsSkinCheckRadioBox140,bsSkinCheckRadioBox141);

      frm_sys_parameters.load_text(177,Edit47);
      frm_sys_parameters.load_text(178,Edit48);

      frm_sys_parameters.load_text(179,Edit49);
      frm_sys_parameters.load_text(180,Edit50);
      frm_sys_parameters.load_text(181,Edit51);
    end;
    19:
    begin
      bsSkinNotebook1.PageIndex:=15;
      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',137,[]);
      bsSkinRadioGroup3.ItemIndex:=strtointdef(frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString,0);
      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',138,[]);
      bsSkinRadioGroup4.ItemIndex:=strtointdef(frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString,0);
      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',158,[]);
      bsSkinRadioGroup6.ItemIndex:=strtointdef(frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString,0);
      frm_sys_parameters.load_text(140,Edit25);
      frm_sys_parameters.load_true_false(141,bsSkinCheckRadioBox108,bsSkinCheckRadioBox109);
      frm_sys_parameters.load_true_false(142,bsSkinCheckRadioBox110,bsSkinCheckRadioBox111);
      frm_sys_parameters.load_true_false(143,bsSkinCheckRadioBox112,bsSkinCheckRadioBox113);
      frm_sys_parameters.load_true_false(199,bsSkinCheckRadioBox174,bsSkinCheckRadioBox175);
    end;

    1:
    begin
      bsSkinNotebook1.PageIndex:=0;
      seachknot.Checked:=uppercase(getchkstyle(101))='FALSE';       //海运出口应收
      seachkall.Checked:=uppercase(getchkstyle(101))='TRUE';
      seachkpart.Checked:=uppercase(getchkstyle(101))='CHKPART';

      seaichknot.Checked:=uppercase(getchkstyle(102))='FALSE';      //海运进口应收
      seaichkall.Checked:=uppercase(getchkstyle(102))='TRUE';
      seaichkpart.Checked:=uppercase(getchkstyle(102))='CHKPART';

      airchknot.Checked:=uppercase(getchkstyle(103))='FALSE';       //空运出口应收
      airchkall.Checked:=uppercase(getchkstyle(103))='TRUE';
      airchkpart.Checked:=uppercase(getchkstyle(103))='CHKPART';

      airichknot.Checked:=uppercase(getchkstyle(104))='FALSE';
      airichkall.Checked:=uppercase(getchkstyle(104))='TRUE';
      airichkpart.Checked:=uppercase(getchkstyle(104))='CHKPART';

      fseachknot.Checked:=uppercase(getchkstyle(105))='FALSE';
      fseachkall.Checked:=uppercase(getchkstyle(105))='TRUE';
      fseachkpart.Checked:=uppercase(getchkstyle(105))='CHKPART';

      fseaichknot.Checked:=uppercase(getchkstyle(106))='FALSE';
      fseaichkall.Checked:=uppercase(getchkstyle(106))='TRUE';
      fseaichkpart.Checked:=uppercase(getchkstyle(106))='CHKPART';

      fairchknot.Checked:=uppercase(getchkstyle(107))='FALSE';
      fairchkall.Checked:=uppercase(getchkstyle(107))='TRUE';
      fairchkpart.Checked:=uppercase(getchkstyle(107))='CHKPART';

      fairichknot.Checked:=uppercase(getchkstyle(108))='FALSE';
      fairichkall.Checked:=uppercase(getchkstyle(108))='TRUE';
      fairichkpart.Checked:=uppercase(getchkstyle(108))='CHKPART';



      railwaychknot.Checked:=uppercase(getchkstyle(309))='FALSE';
      railwaychkall.Checked:=uppercase(getchkstyle(309))='TRUE';
      railwaychkpart.Checked:=uppercase(getchkstyle(309))='CHKPART';


      frailwaychknot.Checked:=uppercase(getchkstyle(310))='FALSE';
      frailwaychkall.Checked:=uppercase(getchkstyle(310))='TRUE';
      frailwaychkpart.Checked:=uppercase(getchkstyle(310))='CHKPART';
    end ;

    20:
    begin
      bsSkinNotebook1.PageIndex:=16;
      SYS_EDI.Open;
    end;
    21:
    begin
      bsSkinNotebook1.PageIndex:=17;
      frm_sys_parameters.load_text(2101,Edit52);
      frm_sys_parameters.load_text(2102,Edit53);
      frm_sys_parameters.load_text(2103,Edit54);

      frm_sys_parameters.load_text(2104,Edit55);
      frm_sys_parameters.load_text(2105,Edit56);
      frm_sys_parameters.load_text(2106,Edit57);

      frm_sys_parameters.load_text(2107,Edit59);
      frm_sys_parameters.load_text(2108,Edit60);
      frm_sys_parameters.load_text(2109,Edit61);

      frm_sys_parameters.load_text(2111,Edit62);
      frm_sys_parameters.load_text(2112,Edit63);
      frm_sys_parameters.load_text(2113,Edit64);
      frm_sys_parameters.load_text(2114,Edit66);
    end;

    22:
    begin
      bsSkinNotebook1.PageIndex:=18;
      frm_sys_parameters.load_text(502,Edit68);
      frm_sys_parameters.load_text(503,Edit69);
      frm_sys_parameters.load_text(504,Edit70);
    end;

    23:
    begin
      bsSkinNotebook1.PageIndex:=19;
      if if_open('416') then bsSkinButton14.Enabled:=True else bsSkinButton14.Enabled:=False;

    end;

  end;
end;

procedure Tfrm_sys_parameters.bsSkinButton2Click(Sender: TObject);
var
  str:widestring;
begin
  if t_sys_parameters.IsEmpty then
    exit;


  case t_sys_parameters.fieldbyname('PA_ID').asinteger of
    5:
    begin
      t_sys_parameters_value.Locate('VL_ID',53,[]);
      t_sys_parameters_value.Edit;
      if bsSkinCheckRadioBox45.Checked then
        t_sys_parameters_value['参数值']:='业务编号';
      if bsSkinCheckRadioBox46.Checked then
        t_sys_parameters_value['参数值']:='开船日期';
      if bsSkinCheckRadioBox48.Checked then
        t_sys_parameters_value['参数值']:='委托编号';
      if bsSkinCheckRadioBox47.Checked then
        t_sys_parameters_value['参数值']:='主提单号';        
      t_sys_parameters_value.post;

      t_sys_parameters_value.Locate('VL_ID',54,[]);
      t_sys_parameters_value.Edit;
      if bsSkinCheckRadioBox49.Checked then
        t_sys_parameters_value['参数值']:='业务编号';
      if bsSkinCheckRadioBox51.Checked then
        t_sys_parameters_value['参数值']:='进口日期';
      if bsSkinCheckRadioBox50.Checked then
        t_sys_parameters_value['参数值']:='委托编号';
      if bsSkinCheckRadioBox52.Checked then
        t_sys_parameters_value['参数值']:='主提单号';
      t_sys_parameters_value.post;

      t_sys_parameters_value.Locate('VL_ID',55,[]);
      t_sys_parameters_value.Edit;
      if bsSkinCheckRadioBox53.Checked then
        t_sys_parameters_value['参数值']:='业务编号';
      if bsSkinCheckRadioBox55.Checked then
        t_sys_parameters_value['参数值']:='一程开航日期';
      if bsSkinCheckRadioBox54.Checked then
        t_sys_parameters_value['参数值']:='委托编号';
      if bsSkinCheckRadioBox56.Checked then
        t_sys_parameters_value['参数值']:='主运单号';
      t_sys_parameters_value.post;

      t_sys_parameters_value.Locate('VL_ID',56,[]);
      t_sys_parameters_value.Edit;
      if bsSkinCheckRadioBox57.Checked then
        t_sys_parameters_value['参数值']:='业务编号';
      if bsSkinCheckRadioBox59.Checked then
        t_sys_parameters_value['参数值']:='进口日期';
      if bsSkinCheckRadioBox58.Checked then
        t_sys_parameters_value['参数值']:='委托编号';
      if bsSkinCheckRadioBox60.Checked then
        t_sys_parameters_value['参数值']:='主运单号';        
      t_sys_parameters_value.post;
    end;
    6:
    begin
      frm_sys_parameters.save_true_false(12,bsSkinCheckRadioBox25);
      frm_sys_parameters.save_true_false(62,bsSkinCheckRadioBox66);
      frm_sys_parameters.save_true_false(121,bsSkinCheckRadioBox94);
      frm_sys_parameters.save_true_false(63,bsSkinCheckRadioBox68);
      frm_sys_parameters.save_true_false(64,bsSkinCheckRadioBox70);
      frm_sys_parameters.save_true_false(66,bsSkinCheckRadioBox72);
      frm_sys_parameters.save_true_false(110,bsSkinCheckRadioBox84);
      frm_sys_parameters.save_true_false(111,bsSkinCheckRadioBox86);
      frm_sys_parameters.save_true_false(112,bsSkinCheckRadioBox88);
      frm_sys_parameters.save_true_false(115,bsSkinCheckRadioBox90);
      frm_sys_parameters.save_true_false(133,bsSkinCheckRadioBox104);
      frm_sys_parameters.save_true_false(135,bsSkinCheckRadioBox136);
      frm_sys_parameters.save_true_false(148,bsSkinCheckRadioBox118);
      frm_sys_parameters.save_true_false(153,bsSkinCheckRadioBox128);

      frm_sys_parameters.save_true_false(183,bsSkinCheckRadioBox151);
      frm_sys_parameters.save_true_false(198,bsSkinCheckRadioBox171);

      if bsSkinCheckRadioBox173.checked then 
      begin
      try
        strtoint(Edit24.text);
      except
        showmessage('费用小数精度只能输入数字！！');
        exit;
      end;
      if (strtoint(Edit24.text)<2)or(strtoint(Edit24.text)>4)then
      begin
        showmessage('费用小数精度只能为2到4位！！');
        exit;
      end;


      frm_sys_parameters.save_text(65,Edit24.text);
      str:='alter table t_ch_fee alter column 金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      str:=str+' alter table t_ch_fee alter column 开票金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      str:=str+' alter table t_ch_fee alter column 结算金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      str:=str+' alter table t_ch_fee alter column 冲抵金额 [numeric](18, '+get_parameters_value(65,'2')+')';

      str:=str+' alter table t_ch_balance alter column 结算金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      str:=str+' alter table t_ch_balance alter column 实结金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      str:=str+' alter table t_ch_balance alter column 虚结金额 [numeric](18, '+get_parameters_value(65,'2')+')';

      str:=str+' alter table t_ch_check alter column 申请金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      str:=str+' alter table t_ch_check alter column 实际金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      str:=str+' alter table t_ch_check alter column 虚开金额 [numeric](18, '+get_parameters_value(65,'2')+')';

      str:=str+' alter table t_ch_invoice_shen alter column 申请金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      str:=str+' alter table t_ch_invoice_shen alter column 实际金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      str:=str+' alter table t_ch_invoice_shen alter column 虚开金额 [numeric](18, '+get_parameters_value(65,'2')+')';

      str:=str+' alter table t_ch_fee_do alter column 原始金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      str:=str+' alter table t_ch_fee_do alter column 金额 [numeric](18, '+get_parameters_value(65,'2')+')';
      p_update.Parameters.ParamByName('SQLStr').value:=str;
      p_update.ExecProc;
      end;

    end;
    7:
    begin
      frm_sys_parameters.save_true_false(31,bsSkinCheckRadioBox19);
      frm_sys_parameters.save_true_false(32,bsSkinCheckRadioBox20);
      frm_sys_parameters.save_true_false(33,bsSkinCheckRadioBox21);
      frm_sys_parameters.save_true_false(34,bsSkinCheckRadioBox22);
      frm_sys_parameters.save_true_false(35,bsSkinCheckRadioBox23);
      frm_sys_parameters.save_true_false(36,bsSkinCheckRadioBox24);
      frm_sys_parameters.save_true_false(40,bsSkinCheckRadioBox31);
      frm_sys_parameters.save_true_false(41,bsSkinCheckRadioBox32);
      frm_sys_parameters.save_true_false(42,bsSkinCheckRadioBox33);
      frm_sys_parameters.save_true_false(43,bsSkinCheckRadioBox34);
      frm_sys_parameters.save_true_false(44,bsSkinCheckRadioBox35);
      frm_sys_parameters.save_true_false(45,bsSkinCheckRadioBox36);
      frm_sys_parameters.save_true_false(57,bsSkinCheckRadioBox61);
      frm_sys_parameters.save_true_false(58,bsSkinCheckRadioBox62);
      frm_sys_parameters.save_true_false(59,bsSkinCheckRadioBox63);
      frm_sys_parameters.save_true_false(60,bsSkinCheckRadioBox64);
      frm_sys_parameters.save_true_false(61,bsSkinCheckRadioBox65);

      frm_sys_parameters.save_true_false(151,bsSkinCheckRadioBox124);   //bsSkinCheckRadioBox124

      frm_sys_parameters.save_true_false(185,bsSkinCheckRadioBox157);   //bsSkinCheckRadioBox124

      frm_sys_parameters.save_text(128,Edit39.text);
      frm_sys_parameters.save_text(129,Edit40.text);
      frm_sys_parameters.save_text(130,Edit41.text);



      frm_sys_parameters.save_true_false(131,bsSkinCheckRadioBox100);


      frm_sys_parameters.save_true_false(174,bsSkinCheckRadioBox146);
      frm_sys_parameters.save_text(186,memo10.Lines.Text);
      

    end;
    8:
    begin
      try
        strtoint(Edit15.text);
        strtoint(Edit16.text);
        strtoint(Edit17.text);
        strtoint(Edit18.text);
      except
        showmessage('上班时间只能输入数字，保存失败！！');
        exit;
      end;
      frm_sys_parameters.save_text(8,Edit15.text);
      frm_sys_parameters.save_text(24,Edit16.text);
      frm_sys_parameters.save_text(25,Edit17.text);
      frm_sys_parameters.save_text(26,Edit18.text);
    end;
    9:
    begin
      frm_sys_parameters.save_true_false(3,bsSkinCheckRadioBox1);
      frm_sys_parameters.save_true_false(2,bsSkinCheckRadioBox9);
      frm_sys_parameters.save_true_false(146,bsSkinCheckRadioBox116);
      frm_sys_parameters.save_true_false(184,bsSkinCheckRadioBox155);
      frm_sys_parameters.save_true_false(27,bsSkinCheckRadioBox13);
      frm_sys_parameters.save_true_false(120,bsSkinCheckRadioBox92);
      frm_sys_parameters.save_true_false(123,bsSkinCheckRadioBox98);
      frm_sys_parameters.save_true_false(28,bsSkinCheckRadioBox15);
      try
        strtoint(Edit19.text);
      except
        showmessage('天数只能输入数字！！');
        exit;
      end;
      frm_sys_parameters.save_text(29,Edit19.text);

      try
        strtoint(Edit20.text);
      except
        showmessage('天数只能输入数字！！');
        exit;
      end;
      frm_sys_parameters.save_text(37,Edit20.text);

      frm_sys_parameters.save_true_false(30,bsSkinCheckRadioBox17);
      frm_sys_parameters.save_true_false(38,bsSkinCheckRadioBox27);
      frm_sys_parameters.save_true_false(145,bsSkinCheckRadioBox115);

      frm_sys_parameters.save_true_false(39,bsSkinCheckRadioBox29);
      frm_sys_parameters.save_true_false(122,bsSkinCheckRadioBox96);

      frm_sys_parameters.save_true_false(46,bsSkinCheckRadioBox37);
      frm_sys_parameters.save_true_false(47,bsSkinCheckRadioBox39);
      frm_sys_parameters.save_true_false(81,bsSkinCheckRadioBox74);
      frm_sys_parameters.save_text(82,Edit36.text);
      frm_sys_parameters.save_true_false(83,bsSkinCheckRadioBox76);
      frm_sys_parameters.save_true_false(84,bsSkinCheckRadioBox78);
      frm_sys_parameters.save_true_false(85,bsSkinCheckRadioBox80);
      frm_sys_parameters.save_true_false(86,bsSkinCheckRadioBox82);
      frm_sys_parameters.save_true_false(150,bsSkinCheckRadioBox122);
      frm_sys_parameters.save_true_false(152,bsSkinCheckRadioBox126);
      frm_sys_parameters.save_true_false(172,bsSkinCheckRadioBox142);
      frm_sys_parameters.save_true_false(190,bsSkinCheckRadioBox161);
      frm_sys_parameters.save_text(197,Edit65.text);

{

      frm_sys_parameters.save_text(162,Edit27.text);
      frm_sys_parameters.save_text(163,Edit28.text);
      frm_sys_parameters.save_text(164,Edit29.text);
      frm_sys_parameters.save_text(165,Edit30.text);
      frm_sys_parameters.save_text(166,Edit42.text);
      frm_sys_parameters.save_text(167,Edit43.text);
      frm_sys_parameters.save_text(168,Edit44.text);
      frm_sys_parameters.save_text(169,Edit45.text);
      frm_sys_parameters.save_text(176,Edit46.text);
}
      frm_sys_parameters.save_true_false(182,bsSkinCheckRadioBox149);
      frm_sys_parameters.save_true_false(329,bsSkinCheckRadioBox176);
    end;
    10:
    begin
      frm_sys_parameters.save_true_false(5,bsSkinCheckRadioBox3);
      frm_sys_parameters.save_true_false(6,bsSkinCheckRadioBox5);
      frm_sys_parameters.save_true_false(1,bsSkinCheckRadioBox7);


      frm_sys_parameters.save_true_false(87,bsSkinCheckRadioBox147);

      frm_sys_parameters.save_true_false(88,bsSkinCheckRadioBox153);

      {
      if bsSkinCheckRadioBox8.Checked then begin
        str:=str+' update t_sys_module set 是否启用=0 where fmoduleid=412';
        p_update.Parameters.ParamByName('SQLStr').value:=str;
        p_update.ExecProc;
      end else begin
        str:=str+' update t_sys_module set 是否启用=1 where fmoduleid=412';
        p_update.Parameters.ParamByName('SQLStr').value:=str;
        p_update.ExecProc;
      end;
}
      frm_sys_parameters.save_text(156,memo9.Lines.Text);
      frm_sys_parameters.save_text(305,memo11.Lines.Text);


      frm_sys_parameters.save_text(7,Edit14.text);
      frm_sys_parameters.save_text(147,Edit26.text);
      if frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',155,[]) then begin
        frm_sys_parameters.t_sys_parameters_value.Edit;
        frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString:=inttostr(bsSkinRadioGroup5.ItemIndex);
        frm_sys_parameters.t_sys_parameters_value.post;
      end;

    end;
    11:
    begin
      try
        strtoint(Edit1.text);
        strtoint(Edit2.text);
        strtoint(Edit3.text);
      except
        showmessage('基准只能输入数字！！');
        exit;
      end;
      frm_sys_parameters.save_text(9,Edit1.text);
      frm_sys_parameters.save_text(10,Edit2.text);
      frm_sys_parameters.save_text(11,Edit3.text);
      frm_sys_parameters.save_true_false(4,bsSkinCheckRadioBox11);
      frm_sys_parameters.save_true_false(188,bsSkinCheckRadioBox159);
      frm_sys_parameters.save_true_false(191,bsSkinCheckRadioBox163);
      frm_sys_parameters.save_true_false(192,bsSkinCheckRadioBox165);
      frm_sys_parameters.save_true_false(194,bsSkinCheckRadioBox167);
    end;
    12:
    begin
      try
        strtoint(Edit4.text);
      except
        showmessage('基准只能输入数字！！');
        exit;
      end;
      frm_sys_parameters.save_text(13,Edit4.text);
    end;
    13:
    begin
      frm_sys_parameters.save_text(14,Edit5.text);
      frm_sys_parameters.save_text(16,Edit6.text);
      frm_sys_parameters.save_text(20,Edit10.text);
      frm_sys_parameters.save_text(21,Edit11.text);
      frm_sys_parameters.save_text(23,Edit12.text);
      frm_sys_parameters.save_text(22,Edit13.text);
      frm_sys_parameters.save_text(48,Edit21.text);
      frm_sys_parameters.save_text(49,Edit22.text);
      frm_sys_parameters.save_text(50,Edit23.text);
      frm_sys_parameters.save_text(114,Edit37.text);
      frm_sys_parameters.save_text(113,Edit38.text);
      frm_sys_parameters.save_text(116,memo1.Lines.Text);
      frm_sys_parameters.save_text(124,memo5.Lines.Text);

      frm_sys_parameters.save_text(312,Edit67.text);

      frm_sys_parameters.save_text(1301,Edit71.text);
      frm_sys_parameters.save_text(1302,Edit72.text);

      frm_sys_parameters.save_true_false(51,bsSkinCheckRadioBox41);
      frm_sys_parameters.save_true_false(52,bsSkinCheckRadioBox43);
      frm_sys_parameters.save_true_false(132,bsSkinCheckRadioBox102);
      frm_sys_parameters.save_true_false(139,bsSkinCheckRadioBox106);
      frm_sys_parameters.save_true_false(157,bsSkinCheckRadioBox132);
      frm_sys_parameters.save_true_false(173,bsSkinCheckRadioBox144);
    end;
    14:
    begin
      frm_sys_parameters.save_text(17,Edit7.text);
      frm_sys_parameters.save_text(117,memo2.Lines.text);
    end;
    15:
    begin
      frm_sys_parameters.save_text(18,Edit8.text);
      frm_sys_parameters.save_text(118,memo3.Lines.Text);
    end;
    16:
    begin
      frm_sys_parameters.save_text(19,Edit9.text);
      frm_sys_parameters.save_text(119,memo4.Lines.Text);
      frm_sys_parameters.save_text(125,memo6.Lines.Text);

      frm_sys_parameters.save_text(189,Edit58.text);
     frm_sys_parameters.save_true_false(196,bsSkinCheckRadioBox169);

    end;
    17:
    begin
      frm_sys_parameters.save_text(77,Edit31.text);
      frm_sys_parameters.save_text(78,Edit32.text);
      frm_sys_parameters.save_text(79,Edit33.text);
      frm_sys_parameters.save_text(80,Edit34.text);
//      frm_sys_parameters.save_text(81,Edit35.text);
    end;
    18:
    begin
      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',134,[]);
      frm_sys_parameters.t_sys_parameters_value.Edit;
      frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString:=bsSkinRadioGroup1.Items.Strings[bsSkinRadioGroup1.ItemIndex];
      frm_sys_parameters.t_sys_parameters_value.post;

      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',136,[]);
      frm_sys_parameters.t_sys_parameters_value.Edit;
      frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString:=bsSkinRadioGroup2.Items.Strings[bsSkinRadioGroup2.ItemIndex];
      frm_sys_parameters.t_sys_parameters_value.post;



      frm_sys_parameters.save_true_false(149,bsSkinCheckRadioBox120);
      frm_sys_parameters.save_true_false(154,bsSkinCheckRadioBox130);

      frm_sys_parameters.save_true_false(160,bsSkinCheckRadioBox134);

      frm_sys_parameters.save_true_false(161,bsSkinCheckRadioBox138);

      frm_sys_parameters.save_true_false(170,bsSkinCheckRadioBox140);

      frm_sys_parameters.save_text(159,bsSkinMemo1.Lines.Text);

      frm_sys_parameters.save_text(177,Edit47.text);
      frm_sys_parameters.save_text(178,Edit48.text);

      frm_sys_parameters.save_text(179,Edit49.text);
      frm_sys_parameters.save_text(180,Edit50.text);
      frm_sys_parameters.save_text(181,Edit51.text);

    end;

    19:
    begin
      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',137,[]);
      frm_sys_parameters.t_sys_parameters_value.Edit;
      frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString:=inttostr(bsSkinRadioGroup3.ItemIndex);
      frm_sys_parameters.t_sys_parameters_value.post;

      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',138,[]);
      frm_sys_parameters.t_sys_parameters_value.Edit;
      frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString:=inttostr(bsSkinRadioGroup4.ItemIndex);
      frm_sys_parameters.t_sys_parameters_value.post;

      frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',158,[]);
      frm_sys_parameters.t_sys_parameters_value.Edit;
      frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString:=inttostr(bsSkinRadioGroup6.ItemIndex);
      frm_sys_parameters.t_sys_parameters_value.post;

      frm_sys_parameters.save_text(140,Edit25.text);
      frm_sys_parameters.save_true_false(141,bsSkinCheckRadioBox108);
      frm_sys_parameters.save_true_false(142,bsSkinCheckRadioBox110);
      frm_sys_parameters.save_true_false(143,bsSkinCheckRadioBox112);

      frm_sys_parameters.save_true_false(199,bsSkinCheckRadioBox174);

    end;
    21:
    begin
      frm_sys_parameters.save_text(2101,Edit52.text);
      frm_sys_parameters.save_text(2102,Edit53.text);
      frm_sys_parameters.save_text(2103,Edit54.text);

      frm_sys_parameters.save_text(2104,Edit55.text);
      frm_sys_parameters.save_text(2105,Edit56.text);
      frm_sys_parameters.save_text(2106,Edit57.text);


      frm_sys_parameters.save_text(2107,Edit59.text);
      frm_sys_parameters.save_text(2108,Edit60.text);
      frm_sys_parameters.save_text(2109,Edit61.text);

      frm_sys_parameters.save_text(2111,Edit62.text);
      frm_sys_parameters.save_text(2112,Edit63.text);
      frm_sys_parameters.save_text(2113,Edit64.text);
      frm_sys_parameters.save_text(2114,Edit66.text);
    end;

    1:
    begin
      if seachknot.Checked  then frm_sys_parameters.save_text(101,'FALSE') ;
      if seachkall.Checked  then frm_sys_parameters.save_text(101,'TRUE');
      if seachkpart.Checked then frm_sys_parameters.save_text(101,'CHKPART');
      if seaichknot.Checked then frm_sys_parameters.save_text(102,'FALSE');
      if seaichkall.Checked then frm_sys_parameters.save_text(102,'TRUE');
      if seaichkpart.Checked then frm_sys_parameters.save_text(102,'CHKPART');
      if airchknot.Checked  then frm_sys_parameters.save_text(103,'FALSE');
      if airchkall.Checked  then frm_sys_parameters.save_text(103,'TRUE');
      if airchkpart.Checked then frm_sys_parameters.save_text(103,'CHKPART');
      if airichknot.Checked then frm_sys_parameters.save_text(104,'FALSE');
      if airichkall.Checked then frm_sys_parameters.save_text(104,'TRUE');
      if airichkpart.Checked then frm_sys_parameters.save_text(104,'CHKPART');

      if railwaychknot.Checked  then frm_sys_parameters.save_text(309,'FALSE') ;
      if railwaychkall.Checked  then frm_sys_parameters.save_text(309,'TRUE');
      if railwaychkpart.Checked then frm_sys_parameters.save_text(309,'CHKPART');


      if fseachknot.Checked  then frm_sys_parameters.save_text(105,'FALSE') ;
      if fseachkall.Checked  then frm_sys_parameters.save_text(105,'TRUE');
      if fseachkpart.Checked then frm_sys_parameters.save_text(105,'CHKPART');
      if fseaichknot.Checked then frm_sys_parameters.save_text(106,'FALSE');
      if fseaichkall.Checked then frm_sys_parameters.save_text(106,'TRUE');
      if fseaichkpart.Checked then frm_sys_parameters.save_text(106,'CHKPART');
      if fairchknot.Checked  then frm_sys_parameters.save_text(107,'FALSE');
      if fairchkall.Checked  then frm_sys_parameters.save_text(107,'TRUE');
      if fairchkpart.Checked then frm_sys_parameters.save_text(107,'CHKPART');
      if fairichknot.Checked then frm_sys_parameters.save_text(108,'FALSE');
      if fairichkall.Checked then frm_sys_parameters.save_text(108,'TRUE');
      if fairichkpart.Checked then frm_sys_parameters.save_text(108,'CHKPART');

      if frailwaychknot.Checked  then frm_sys_parameters.save_text(310,'FALSE') ;
      if frailwaychkall.Checked  then frm_sys_parameters.save_text(310,'TRUE');
      if frailwaychkpart.Checked then frm_sys_parameters.save_text(310,'CHKPART');

    end ;

    22:
    begin
       frm_sys_parameters.save_text(502,Edit68.text);
       frm_sys_parameters.save_text(503,Edit69.text);
       frm_sys_parameters.save_text(504,Edit70.text);
    end;
  end;
end;

procedure Tfrm_sys_parameters.bsSkinButton1Click(Sender: TObject);
begin
  if not seachkpart.Checked then
  begin
    showmessage('请选定条件复核！');
    exit ;
  end ;
  frm_op_chkpart:=Tfrm_op_chkpart.create(self);
  frm_op_chkpart.showywlb('海运出口应收');
  frm_op_chkpart.free ;
end;

function Tfrm_sys_parameters.getchkstyle(i: integer): string;
begin
  t_sys_parameters_value.Locate('VL_ID',i,[]);
  result:=Uppercase(t_sys_parameters_value.FieldByName('参数值').asString) ;
end;

procedure Tfrm_sys_parameters.bsSkinButton3Click(Sender: TObject);
begin
  if not seaichkpart.Checked then
  begin
    showmessage('请选定条件复核！');
    exit ;
  end ;
  frm_op_chkpart:=Tfrm_op_chkpart.create(self);
  frm_op_chkpart.showywlb('海运进口应收');
  frm_op_chkpart.free ;
end;

procedure Tfrm_sys_parameters.bsSkinButton4Click(Sender: TObject);
begin
  if not airchkpart.Checked then
  begin
    showmessage('请选定条件复核！');
    exit ;
  end ;
  frm_op_chkpart:=Tfrm_op_chkpart.create(self);
  frm_op_chkpart.showywlb('空运出口应收');
  frm_op_chkpart.free ;
end;

procedure Tfrm_sys_parameters.bsSkinButton6Click(Sender: TObject);
begin

  if not airichkpart.Checked then
  begin
    showmessage('请选定条件复核！');
    exit ;
  end ;
  frm_op_chkpart:=Tfrm_op_chkpart.create(self);
  frm_op_chkpart.showywlb('空运进口应收');
  frm_op_chkpart.free ;

end;

procedure Tfrm_sys_parameters.bsSkinButton7Click(Sender: TObject);
begin
  if not fseachkpart.Checked then
  begin
    showmessage('请选定条件复核！');
    exit ;
  end ;
  frm_op_chkpart:=Tfrm_op_chkpart.create(self);
  frm_op_chkpart.showywlb('海运出口应付');
  frm_op_chkpart.free ;
end;

procedure Tfrm_sys_parameters.bsSkinButton8Click(Sender: TObject);
begin
  if not fseaichkpart.Checked then
  begin
    showmessage('请选定条件复核！');
    exit ;
  end ;
  frm_op_chkpart:=Tfrm_op_chkpart.create(self);
  frm_op_chkpart.showywlb('海运进口应付');
  frm_op_chkpart.free ;
end;

procedure Tfrm_sys_parameters.bsSkinButton9Click(Sender: TObject);
begin
  if not fairchkpart.Checked then
  begin
    showmessage('请选定条件复核！');
    exit ;
  end ;
  frm_op_chkpart:=Tfrm_op_chkpart.create(self);
  frm_op_chkpart.showywlb('空运出口应付');
  frm_op_chkpart.free ;
end;

procedure Tfrm_sys_parameters.bsSkinButton10Click(Sender: TObject);
begin
  if not fairichkpart.Checked then
  begin
    showmessage('请选定条件复核！');
    exit ;
  end ;
  frm_op_chkpart:=Tfrm_op_chkpart.create(self);
  frm_op_chkpart.showywlb('空运进口应付');
  frm_op_chkpart.free ;
end;

procedure Tfrm_sys_parameters.load_memo(i: integer; me: TMemo);
begin
  t_sys_parameters_value.Locate('VL_ID',i,[]);
  me.Lines.Text:=t_sys_parameters_value.FieldByName('参数值').asstring;

end;
{
        Close;SQL.Clear;
        SQL.Add('update t_ch_fee  set 财务税率=11,财务税额=金额/1.11*0.11,财务不含税价=金额-金额/1.11*0.11');
        SQL.Add('where ch_id=:ch_id and 类型=''付''  and 费用名称=''陆运费'' and 费用状态 not in (''录入状态'',''提交审核'')');
//        SQL.Add('where ch_id=:ch_id  and (财务税率=0 or 财务税率 is null)  and (财务不含税价=0 or 财务不含税价 is null)  and 费用状态 not in (''录入状态'',''提交审核'')');
        Parameters.ParamByName('ch_id').Value:=ch_id;
        ExecSQL;
}
procedure Tfrm_sys_parameters.bsSkinButton12Click(Sender: TObject);
begin
  if not railwaychkpart.Checked then
  begin
    showmessage('请选定条件复核！');
    exit ;
  end ;

  frm_op_chkpart:=Tfrm_op_chkpart.create(self);
  frm_op_chkpart.showywlb('铁路业务应收');
  frm_op_chkpart.free ;

end;

procedure Tfrm_sys_parameters.bsSkinButton13Click(Sender: TObject);
begin
  if not frailwaychkpart.Checked then
  begin
    showmessage('请选定条件复核！');
    exit ;
  end ;
  frm_op_chkpart:=Tfrm_op_chkpart.create(self);
  frm_op_chkpart.showywlb('铁路业务应付');
  frm_op_chkpart.free ;

end;

procedure Tfrm_sys_parameters.bsSkinButton14Click(Sender: TObject);
var
  Excel: OleVariant;
  ExcelRowCount, i : integer;
  aQuery:TADOQuery;
begin
  OpenDialog1.Title := '请选择正确的excel文件';
  OpenDialog1.Filter := 'Excel(*.xls)|*.xlsx';
  if OpenDialog1.Execute then  XlsFileNameStr := OpenDialog1.FileName;

  if (trim(XlsFileNameStr ) = '') then
  begin
    GetActiveWindow();
    showmessage( '请选择正确的excel路径');
    exit;
  end;  

  try
    Excel := CreateOLEObject('Excel.Application');
  except
    showmessage('excel没有安装');
    Exit;
  end;
  Excel.DisplayAlerts:=false;
  Excel.Visible := False;
  Excel.WorkBooks.Open(XlsFileNameStr);
  if Excel.WorkSheets[1].Name<>'Identifiers' then
  begin
    showmessage('工作簿名称不对！不能导入数据！请检查');
    Exit;
  end;
  ExcelRowCount := Excel.WorkSheets[1].UsedRange.Rows.Count;
  //显示进度条
  if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self);
  frm_sys_progress.bsSkinGauge1.ProgressText:='正转导入数据请等候。。。';
  frm_sys_progress.Show;
  frm_sys_progress.bsSkinGauge1.MaxValue:=ExcelRowCount;
  frm_sys_progress.bsSkinGauge1.MinValue:=0;
  frm_sys_progress.bsSkinGauge1.Value:=0;
  frm_sys_progress.Update;

  aQuery:=CreateAdoQuery;
  with aQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete t_sys_country_code');
    ExecSQL;
  end;
  for i:=3 to ExcelRowCount do
  begin
    if Trim(Excel.WorkSheets[1].UsedRange.Cells[i,1].value)<>'' then
    begin
      with aQuery do
      begin
        Close;
        SQL.Clear;
        SQL.Add('insert into t_sys_country_code (国家名称,国家英文名称,国家代码,企业代码类型) values ('
              +QuotedStr(Excel.WorkSheets[1].UsedRange.Cells[i,1].value)+','+QuotedStr(Excel.WorkSheets[1].UsedRange.Cells[i,2].value)
              +','+QuotedStr(Excel.WorkSheets[1].UsedRange.Cells[i,3].value)+','+QuotedStr(Excel.WorkSheets[1].UsedRange.Cells[i,4].value)
              +')' );
        ExecSQL;
      end;
    end;
     frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  end;

  frm_sys_progress.close;
  frm_sys_progress:=nil;
  FreeAndNil(aQuery);
  Excel.Quit;
  t_sys_country_code.Requery();
end;

end.