|
|
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 <20>ļ<EFBFBD><C4BC><EFBFBD>
|
|
|
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('<27><><EFBFBD><EFBFBD>ֵ').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('<27><><EFBFBD><EFBFBD>ֵ').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['<27><><EFBFBD><EFBFBD>ֵ']:=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['<27><><EFBFBD><EFBFBD>ֵ']:='true';
|
|
|
t_sys_parameters_value.post;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_sys_parameters_value.Edit;
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='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('<27><><EFBFBD><EFBFBD>ֵ').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('<27><><EFBFBD><EFBFBD>ֵ').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox45.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox46.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='ί<>б<EFBFBD><D0B1><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox48.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>' then
|
|
|
bsSkinCheckRadioBox47.Checked:=true;
|
|
|
|
|
|
t_sys_parameters_value.Locate('VL_ID',54,[]);
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox49.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox51.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='ί<>б<EFBFBD><D0B1><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox50.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>' then
|
|
|
bsSkinCheckRadioBox52.Checked:=true;
|
|
|
|
|
|
t_sys_parameters_value.Locate('VL_ID',55,[]);
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox53.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox55.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='ί<>б<EFBFBD><D0B1><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox54.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox56.Checked:=true;
|
|
|
|
|
|
t_sys_parameters_value.Locate('VL_ID',56,[]);
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox57.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox59.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='ί<>б<EFBFBD><D0B1><EFBFBD>' then
|
|
|
bsSkinCheckRadioBox58.Checked:=true;
|
|
|
if t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').asstring='<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>' 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('<27><><EFBFBD><EFBFBD>ֵ').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('<27><><EFBFBD><EFBFBD>ֵ').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('<27><><EFBFBD><EFBFBD>ֵ').AsString,0);
|
|
|
frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',138,[]);
|
|
|
bsSkinRadioGroup4.ItemIndex:=strtointdef(frm_sys_parameters.t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').AsString,0);
|
|
|
frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',158,[]);
|
|
|
bsSkinRadioGroup6.ItemIndex:=strtointdef(frm_sys_parameters.t_sys_parameters_value.FieldByName('<27><><EFBFBD><EFBFBD>ֵ').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'; //<2F><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD><D3A6>
|
|
|
seachkall.Checked:=uppercase(getchkstyle(101))='TRUE';
|
|
|
seachkpart.Checked:=uppercase(getchkstyle(101))='CHKPART';
|
|
|
|
|
|
seaichknot.Checked:=uppercase(getchkstyle(102))='FALSE'; //<2F><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>Ӧ<EFBFBD><D3A6>
|
|
|
seaichkall.Checked:=uppercase(getchkstyle(102))='TRUE';
|
|
|
seaichkpart.Checked:=uppercase(getchkstyle(102))='CHKPART';
|
|
|
|
|
|
airchknot.Checked:=uppercase(getchkstyle(103))='FALSE'; //<2F><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD><D3A6>
|
|
|
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['<27><><EFBFBD><EFBFBD>ֵ']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox46.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox48.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='ί<>б<EFBFBD><D0B1><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox47.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>';
|
|
|
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['<27><><EFBFBD><EFBFBD>ֵ']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox51.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox50.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='ί<>б<EFBFBD><D0B1><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox52.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>';
|
|
|
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['<27><><EFBFBD><EFBFBD>ֵ']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox55.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox54.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='ί<>б<EFBFBD><D0B1><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox56.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>';
|
|
|
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['<27><><EFBFBD><EFBFBD>ֵ']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox59.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox58.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='ί<>б<EFBFBD><D0B1><EFBFBD>';
|
|
|
if bsSkinCheckRadioBox60.Checked then
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:='<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>';
|
|
|
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('<27><><EFBFBD><EFBFBD>С<EFBFBD><D0A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if (strtoint(Edit24.text)<2)or(strtoint(Edit24.text)>4)then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>С<EFBFBD><D0A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB>Ϊ2<CEAA><32>4λ<34><CEBB><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
|
|
|
frm_sys_parameters.save_text(65,Edit24.text);
|
|
|
str:='alter table t_ch_fee alter column <20><><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
str:=str+' alter table t_ch_fee alter column <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
str:=str+' alter table t_ch_fee alter column <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
str:=str+' alter table t_ch_fee alter column <20><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
|
|
|
str:=str+' alter table t_ch_balance alter column <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
str:=str+' alter table t_ch_balance alter column ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
str:=str+' alter table t_ch_balance alter column <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
|
|
|
str:=str+' alter table t_ch_check alter column <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
str:=str+' alter table t_ch_check alter column ʵ<>ʽ<EFBFBD><CABD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
str:=str+' alter table t_ch_check alter column <20>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
|
|
|
str:=str+' alter table t_ch_invoice_shen alter column <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
str:=str+' alter table t_ch_invoice_shen alter column ʵ<>ʽ<EFBFBD><CABD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
str:=str+' alter table t_ch_invoice_shen alter column <20>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
|
|
|
str:=str+' alter table t_ch_fee_do alter column ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> [numeric](18, '+get_parameters_value(65,'2')+')';
|
|
|
str:=str+' alter table t_ch_fee_do alter column <20><><EFBFBD><EFBFBD> [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('<27>ϰ<EFBFBD>ʱ<EFBFBD><CAB1>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
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('<27><><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
frm_sys_parameters.save_text(29,Edit19.text);
|
|
|
|
|
|
try
|
|
|
strtoint(Edit20.text);
|
|
|
except
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
|
|
|
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 <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=0 where fmoduleid=412';
|
|
|
p_update.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
p_update.ExecProc;
|
|
|
end else begin
|
|
|
str:=str+' update t_sys_module set <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=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('<27><><EFBFBD><EFBFBD>ֵ').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('<27><>ֻ<D7BC><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
|
|
|
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('<27><>ֻ<D7BC><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
|
|
|
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('<27><><EFBFBD><EFBFBD>ֵ').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('<27><><EFBFBD><EFBFBD>ֵ').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('<27><><EFBFBD><EFBFBD>ֵ').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('<27><><EFBFBD><EFBFBD>ֵ').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('<27><><EFBFBD><EFBFBD>ֵ').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('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>');
|
|
|
exit ;
|
|
|
end ;
|
|
|
frm_op_chkpart:=Tfrm_op_chkpart.create(self);
|
|
|
frm_op_chkpart.showywlb('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
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('<27><><EFBFBD><EFBFBD>ֵ').asString) ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_parameters.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
if not seaichkpart.Checked then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>');
|
|
|
exit ;
|
|
|
end ;
|
|
|
frm_op_chkpart:=Tfrm_op_chkpart.create(self);
|
|
|
frm_op_chkpart.showywlb('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
frm_op_chkpart.free ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_parameters.bsSkinButton4Click(Sender: TObject);
|
|
|
begin
|
|
|
if not airchkpart.Checked then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>');
|
|
|
exit ;
|
|
|
end ;
|
|
|
frm_op_chkpart:=Tfrm_op_chkpart.create(self);
|
|
|
frm_op_chkpart.showywlb('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
frm_op_chkpart.free ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_parameters.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
if not airichkpart.Checked then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>');
|
|
|
exit ;
|
|
|
end ;
|
|
|
frm_op_chkpart:=Tfrm_op_chkpart.create(self);
|
|
|
frm_op_chkpart.showywlb('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
frm_op_chkpart.free ;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_parameters.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
if not fseachkpart.Checked then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>');
|
|
|
exit ;
|
|
|
end ;
|
|
|
frm_op_chkpart:=Tfrm_op_chkpart.create(self);
|
|
|
frm_op_chkpart.showywlb('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
frm_op_chkpart.free ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_parameters.bsSkinButton8Click(Sender: TObject);
|
|
|
begin
|
|
|
if not fseaichkpart.Checked then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>');
|
|
|
exit ;
|
|
|
end ;
|
|
|
frm_op_chkpart:=Tfrm_op_chkpart.create(self);
|
|
|
frm_op_chkpart.showywlb('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
frm_op_chkpart.free ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_parameters.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
if not fairchkpart.Checked then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>');
|
|
|
exit ;
|
|
|
end ;
|
|
|
frm_op_chkpart:=Tfrm_op_chkpart.create(self);
|
|
|
frm_op_chkpart.showywlb('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
frm_op_chkpart.free ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_parameters.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
if not fairichkpart.Checked then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>');
|
|
|
exit ;
|
|
|
end ;
|
|
|
frm_op_chkpart:=Tfrm_op_chkpart.create(self);
|
|
|
frm_op_chkpart.showywlb('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
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('<27><><EFBFBD><EFBFBD>ֵ').asstring;
|
|
|
|
|
|
end;
|
|
|
{
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('update t_ch_fee set <20><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>=11,<2C><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>=<3D><><EFBFBD><EFBFBD>/1.11*0.11,<2C><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>=<3D><><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD>/1.11*0.11');
|
|
|
SQL.Add('where ch_id=:ch_id and <20><><EFBFBD><EFBFBD>=''<27><>'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''½<>˷<EFBFBD>'' and <20><><EFBFBD><EFBFBD>״̬ not in (''¼<><C2BC>״̬'',''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'')');
|
|
|
// SQL.Add('where ch_id=:ch_id and (<28><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>=0 or <20><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0> is null) and (<28><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>=0 or <20><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0> is null) and <20><><EFBFBD><EFBFBD>״̬ not in (''¼<><C2BC>״̬'',''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'')');
|
|
|
Parameters.ParamByName('ch_id').Value:=ch_id;
|
|
|
ExecSQL;
|
|
|
}
|
|
|
procedure Tfrm_sys_parameters.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
if not railwaychkpart.Checked then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>');
|
|
|
exit ;
|
|
|
end ;
|
|
|
|
|
|
frm_op_chkpart:=Tfrm_op_chkpart.create(self);
|
|
|
frm_op_chkpart.showywlb('<27><>·ҵ<C2B7><D2B5>Ӧ<EFBFBD><D3A6>');
|
|
|
frm_op_chkpart.free ;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_parameters.bsSkinButton13Click(Sender: TObject);
|
|
|
begin
|
|
|
if not frailwaychkpart.Checked then
|
|
|
begin
|
|
|
showmessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>');
|
|
|
exit ;
|
|
|
end ;
|
|
|
frm_op_chkpart:=Tfrm_op_chkpart.create(self);
|
|
|
frm_op_chkpart.showywlb('<27><>·ҵ<C2B7><D2B5>Ӧ<EFBFBD><D3A6>');
|
|
|
frm_op_chkpart.free ;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_parameters.bsSkinButton14Click(Sender: TObject);
|
|
|
var
|
|
|
Excel: OleVariant;
|
|
|
ExcelRowCount, i : integer;
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
OpenDialog1.Title := '<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>excel<65>ļ<EFBFBD>';
|
|
|
OpenDialog1.Filter := 'Excel(*.xls)|*.xlsx';
|
|
|
if OpenDialog1.Execute then XlsFileNameStr := OpenDialog1.FileName;
|
|
|
|
|
|
if (trim(XlsFileNameStr ) = '') then
|
|
|
begin
|
|
|
GetActiveWindow();
|
|
|
showmessage( '<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>excel·<6C><C2B7>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
try
|
|
|
Excel := CreateOLEObject('Excel.Application');
|
|
|
except
|
|
|
showmessage('excelû<6C>а<EFBFBD>װ');
|
|
|
Exit;
|
|
|
end;
|
|
|
Excel.DisplayAlerts:=false;
|
|
|
Excel.Visible := False;
|
|
|
Excel.WorkBooks.Open(XlsFileNameStr);
|
|
|
if Excel.WorkSheets[1].Name<>'Identifiers' then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2>ԣ<EFBFBD><D4A3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
ExcelRowCount := Excel.WorkSheets[1].UsedRange.Rows.Count;
|
|
|
//<2F><>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self);
|
|
|
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><>ת<EFBFBD><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ<C8BA><F2A1A3A1><EFBFBD>';
|
|
|
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 (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>Ӣ<EFBFBD><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>,<2C><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) 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.
|