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('参数值').asstring) then Box1.Checked:=true else begin Box1.Checked:=false; if box2<>nil then box2.Checked:=true; end; end; procedure Tfrm_sys_parameters.load_text(i:integer;Ed:TEdit); begin t_sys_parameters_value.Locate('VL_ID',i,[]); Ed.text:=t_sys_parameters_value.FieldByName('参数值').asstring; end; procedure Tfrm_sys_parameters.save_text(i:integer;str:string); begin t_sys_parameters_value.Locate('VL_ID',i,[]); t_sys_parameters_value.Edit; t_sys_parameters_value['参数值']:=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['参数值']:='true'; t_sys_parameters_value.post; end else begin t_sys_parameters_value.Edit; t_sys_parameters_value['参数值']:='false'; t_sys_parameters_value.post; end; end; procedure Tfrm_sys_parameters.FormShow(Sender: TObject); begin t_sys_parameters.open; t_sys_parameters_value.open; bsSkinButton11Click(Sender); 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('参数值').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('参数值').asstring='业务编号' then bsSkinCheckRadioBox45.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='开船日期' then bsSkinCheckRadioBox46.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='委托编号' then bsSkinCheckRadioBox48.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='主提单号' then bsSkinCheckRadioBox47.Checked:=true; t_sys_parameters_value.Locate('VL_ID',54,[]); if t_sys_parameters_value.FieldByName('参数值').asstring='业务编号' then bsSkinCheckRadioBox49.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='进口日期' then bsSkinCheckRadioBox51.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='委托编号' then bsSkinCheckRadioBox50.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='主提单号' then bsSkinCheckRadioBox52.Checked:=true; t_sys_parameters_value.Locate('VL_ID',55,[]); if t_sys_parameters_value.FieldByName('参数值').asstring='业务编号' then bsSkinCheckRadioBox53.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='一程开航日期' then bsSkinCheckRadioBox55.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='委托编号' then bsSkinCheckRadioBox54.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='主运单号' then bsSkinCheckRadioBox56.Checked:=true; t_sys_parameters_value.Locate('VL_ID',56,[]); if t_sys_parameters_value.FieldByName('参数值').asstring='业务编号' then bsSkinCheckRadioBox57.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='进口日期' then bsSkinCheckRadioBox59.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='委托编号' then bsSkinCheckRadioBox58.Checked:=true; if t_sys_parameters_value.FieldByName('参数值').asstring='主运单号' then bsSkinCheckRadioBox60.Checked:=true; end; 17: begin bsSkinNotebook1.PageIndex:=13; frm_sys_parameters.load_text(77,Edit31); frm_sys_parameters.load_text(78,Edit32); frm_sys_parameters.load_text(79,Edit33); frm_sys_parameters.load_text(80,Edit34); // frm_sys_parameters.load_text(81,Edit35); end; 18: begin bsSkinNotebook1.PageIndex:=14; frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',134,[]); for i:=0 to bsSkinRadioGroup1.Items.Count-1 do begin if bsSkinRadioGroup1.Items.Strings[i]=Trim(frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString) then bsSkinRadioGroup1.ItemIndex:=i; end; frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',136,[]); for i:=0 to bsSkinRadioGroup2.Items.Count-1 do begin if bsSkinRadioGroup2.Items.Strings[i]=Trim(frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString) then bsSkinRadioGroup2.ItemIndex:=i; end; frm_sys_parameters.load_true_false(149,bsSkinCheckRadioBox120,bsSkinCheckRadioBox121); frm_sys_parameters.load_true_false(154,bsSkinCheckRadioBox130,bsSkinCheckRadioBox131); end; 19: begin bsSkinNotebook1.PageIndex:=15; frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',137,[]); bsSkinRadioGroup3.ItemIndex:=strtointdef(frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString,0); frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',138,[]); bsSkinRadioGroup4.ItemIndex:=strtointdef(frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString,0); frm_sys_parameters.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['参数值']:='业务编号'; if bsSkinCheckRadioBox46.Checked then t_sys_parameters_value['参数值']:='开船日期'; if bsSkinCheckRadioBox48.Checked then t_sys_parameters_value['参数值']:='委托编号'; if bsSkinCheckRadioBox47.Checked then t_sys_parameters_value['参数值']:='主提单号'; t_sys_parameters_value.post; t_sys_parameters_value.Locate('VL_ID',54,[]); t_sys_parameters_value.Edit; if bsSkinCheckRadioBox49.Checked then t_sys_parameters_value['参数值']:='业务编号'; if bsSkinCheckRadioBox51.Checked then t_sys_parameters_value['参数值']:='进口日期'; if bsSkinCheckRadioBox50.Checked then t_sys_parameters_value['参数值']:='委托编号'; if bsSkinCheckRadioBox52.Checked then t_sys_parameters_value['参数值']:='主提单号'; t_sys_parameters_value.post; t_sys_parameters_value.Locate('VL_ID',55,[]); t_sys_parameters_value.Edit; if bsSkinCheckRadioBox53.Checked then t_sys_parameters_value['参数值']:='业务编号'; if bsSkinCheckRadioBox55.Checked then t_sys_parameters_value['参数值']:='一程开航日期'; if bsSkinCheckRadioBox54.Checked then t_sys_parameters_value['参数值']:='委托编号'; if bsSkinCheckRadioBox56.Checked then t_sys_parameters_value['参数值']:='主运单号'; t_sys_parameters_value.post; t_sys_parameters_value.Locate('VL_ID',56,[]); t_sys_parameters_value.Edit; if bsSkinCheckRadioBox57.Checked then t_sys_parameters_value['参数值']:='业务编号'; if bsSkinCheckRadioBox59.Checked then t_sys_parameters_value['参数值']:='进口日期'; if bsSkinCheckRadioBox58.Checked then t_sys_parameters_value['参数值']:='委托编号'; if bsSkinCheckRadioBox60.Checked then t_sys_parameters_value['参数值']:='主运单号'; t_sys_parameters_value.post; end; 6: begin frm_sys_parameters.save_true_false(12,bsSkinCheckRadioBox25); frm_sys_parameters.save_true_false(62,bsSkinCheckRadioBox66); frm_sys_parameters.save_true_false(121,bsSkinCheckRadioBox94); frm_sys_parameters.save_true_false(63,bsSkinCheckRadioBox68); frm_sys_parameters.save_true_false(64,bsSkinCheckRadioBox70); frm_sys_parameters.save_true_false(66,bsSkinCheckRadioBox72); frm_sys_parameters.save_true_false(110,bsSkinCheckRadioBox84); frm_sys_parameters.save_true_false(111,bsSkinCheckRadioBox86); frm_sys_parameters.save_true_false(112,bsSkinCheckRadioBox88); frm_sys_parameters.save_true_false(115,bsSkinCheckRadioBox90); frm_sys_parameters.save_true_false(133,bsSkinCheckRadioBox104); frm_sys_parameters.save_true_false(148,bsSkinCheckRadioBox118); frm_sys_parameters.save_true_false(153,bsSkinCheckRadioBox128); try strtoint(Edit24.text); except showmessage('费用小数精度只能输入数字！！'); exit; end; if (strtoint(Edit24.text)<2)or(strtoint(Edit24.text)>4)then begin showmessage('费用小数精度只能为2到4位！！'); exit; end; frm_sys_parameters.save_text(65,Edit24.text); str:='alter table t_ch_fee alter column 金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_fee alter column 开票金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_fee alter column 结算金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_fee alter column 冲抵金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_balance alter column 结算金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_balance alter column 实结金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_balance alter column 虚结金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_check alter column 申请金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_check alter column 实际金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_check alter column 虚开金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_invoice_shen alter column 申请金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_invoice_shen alter column 实际金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_invoice_shen alter column 虚开金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_fee_do alter column 原始金额 [numeric](18, '+get_parameters_value(65,'2')+')'; str:=str+' alter table t_ch_fee_do alter column 金额 [numeric](18, '+get_parameters_value(65,'2')+')'; p_update.Parameters.ParamByName('SQLStr').value:=str; p_update.ExecProc; end; 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('上班时间只能输入数字，保存失败！！'); 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('天数只能输入数字！！'); exit; end; frm_sys_parameters.save_text(29,Edit19.text); try strtoint(Edit20.text); except showmessage('天数只能输入数字！！'); exit; end; frm_sys_parameters.save_text(37,Edit20.text); frm_sys_parameters.save_true_false(30,bsSkinCheckRadioBox17); frm_sys_parameters.save_true_false(38,bsSkinCheckRadioBox27); frm_sys_parameters.save_true_false(145,bsSkinCheckRadioBox115); frm_sys_parameters.save_true_false(39,bsSkinCheckRadioBox29); frm_sys_parameters.save_true_false(122,bsSkinCheckRadioBox96); frm_sys_parameters.save_true_false(46,bsSkinCheckRadioBox37); frm_sys_parameters.save_true_false(47,bsSkinCheckRadioBox39); frm_sys_parameters.save_true_false(81,bsSkinCheckRadioBox74); frm_sys_parameters.save_text(82,Edit36.text); frm_sys_parameters.save_true_false(83,bsSkinCheckRadioBox76); frm_sys_parameters.save_true_false(84,bsSkinCheckRadioBox78); frm_sys_parameters.save_true_false(85,bsSkinCheckRadioBox80); frm_sys_parameters.save_true_false(86,bsSkinCheckRadioBox82); frm_sys_parameters.save_true_false(150,bsSkinCheckRadioBox122); frm_sys_parameters.save_true_false(152,bsSkinCheckRadioBox126); 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 是否启用=0 where fmoduleid=412'; p_update.Parameters.ParamByName('SQLStr').value:=str; p_update.ExecProc; end else begin str:=str+' update t_sys_module set 是否启用=1 where fmoduleid=412'; p_update.Parameters.ParamByName('SQLStr').value:=str; p_update.ExecProc; end; } frm_sys_parameters.save_text(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('参数值').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('基准只能输入数字！！'); 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('基准只能输入数字！！'); 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('参数值').AsString:=bsSkinRadioGroup1.Items.Strings[bsSkinRadioGroup1.ItemIndex]; frm_sys_parameters.t_sys_parameters_value.post; frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',136,[]); frm_sys_parameters.t_sys_parameters_value.Edit; frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString:=bsSkinRadioGroup2.Items.Strings[bsSkinRadioGroup2.ItemIndex]; frm_sys_parameters.t_sys_parameters_value.post; frm_sys_parameters.save_true_false(149,bsSkinCheckRadioBox120); frm_sys_parameters.save_true_false(154,bsSkinCheckRadioBox130); end; 19: begin frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',137,[]); frm_sys_parameters.t_sys_parameters_value.Edit; frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString:=inttostr(bsSkinRadioGroup3.ItemIndex); frm_sys_parameters.t_sys_parameters_value.post; frm_sys_parameters.t_sys_parameters_value.Locate('VL_ID',138,[]); frm_sys_parameters.t_sys_parameters_value.Edit; frm_sys_parameters.t_sys_parameters_value.FieldByName('参数值').AsString:=inttostr(bsSkinRadioGroup4.ItemIndex); frm_sys_parameters.t_sys_parameters_value.post; frm_sys_parameters.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('参数值').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('参数值').asstring; end; end.