|
|
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;
|
|
|
|
|
|
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;
|
|
|
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);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
function getchkstyle(i:integer):string ;
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_sys_parameters: Tfrm_sys_parameters;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_data_share, my_sys_function;
|
|
|
|
|
|
{$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
|
|
|
t_sys_parameters_value.Locate('VL_ID',i,[]);
|
|
|
t_sys_parameters_value.Edit;
|
|
|
t_sys_parameters_value['<27><><EFBFBD><EFBFBD>ֵ']:=str;
|
|
|
t_sys_parameters_value.post;
|
|
|
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);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_parameters.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
// SendMsg_gonggao('55','');
|
|
|
frm_data_share.t_sys_parameters_value.requery;
|
|
|
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(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);
|
|
|
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.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);
|
|
|
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_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);
|
|
|
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);
|
|
|
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);
|
|
|
|
|
|
|
|
|
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_text(65,Edit24);
|
|
|
frm_sys_parameters.load_true_false(148,bsSkinCheckRadioBox118,bsSkinCheckRadioBox119);
|
|
|
frm_sys_parameters.load_true_false(153,bsSkinCheckRadioBox128,bsSkinCheckRadioBox129);
|
|
|
|
|
|
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);
|
|
|
|
|
|
|
|
|
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.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);
|
|
|
|
|
|
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';
|
|
|
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(148,bsSkinCheckRadioBox118);
|
|
|
frm_sys_parameters.save_true_false(153,bsSkinCheckRadioBox128);
|
|
|
|
|
|
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;
|
|
|
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_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(151,bsSkinCheckRadioBox124);
|
|
|
|
|
|
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(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);
|
|
|
|
|
|
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);
|
|
|
{
|
|
|
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(7,Edit14.text);
|
|
|
frm_sys_parameters.save_text(147,Edit26.text);
|
|
|
|
|
|
frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',155,[]);
|
|
|
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;
|
|
|
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);
|
|
|
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_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);
|
|
|
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);
|
|
|
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);
|
|
|
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.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);
|
|
|
|
|
|
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 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');
|
|
|
end ;
|
|
|
end;
|
|
|
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.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;
|
|
|
|
|
|
end.
|