optionunit.pas

很不错的软件请使用

unit OptionUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, TFlatGroupBoxUnit,
  RXCtrls, XPMenu, DB, ADODB;

type
  TOptionFrm = class(TForm)
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    BitBtn7: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    RxLabel1: TRxLabel;
    RxLabel2: TRxLabel;
    RxLabel3: TRxLabel;
    RxLabel4: TRxLabel;
    RxLabel5: TRxLabel;
    RxLabel6: TRxLabel;
    RxLabel7: TRxLabel;
    RxLabel8: TRxLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    RxLabel9: TRxLabel;
    RxLabel10: TRxLabel;
    RxLabel11: TRxLabel;
    RxLabel12: TRxLabel;
    RxLabel13: TRxLabel;
    RxLabel14: TRxLabel;
    RxLabel15: TRxLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    XPMenu1: TXPMenu;
    ADOTable1: TADOTable;
    RxLabel16: TRxLabel;
    GroupBox2: TGroupBox;
    RxLabel17: TRxLabel;
    RxLabel18: TRxLabel;
    RxLabel19: TRxLabel;
    RxLabel20: TRxLabel;
    RxLabel21: TRxLabel;
    RxLabel22: TRxLabel;
    RxLabel23: TRxLabel;
    RxLabel24: TRxLabel;
    RxLabel25: TRxLabel;
    RxLabel26: TRxLabel;
    RxLabel27: TRxLabel;
    RxLabel28: TRxLabel;
    RxLabel29: TRxLabel;
    RxLabel30: TRxLabel;
    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;
    CheckBox14: TCheckBox;
    ADOTable2: TADOTable;
    procedure onclose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OptionFrm: TOptionFrm;

implementation

uses MainDataModule, MainFormUnit;

{$R *.dfm}

procedure TOptionFrm.onclose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TOptionFrm.FormCreate(Sender: TObject);
begin
try
 ADOTable1.Active:=false;
 ADOTable1.TableName:='FieldsNewName';
 ADOTable1.Active:=true;
 with ADOTable1 do
 begin
  edit1.text:=fields[0].asstring;
  edit2.text:=fields[1].asstring;
  edit3.text:=fields[2].asstring;
  edit4.text:=fields[3].asstring;
  edit5.text:=fields[4].asstring;
  edit6.text:=fields[5].asstring;
  edit7.text:=fields[6].asstring;
  edit8.text:=fields[7].asstring;
  edit9.text:=fields[8].asstring;
  edit10.text:=fields[9].asstring;
  edit11.text:=fields[10].asstring;
  edit12.text:=fields[11].asstring;
  edit13.text:=fields[12].asstring;
  edit14.text:=fields[13].asstring;
 end;
 ADOTable2.Active:=false;
 ADOTable2.Active:=false;
 ADOTable2.TableName:='FieldsSelect';
 ADOTable2.Active:=true;
 with ADOTable2 do
 begin
  checkbox4.Checked:=fields[0].asboolean;
  checkbox5.Checked:=fields[1].asboolean;
  checkbox6.Checked:=fields[2].asboolean;
  checkbox7.Checked:=fields[3].asboolean;
  checkbox8.Checked:=fields[4].asboolean;
  checkbox9.Checked:=fields[5].asboolean;
  checkbox10.Checked:=fields[6].asboolean;
  checkbox11.Checked:=fields[7].asboolean;
  checkbox12.Checked:=fields[8].asboolean;
  checkbox13.Checked:=fields[9].asboolean;
  checkbox14.Checked:=fields[10].asboolean;
 end;
 ADOTable2.Active:=false;
except
 MessageBox(Handle,'数据库占用或非法操作！','系统信息',MB_OK+MB_ICONWARNING);
 exit;
end;
end;

procedure TOptionFrm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TOptionFrm.BitBtn1Click(Sender: TObject);
begin
 if pagecontrol1.ActivePage=tabsheet1 then
 begin
  try
   ADOTable1.Active:=false;
   ADOTable1.TableName:='FieldsNewName';
   ADOTable1.Active:=true;
   with ADOTable1 do
    begin
    edit;
    fields[0].asstring:=edit1.text;
    fields[1].asstring:=edit2.text;
    fields[2].asstring:=edit3.text;
    fields[3].asstring:=edit4.text;
    fields[4].asstring:=edit5.text;
    fields[5].asstring:=edit6.text;
    fields[6].asstring:=edit7.text;
    fields[7].asstring:=edit8.text;
    fields[8].asstring:=edit9.text;
    fields[9].asstring:=edit10.text;
    fields[10].asstring:=edit11.text;
    fields[11].asstring:=edit12.text;
    fields[12].asstring:=edit13.text;
    fields[13].asstring:=edit14.text;
    post;
   end;
    ADOTable1.Active:=false;
    MessageBox(Handle,'数据更新成功！请重新启动程序！','系统信息',MB_OK+MB_ICONinformation);
    exit;
   except
    MessageBox(Handle,'数据库占用或非法操作！','系统信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
  end else
  try
   ADOTable2.Active:=false;
   ADOTable2.TableName:='FieldsSelect';
   ADOTable2.Active:=true;
   with ADOTable2 do
    begin
    edit;
    fields[0].asboolean:=checkbox4.Checked;
    fields[1].asboolean:=checkbox5.Checked;
    fields[2].asboolean:=checkbox6.Checked;
    fields[3].asboolean:=checkbox7.Checked;
    fields[4].asboolean:=checkbox8.Checked;
    fields[5].asboolean:=checkbox9.Checked;
    fields[6].asboolean:=checkbox10.Checked;
    fields[7].asboolean:=checkbox11.Checked;
    fields[8].asboolean:=checkbox12.Checked;
    fields[9].asboolean:=checkbox13.Checked;
    fields[10].asboolean:=checkbox14.Checked;
    post;
   end;
    ADOTable2.Active:=false;
    MessageBox(Handle,'数据更新成功！请重新启动程序！','系统信息',MB_OK+MB_ICONinformation);
    exit;
   except
    MessageBox(Handle,'数据库占用或非法操作！','系统信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
end;

procedure TOptionFrm.BitBtn7Click(Sender: TObject);
begin
gethelp;
end;

end.