wineform.pas

重庆秦妈火锅城管理系统 1.0版

unit wineform;

interface

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

type
  TForm8 = class(TForm)
    LvNeoForm1: TLvNeoForm;
    Image1: TImage;
    Label1: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    LvNeoButton1: TLvNeoButton;
    LvNeoButton2: TLvNeoButton;
    LvNeoButton3: TLvNeoButton;
    LvNeoButton4: TLvNeoButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit5: TEdit;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    GroupBox2: TGroupBox;
    HemiBtn1: THemiBtn;
    GroupBox3: TGroupBox;
    HemiBtn2: THemiBtn;
    GroupBox4: TGroupBox;
    HemiBtn3: THemiBtn;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    procedure LvNeoButton3Click(Sender: TObject);
    procedure LvNeoButton4Click(Sender: TObject);
    procedure LvNeoButton1Click(Sender: TObject);
    procedure HemiBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure HemiBtn2Click(Sender: TObject);
    procedure HemiBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses CMP, Unit9, JHsystem, Unit10, Unit11;

{$R *.dfm}

procedure TForm8.LvNeoButton3Click(Sender: TObject);
begin
form2.WindowState:=wsnormal;
form8.Close;
end;

procedure TForm8.LvNeoButton4Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm8.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='')or(combobox3.Text='')or(combobox4.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 TForm8.HemiBtn1Click(Sender: TObject);
begin
form8.WindowState:=wsminimized;
form9.ShowModal;
end;

procedure TForm8.FormShow(Sender: TObject);
begin
form8.Left:=111;
form8.Top:=45;
end;

procedure TForm8.HemiBtn2Click(Sender: TObject);
begin
form8.WindowState:=wsminimized;
form10.ShowModal;
end;

procedure TForm8.HemiBtn3Click(Sender: TObject);
begin
form11.showmodal;
end;

end.