cmp.pas

酒店管理系统

unit CMP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, LvNeoForm, LvNeoButton, StdCtrls, DB, DBTables,
  HemisphereButton, DosMove;

type
  TForm3 = class(TForm)
    LvNeoForm1: TLvNeoForm;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label11: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    LvNeoButton1: TLvNeoButton;
    LvNeoButton2: TLvNeoButton;
    LvNeoButton3: TLvNeoButton;
    Table1: TTable;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    HemiBtn1: THemiBtn;
    LvNeoButton4: TLvNeoButton;
    GroupBox3: TGroupBox;
    HemiBtn2: THemiBtn;
    GroupBox4: TGroupBox;
    HemiBtn3: THemiBtn;
    Label12: TLabel;
    ComboBox3: TComboBox;
    Label13: TLabel;
    ComboBox4: TComboBox;
    Label14: TLabel;
    procedure LvNeoButton2Click(Sender: TObject);
    procedure LvNeoButton1Click(Sender: TObject);
    procedure LvNeoButton4Click(Sender: TObject);
    procedure HemiBtn1Click(Sender: TObject);
    procedure HemiBtn2Click(Sender: TObject);
    procedure HemiBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses XGform, findform, Unit6, Unit7, JHsystem;

{$R *.dfm}

procedure TForm3.LvNeoButton2Click(Sender: TObject);
begin
form3.Close;
form2.WindowState:=wsnormal;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
combobox1.text:='';
combobox2.text:='';
end;

procedure TForm3.LvNeoButton1Click(Sender: TObject);
begin
if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(combobox1.Text='')or(edit4.Text='')or(combobox2.Text='')or(edit6.Text='')or(edit7.Text='')or(edit8.Text='') then
messagebox(handle,'每一项的资料都必须填写完整！','警告',mb_ok+mb_iconwarning)
else
begin
try
with table1 do
begin
table1.Open;
//edit5.Text:=datetostr(date);
insert;
fieldbyname('菜名编号').AsString:=edit1.Text;
fieldbyname('菜名').AsString:=edit2.Text;
fieldbyname('菜类').AsString:=combobox1.Text;
try
fieldbyname('数量').AsString:=edit3.Text;
except
showmessage('“数量”输入有误，请在下面的“修改栏”重新输入！');
end;
try
fieldbyname('进货单价').AsString:=edit4.Text;
except
showmessage('“单价”输入有误，请在下面的“修改栏”重新输入！');
end;
fieldbyname('经手人').AsString:=edit6.Text;
fieldbyname('货品单位').AsString:=combobox2.Text;
try
fieldbyname('收货日期').AsString:=edit5.Text+'-'+combobox3.Text+'-'+combobox4.Text;
except
messagebox(form3.Handle,'修改日期的格式不对！'+#13#10+'格式为：年－月－日'#13#10+'请在“修改栏”重新输入！','提示',mb_ok+mb_iconinformation);
end;
fieldbyname('货源公司').AsString:=edit7.Text;
fieldbyname('运货公司').AsString:=edit8.Text;
post;
//if table1.Active=true then
if messagebox(form3.handle,'此记录已保存！','提示',mb_ok+mb_iconinformation)=mrok then
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
combobox1.text:='';
combobox2.text:='';
end;
end;
except
messagebox(handle,'此记录已在在！','警告',mb_ok+mb_iconwarning);
table1.Close;
edit1.SetFocus;
table1.Open;
end;
end;
end;
procedure TForm3.LvNeoButton4Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm3.HemiBtn1Click(Sender: TObject);
begin
form3.WindowState:=wsminimized;
form4.showmodal;
end;

procedure TForm3.HemiBtn2Click(Sender: TObject);
begin
form3.WindowState:=wsminimized;
form6.ShowModal;
end;

procedure TForm3.HemiBtn3Click(Sender: TObject);
begin
form3.WindowState:=wsminimized;
form7.Showmodal;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
form3.Left:=155;
form3.Top:=53;
end;

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
combobox1.SetFocus;
end;

procedure TForm3.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit3.SetFocus;
end;

procedure TForm3.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit4.SetFocus;
end;

procedure TForm3.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit5.SetFocus;
end;

procedure TForm3.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
combobox2.SetFocus;
end;

procedure TForm3.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
combobox3.SetFocus;
end;

procedure TForm3.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
combobox4.SetFocus;
end;

procedure TForm3.ComboBox4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit6.SetFocus;
end;

procedure TForm3.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit7.SetFocus;
end;

procedure TForm3.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit8.SetFocus;
end;

procedure TForm3.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
lvneobutton1.SetFocus;
end;

end.