gnsz.pas

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

unit gnsz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DB, DBTables, ExtDlgs, ComCtrls, Grids, DBGrids,
  StdCtrls, Buttons, ADODB;

type
  TgnszForm = class(TForm)
    Bevel22: TBevel;
    Bevel2: TBevel;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    SpeedButton2: TSpeedButton;
    Image1: TImage;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    Edit5: TEdit;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Edit6: TEdit;
    BitBtn2: TBitBtn;
    FontDialog1: TFontDialog;
    OpenPictureDialog1: TOpenPictureDialog;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    BitBtn3: TBitBtn;
    Query1: TADOQuery;
    Query1id: TAutoIncField;
    Query1lbbm: TStringField;
    Query1mc: TStringField;
    Query1ywmc: TStringField;
    Query1ys: TIntegerField;
    Query1zt: TStringField;
    Query1zh: TIntegerField;
    Query1bz: TStringField;
    Query1dycdbh: TStringField;
    Query1zxh: TIntegerField;
    Query1cxh: TIntegerField;
    Query3: TADOQuery;
    Query4: TADOQuery;
    Query2: TADOQuery;
    Query3id: TAutoIncField;
    Query3lbbm: TStringField;
    Query3lbmc: TStringField;
    Query3fwfbl: TIntegerField;
    Query3fwf: TIntegerField;
    Query3zkbl: TIntegerField;
    Query3shuilv: TIntegerField;
    Query2bh: TStringField;
    Query2lbbm: TStringField;
    Query2mc: TStringField;
    Query2ywmc: TStringField;
    Query2gg: TStringField;
    Query2dj: TBCDField;
    Query2tcbz: TBooleanField;
    Query2zt: TBooleanField;
    Query2sfkj: TBooleanField;
    Query2zkdl: TBooleanField;
    Query2zkl: TIntegerField;
    Query2fwfdl: TBooleanField;
    Query2fwfl: TIntegerField;
    Query2shuilu: TIntegerField;
    Query2cfdy: TBooleanField;
    Query2cfdyjhm: TStringField;
    Query2ccjdyjhm: TStringField;
    BitBtn4: TBitBtn;
    Query4lbbm: TStringField;
    Query4zxh: TIntegerField;
    Query4lbmc: TStringField;
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Query3FilterRecord(DataSet: TDataSet; var Accept: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure lbttClick(Sender: TObject);
    procedure bbttClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    lb:array[1..50] of string;
    lbtt:array[1..50] of Tbitbtn;
    bbtt:array[1..50,1..100] of Tbitbtn;
    ls:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gnszForm: TgnszForm;

implementation

uses ImageWin, moveU,rjsmain;

{$R *.dfm}

procedure TgnszForm.FormActivate(Sender: TObject);
var i,j:integer;
begin
     query1.Open;
     query2.Open;
     query3.Open;
     query3.Filtered:=false;
     query3.First;
     ls:='';
     query4.Open;
     while not query4.Eof do
     begin
       i:=query4zxh.AsInteger;
       lbtt[i].Caption:=query4lbmc.AsString;
       lb[i]:=query4lbbm.AsString;
       query4.Next;
     end;
     query4.Close;
     query1.First;
     while not query1.Eof do
     begin
        bbtt[query1zxh.AsInteger,query1cxh.AsInteger].Caption:=query1mc.AsString;
        bbtt[query1zxh.AsInteger,query1cxh.AsInteger].Font.Color:=query1ys.AsInteger;
        bbtt[query1zxh.AsInteger,query1cxh.AsInteger].Font.Size:=query1zh.AsInteger;
        bbtt[query1zxh.AsInteger,query1cxh.AsInteger].Font.Name:=query1zt.AsString;
        if query1bz.AsString<>'' then bbtt[query1zxh.AsInteger,query1cxh.AsInteger].Glyph.LoadFromFile(query1bz.AsString);
        query1.Next;
     end;
    edit6.Text:='1';
    j:=strtoint(edit6.Text);
    for i:=1 to 100 do
    begin
      bbtt[j,i].BringToFront;
      bbtt[j,i].Visible:=true;
    end;
    edit1.Text:='';
    if edit6.Text<>'' then begin
      query3.Filtered:=false;
      query3.Filtered:=true;
    end;
     ls:='aa';
end;

procedure TgnszForm.Timer1Timer(Sender: TObject);
var i,rrow,ccol:integer;
    st:string;
begin
    if activecontrol.ClassType=Tbitbtn then
    if copy(activecontrol.Name,1,3)='sp_' then
    begin
       st:=trim(copy(activecontrol.Name,4,6));
       i:=pos('_',st);
       rrow:=strtoint(copy(st,1,i-1));
       ccol:=strtoint(copy(st,i+1,3));
       edit6.Text:=copy(st,1,i-1);
       edit1.Text:=copy(st,i+1,3);
       if screen.Cursor=crhelp then begin
        if bbtt[rrow,ccol].Caption<>'' then
         if messagedlg('撤消'+edit6.Text+' 区'+edit1.text+' 键 的设置吗？'+#13+'Yes__撤消  No__保留!'+#13+'请选择!',mtwarning,[mbyes,mbno],0)=mryes then
         begin
          if query1.Locate('zxh;cxh',vararrayof([edit6.text,edit1.text]),[]) then
           begin
            query1.Delete;
            bbtt[rrow,ccol].Caption:='';
            bbtt[rrow,ccol].Glyph:=nil;
           end;
         end;
//         exit;
       end
       else if bbtt[rrow,ccol].Caption<>'' then
         begin
          edit2.Text:=bbtt[rrow,ccol].Font.Name;
          edit3.Text:=inttostr(bbtt[rrow,ccol].Font.Size);
          label5.Color:=bbtt[rrow,ccol].Font.Color;
         end
         else begin
          edit2.Text:='';
          edit3.Text:='';
          label5.Color:=clbtnface;
         end;
        edit5.Text:=bbtt[rrow,ccol].Caption;
      end;
end;

procedure TgnszForm.BitBtn2Click(Sender: TObject);
begin
    if screen.Cursor=crdefault then screen.Cursor:=crhelp
    else screen.Cursor:=crdefault;
end;

procedure TgnszForm.DBGrid1DblClick(Sender: TObject);
begin
     if edit6.Text='' then begin
       messagedlg('请选择待定义的区域！',mtwarning,[mbok],0);
       exit;
     end;
     if edit1.Text='' then begin
       messagedlg('请选择待定义的按键！',mtwarning,[mbok],0);
       exit;
     end;
     if (edit1.Text<>'') and (edit6.Text<>'') then
      if bbtt[strtoint(edit6.Text),strtoint(edit1.Text)].Caption<>'' then
      begin
        query1.Locate('zxh;cxh',vararrayof([edit6.text,edit1.text]),[]);
        query1.Edit;
        query1dycdbh.AsString:=query2.FieldByName('bh').AsString;
        query1mc.AsString:=query2.FieldByName('mc').AsString;
        query1ywmc.AsString:=query2.FieldByName('ywmc').AsString;
        query1.Post;
      end
      else
      begin
        query1.Append;
        query1zxh.AsString:=edit6.Text;
        query1cxh.AsString:=edit1.Text;
        query1lbbm.Value:=query3lbbm.AsString;
        query1dycdbh.AsString:=query2.FieldByName('bh').AsString;
        query1mc.AsString:=query2.FieldByName('mc').AsString;
        query1ywmc.AsString:=query2.FieldByName('ywmc').AsString;
        query1zt.AsString:=FontDialog1.Font.Name;
        query1zh.AsString:=inttostr(FontDialog1.Font.size);
        query1ys.AsString:=inttostr(FontDialog1.Font.color);
        query1.Post;
      end;
     edit5.Text:=query2.FieldByName('mc').AsString;
     bbtt[strtoint(edit6.Text),strtoint(edit1.Text)].Caption:=query2.FieldByName('mc').AsString;
end;

procedure TgnszForm.BitBtn1Click(Sender: TObject);
begin
     if query1.Modified then query1.Post;
end;

procedure TgnszForm.SpeedButton2Click(Sender: TObject);
begin
     if edit6.Text='' then begin
       messagedlg('请选择待定义的区域！',mtwarning,[mbok],0);
       exit;
     end;
     if edit1.Text='' then begin
       messagedlg('请选择待定义的按键！',mtwarning,[mbok],0);
       exit;
     end;
  imageform.BitBtn1.Caption:=bbtt[strtoint(edit6.Text),strtoint(edit1.Text)].Caption;
  imageform.BitBtn1.Font.Color:=bbtt[strtoint(edit6.Text),strtoint(edit1.Text)].Font.Color;
  imageform.BitBtn1.Font.Size:=bbtt[strtoint(edit6.Text),strtoint(edit1.Text)].Font.Size;
  imageform.BitBtn1.Font.Name:=bbtt[strtoint(edit6.Text),strtoint(edit1.Text)].Font.Name;
  imageform.BitBtn2.Caption:=bbtt[strtoint(edit6.Text),strtoint(edit1.Text)].Caption;
  imageform.BitBtn2.Font.Color:=bbtt[strtoint(edit6.Text),strtoint(edit1.Text)].Font.Color;
  imageform.BitBtn2.Font.Size:=bbtt[strtoint(edit6.Text),strtoint(edit1.Text)].Font.Size;
  imageform.BitBtn2.Font.Name:=bbtt[strtoint(edit6.Text),strtoint(edit1.Text)].Font.Name;
  if imageform.showmodal =mrok then begin
    edit4.Text:=imageform.FileListBox1.FileName;
    image1.Picture.LoadFromFile(trim(edit4.Text));
     if (edit1.Text<>'') and (edit6.Text<>'') then
      if query1.Locate('zxh;cxh',vararrayof([edit6.text,edit1.text]),[]) then
      begin
        query1.Edit;
        query1bz.AsString:=edit4.Text;
        query1.Post;