hygl.pas

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

unit hygl;

interface

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

type
  ThyForm = class(TForm)
    Panel2: TPanel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Panel4: TPanel;
    BitBtn4: TBitBtn;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    ExcelApplication1: TExcelApplication;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelWorkbook1: TExcelWorkbook;
    Panel3: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DataSource2: TDataSource;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DataSource3: TDataSource;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit3: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DTP2: TDateTimePicker;
    ADOQuery4: TADOQuery;
    ADOQuery1kh: TWideStringField;
    ADOQuery1zt: TStringField;
    ADOQuery1czyxm: TStringField;
    ADOQuery1yhlb: TStringField;
    ADOQuery1zwxm: TStringField;
    ADOQuery1ywxm: TStringField;
    ADOQuery1sfzhm: TStringField;
    ADOQuery1jrrq: TDateTimeField;
    ADOQuery1yxq: TDateTimeField;
    ADOQuery1hth: TStringField;
    ADOQuery1xfjf: TIntegerField;
    ADOQuery1ye: TIntegerField;
    ADOQuery1zjxfe: TIntegerField;
    ADOQuery1zjcs: TIntegerField;
    ADOQuery1dj: TIntegerField;
    ADOQuery1dh: TStringField;
    ADOQuery1sr: TDateTimeField;
    ADOQuery1ah: TStringField;
    ADOQuery1yb: TStringField;
    ADOQuery1gsmc: TStringField;
    ADOQuery1zw: TStringField;
    ADOQuery1gsdz: TStringField;
    ADOQuery1bz: TStringField;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    DBEdit9: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    Label24: TLabel;
    DBEdit23: TDBEdit;
    ADOQuery1dzyjdz: TStringField;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Formbtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn8Click(Sender: TObject);
    procedure DTP2CloseUp(Sender: TObject);
    procedure DBEdit9Exit(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    btn:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hyForm: ThyForm;
  func:string;
implementation

uses Searchhy;
{$R *.dfm}

procedure ThyForm.FormActivate(Sender: TObject);
begin
     if btn<>'' then exit;
     panel1.Enabled:=true;
     panel2.Enabled:=false;
     panel3.Enabled:=false;
     dbgrid1.Enabled:=true;
     adoquery3.Open;
     adoquery2.Open;
     adoquery1.Open;
end;

procedure ThyForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     btn:='';
     func:='';
     adoquery2.Close;
     adoquery3.Close;
     adoquery1.Close;
end;

procedure ThyForm.BitBtn4Click(Sender: TObject);
begin
     close;
end;
procedure ThyForm.formBtn;
begin
     dbgrid1.Enabled:=not dbgrid1.Enabled;
     panel1.Enabled:=not panel1.Enabled;
     panel2.Enabled:=not panel2.Enabled;
     panel3.Enabled:=not panel3.Enabled;
     if panel1.Enabled then bitbtn1.SetFocus else bitbtn5.SetFocus;
end;

procedure ThyForm.BitBtn5Click(Sender: TObject);
begin
     if (btn='add') or (btn='mod') then
     begin
       adoquery1.Post;
     end;
     if btn='del' then begin
       adoquery1.Delete;
     end;
     formBtn;
end;

procedure ThyForm.BitBtn6Click(Sender: TObject);
begin
     if (btn='add') or (btn='mod') then adoquery1.Cancel;
     formBtn;
end;

procedure ThyForm.BitBtn2Click(Sender: TObject);
begin
     formBtn;
     btn:='mod';
     adoquery1.Edit;
     DBedit9.SetFocus;
end;

procedure ThyForm.BitBtn1Click(Sender: TObject);
begin
     formBtn;
     btn:='add';
     adoquery1.Append;
     dtp2.Time:=time;
     dtp2.Date:=date;
     adoquery1jrrq.AsDateTime:=date;
     DBedit9.SetFocus;
end;

procedure ThyForm.BitBtn3Click(Sender: TObject);
begin
     formBtn;
     btn:='del';
end;

procedure ThyForm.FormCreate(Sender: TObject);
begin
     func:='';
     btn:='';
end;

procedure ThyForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=chr(13) then perform($28,0,0);
end;

procedure ThyForm.BitBtn8Click(Sender: TObject);
var
 i,row,column:integer;
begin
 Try
  ExcelApplication1.Connect;
 Except
  MessageDlg('Excel 没有安装,无法报表！！',
  mtError, [mbOk], 0);
  Abort;
 End;
 ExcelApplication1.Visible[0]:=True;
 ExcelApplication1.Caption:='Excel 报表';
 ExcelApplication1.Workbooks.Add(Null,0);
 ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
 ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
 column:=1;
 for i:=1 to adoquery1.FieldCount do
   begin
    ExcelWorksheet1.Cells.Item[1,column]:=adoquery1.fields[i-1].FieldName;
    column:=column+1;
   end;
 row:=2;
 adoquery1.First;
 While Not(adoquery1.Eof) do
 begin
   column:=1;
   for i:=1 to adoquery1.FieldCount do
   begin
    ExcelWorksheet1.Cells.Item[row,column]:=adoquery1.fields[i-1].AsString;
    column:=column+1;
   end;
   adoquery1.Next;
   row:=row+1;
 end;
 ExcelApplication1.Visible[0]:=true;
 ExcelApplication1.ActiveWorkbook.Save(0);
 ExcelApplication1.Save('会员编码表.xls');
 ExcelApplication1.Workbooks.Close(1);
 ExcelApplication1.Visible[0]:=false;
 ExcelApplication1.Quit;
end;

procedure ThyForm.DTP2CloseUp(Sender: TObject);
begin
     adoquery1jrrq.AsDateTime:=dtp2.DateTime;
end;

procedure ThyForm.DBEdit9Exit(Sender: TObject);
begin
     if btn<>'add' then exit;
     adoquery4.Close;
     adoquery4.Parameters.ParamByName('cs1').Value:=adoquery1kh.AsString;
     adoquery4.Open;
     if adoquery4.RecordCount>0 then
     begin
       showmessage('该卡号已被占用！');
       dbedit9.SetFocus;
     end;
     adoquery4.Close;
end;

procedure ThyForm.BitBtn7Click(Sender: TObject);
begin
     searchform:=Tsearchform.Create(self);
     searchform.ShowModal;
     searchform.Free;
end;

end.