sysform.~pas

简单的餐饮软件部分源码

unit sysform;

interface

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

type
  Tfsysetup = class(TForm)
    cbox1: TCheckBox;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    bit1: TBitBtn;
    bit2: TBitBtn;
    opend1: TOpenDialog;
    cbox2: TCheckBox;
    cbox3: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure bit2Click(Sender: TObject);
    procedure cbox2Click(Sender: TObject);
    procedure cbox3Click(Sender: TObject);
    procedure bit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fsysetup: Tfsysetup;

implementation
uses SnackDM;
{$R *.dfm}

procedure Tfsysetup.FormCreate(Sender: TObject);
begin
 self.Caption:=datam.SPLanguage.ReadString('captions','00106','');
 cbox1.Caption:=datam.SPLanguage.ReadString('captions','00107','');
 cbox2.Caption:=datam.SPLanguage.ReadString('captions','00109','');
 cbox3.Caption:=datam.SPLanguage.ReadString('captions','00117','');

 label1.Caption:=datam.SPLanguage.ReadString('captions','00108','');
 bit1.Caption:=datam.SPLanguage.ReadString('captions','00061','');
 bit2.Caption:=datam.SPLanguage.ReadString('captions','00036','');
end;
procedure Tfsysetup.SpeedButton1Click(Sender: TObject);
begin
 opend1.Filter:='Exe files (*.exe)|*.exe|All files (*.*)|*.*';
 opend1.Execute;
 edit1.Text:=opend1.FileName;
end;

procedure Tfsysetup.bit2Click(Sender: TObject);
begin
 self.Close;
 self.Release;  
end;
procedure Tfsysetup.cbox2Click(Sender: TObject);
begin
 cbox3.Checked:=Not cbox2.Checked;
end;
procedure Tfsysetup.cbox3Click(Sender: TObject);
begin
 cbox2.Checked:=Not cbox3.Checked;
end;
procedure Tfsysetup.bit1Click(Sender: TObject);
Var Ymstr1,Ymstr2:string;
begin
 if cbox1.Checked then Ymstr1:='Ym' else Ymstr1:='Um';
 if cbox3.Checked then Ymstr2:='Ym' else Ymstr2:='Um';
 with datam.freeado do
   begin
    Close;
    SQL.Clear;
    SQL.Add('Update snsystemsetup set cboxpath='''+edit1.Text+''',paymore='''+Ymstr1+''',casher='''+Ymstr2+'''');
    ExecSQL;
   end;
 messagebeep(0);
 messagebox(0,PChar(''+DataM.SPLanguage.ReadString('msgbox','0038','')+''),PChar(''+DataM.SPLanguage.ReadString('msgbox','0039','')+''),MB_ICONEXCLAMATION or MB_OK);
 bit2Click(Sender);
end;
end.