unitfieldmanage.pas

绿色衡器称重系统(串口）

unit unitFieldManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,Inifiles;

type
  TfrmFieldManage = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFieldManage: TfrmFieldManage;

implementation

uses unitMain, unitJoin;

{$R *.dfm}

procedure TfrmFieldManage.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TfrmFieldManage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 frmFieldManage:=nil;
 Action:=caFree;
end;

procedure TfrmFieldManage.BitBtn1Click(Sender: TObject);
var
 str:String;
 fini:TIniFile;
begin
 try
  str:=ExtractFilePath(Paramstr(0))+'FieldManage.dyh';
  fini:=TIniFile.Create(str);
  fini.WriteBool('FieldManage','ListID',CheckBox1.Checked);
  fini.WriteBool('FieldManage','ChePai',CheckBox2.Checked);
  fini.WriteBool('FieldManage','ChePaiN',CheckBox3.Checked);
  fini.WriteBool('FieldManage','FaHuoDW',CheckBox5.Checked);
  fini.WriteBool('FieldManage','ShouHuoDW',CheckBox4.Checked);
  fini.WriteBool('FieldManage','HuoPin',CheckBox6.Checked);
  fini.WriteBool('FieldManage','MaoZhong',CheckBox7.Checked);
  fini.WriteBool('FieldManage','MaoZhongRQ',CheckBox8.Checked);
  fini.WriteBool('FieldManage','PiZhong',CheckBox9.Checked);
  fini.WriteBool('FieldManage','PiZhongRQ',CheckBox10.Checked);
  fini.WriteBool('FieldManage','JingZhong',CheckBox11.Checked);
  fini.WriteBool('FieldManage','JingZhongRQ',CheckBox12.Checked);
  fini.WriteBool('FieldManage','SiBangYuan',CheckBox13.Checked);
  fini.Free;
  frmMain.DBGrid1.Columns[0].Visible:=CheckBox1.Checked;
  frmMain.DBGrid1.Columns[1].Visible:=CheckBox2.Checked;
  frmMain.DBGrid1.Columns[2].Visible:=CheckBox3.Checked;
  frmMain.DBGrid1.Columns[3].Visible:=CheckBox4.Checked;
  frmMain.DBGrid1.Columns[4].Visible:=CheckBox5.Checked;
  frmMain.DBGrid1.Columns[5].Visible:=CheckBox6.Checked;
  frmMain.DBGrid1.Columns[6].Visible:=CheckBox7.Checked;
  frmMain.DBGrid1.Columns[7].Visible:=CheckBox8.Checked;
  frmMain.DBGrid1.Columns[8].Visible:=CheckBox9.Checked;
  frmMain.DBGrid1.Columns[9].Visible:=CheckBox10.Checked;
  frmMain.DBGrid1.Columns[10].Visible:=CheckBox11.Checked;
  frmMain.DBGrid1.Columns[11].Visible:=CheckBox12.Checked;
  frmMain.DBGrid1.Columns[12].Visible:=CheckBox13.Checked;
  Close;
  MessageBox(handle,'保存成功！',pChar(ClientUSN),MB_OK+MB_ICONINFORMATION);
  except
  MessageBox(handle,'保存失败！',pChar(ClientUSN),MB_OK+MB_ICONINFORMATION);
 end;
end;

procedure TfrmFieldManage.FormShow(Sender: TObject);
var
 str:String;
 fini:TIniFile;
begin
 try
  str:=ExtractFilePath(Paramstr(0))+'FieldManage.dyh';
  fini:=TIniFile.Create(str);
  CheckBox1.Checked:=fini.ReadBool('FieldManage','ListID',CheckBox1.Checked);
  CheckBox2.Checked:=fini.ReadBool('FieldManage','ChePai',CheckBox2.Checked);
  CheckBox3.Checked:=fini.ReadBool('FieldManage','ChePaiN',CheckBox3.Checked);
  CheckBox5.Checked:=fini.ReadBool('FieldManage','FaHuoDW',CheckBox5.Checked);
  CheckBox4.Checked:=fini.ReadBool('FieldManage','ShouHuoDW',CheckBox4.Checked);
  CheckBox6.Checked:=fini.ReadBool('FieldManage','HuoPin',CheckBox6.Checked);
  CheckBox7.Checked:=fini.ReadBool('FieldManage','MaoZhong',CheckBox7.Checked);
  CheckBox8.Checked:=fini.ReadBool('FieldManage','MaoZhongRQ',CheckBox8.Checked);
  CheckBox9.Checked:=fini.ReadBool('FieldManage','PiZhong',CheckBox9.Checked);
  CheckBox10.Checked:=fini.ReadBool('FieldManage','PiZhongRQ',CheckBox10.Checked);
  CheckBox11.Checked:=fini.ReadBool('FieldManage','JingZhong',CheckBox11.Checked);
  CheckBox12.Checked:=fini.ReadBool('FieldManage','JingZhongRQ',CheckBox12.Checked);
  CheckBox13.Checked:=fini.ReadBool('FieldManage','SiBangYuan',CheckBox13.Checked);
  fini.Free;
 except
 end;
end;

end.