pass.pas

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

unit pass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, jpeg, StdCtrls, ComCtrls, Db, DBTables, Buttons, ADODB;

type
  TuserForm = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Label1: TLabel;
    dtp1: TDateTimePicker;
    Label2: TLabel;
    cb1: TComboBox;
    Label3: TLabel;
    Edit1: TEdit;
    Q1: TQuery;
    Q2: TQuery;    
    SpeedButton764: TSpeedButton;
    SpeedButton765: TSpeedButton;
    SpeedButton766: TSpeedButton;
    SpeedButton761: TSpeedButton;
    SpeedButton762: TSpeedButton;
    SpeedButton763: TSpeedButton;
    SpeedButton758: TSpeedButton;
    SpeedButton759: TSpeedButton;
    SpeedButton760: TSpeedButton;
    SpeedButton757: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure cb1KeyPress(Sender: TObject; var Key: Char);
    procedure cb1Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton757Click(Sender: TObject);
    procedure SpeedButton758Click(Sender: TObject);
    procedure SpeedButton759Click(Sender: TObject);
    procedure SpeedButton760Click(Sender: TObject);
    procedure SpeedButton761Click(Sender: TObject);
    procedure SpeedButton762Click(Sender: TObject);
    procedure SpeedButton763Click(Sender: TObject);
    procedure SpeedButton764Click(Sender: TObject);
    procedure SpeedButton765Click(Sender: TObject);
    procedure SpeedButton766Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userForm: TuserForm;
  yhbh,yhmc,twbh,twmc,yhqx,yhlx,nm,mm:string;
implementation
uses rjsmain,shuakaform;
{$R *.DFM}

procedure TuserForm.FormActivate(Sender: TObject);
var
i:integer;
begin
  adoquery1.Open;
  rjsmain.dwmc:=adoquery1.FieldValues['gs_office'];
  adoquery1.Close;
  userform.Caption:=rjsmain.dwmc+'餐饮管理引导';
  cb1.Items.Clear;
  dtp1.Date:=date;
  q1.Active:=true;
  q1.First;
  //cb1.Text:=q1.FieldByName('yhmc').AsString;
  for i := 0 to q1.RecordCount-1 do
  begin
   cb1.Items.Append(q1.FieldByName('yhmc').AsString);
   q1.Next;
  end;
  q1.Active:=false;
  cb1.SetFocus;
end;

procedure TuserForm.cb1KeyPress(Sender: TObject; var Key: Char);
begin
 if (cb1.Text<>'') and (key=chr(13)) then
    edit1.SetFocus
 else
 cb1.SetFocus;
end;

procedure TuserForm.cb1Exit(Sender: TObject);
begin
  q2.Active:=false;
  q2.Params[0].asstring:=cb1.Text;
  q2.Active:=true;
  if q2.RecordCount>0 then edit1.SetFocus
  else cb1.SetFocus;
end;

procedure TuserForm.Edit1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
  if (edit1.Text<>'') and (edit1.Text=q2.FieldByName('mm').AsString ) and (key=chr(13)) then
  begin
    yhbh:=q2.FieldByName('yhm').AsString;
    i:=pos(';',q2.FieldByName('twbh').AsString);
    yhmc:=q2.FieldByName('yhmc').AsString;
    twbh:=copy(q2.FieldByName('twbh').AsString,1,i-1);
    twmc:=q2.FieldByName('twmc').AsString;
    yhqx:=q2.FieldByName('jb').AsString;
    yhlx:=q2.FieldByName('lx').AsString;
    rjsmain.szdd:=q2.FieldByName('szdd').AsString;
    q1.Close;
    q2.Close;
    close;
    exit;
  end;
  if ((edit1.Text='') or (edit1.Text<>q2.FieldByName('mm').AsString )) and (key=chr(13)) then
  begin
    edit1.Text:='';
    edit1.SetFocus;
  end;
end;

procedure TuserForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     q1.Close;
     q2.Close;
end;           

procedure TuserForm.FormCreate(Sender: TObject);
begin
     yhbh:='';
     if fileexists(ExtractFilePath(Application.ExeName)+'登录画面.jpg') then image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'登录画面.jpg');
//     formshuaka:=Tformshuaka.Create(Self);
//     formshuaka.showmodal;
//     formshuaka.Free;
     cb1.Text :=nm;
     edit1.Text :=mm;
     if (cb1.text<>'') and (edit1.text<>'') then
      {begin
      edit1.SetFocus;
      SpeedButton2.click;
     end;  }

end;
      
procedure TuserForm.SpeedButton757Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'0';
end;

procedure TuserForm.SpeedButton758Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'1';
end;

procedure TuserForm.SpeedButton759Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'2';
end;

procedure TuserForm.SpeedButton760Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'3';
end;

procedure TuserForm.SpeedButton761Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'4';
end;

procedure TuserForm.SpeedButton762Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'5';
end;

procedure TuserForm.SpeedButton763Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'6';
end;

procedure TuserForm.SpeedButton764Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'7';
end;

procedure TuserForm.SpeedButton765Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'8';
end;

procedure TuserForm.SpeedButton766Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'9';
end;

procedure TuserForm.SpeedButton1Click(Sender: TObject);
begin
     edit1.Text:=edit1.Text+'.';
end;

procedure TuserForm.SpeedButton3Click(Sender: TObject);
begin
     edit1.Text:='';
end;

procedure TuserForm.SpeedButton2Click(Sender: TObject);
var aa:char;
begin
     cb1Exit(sender);
     aa:=chr(13);
     Edit1KeyPress(Sender,aa);
end;

procedure TuserForm.Button1Click(Sender: TObject);
begin
  if messagedlg('退出程序吗！',mtwarning,[mbYes, mbNo],0)=mryes then
  Application.Terminate
  else
  exit;
end;

end.