unit10.pas

酒店管理系统

unit Unit10;

interface

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

type
  TForm10 = class(TForm)
    LvNeoForm1: TLvNeoForm;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Edit1: TEdit;
    LvNeoButton1: TLvNeoButton;
    LvNeoButton2: TLvNeoButton;
    LvNeoButton3: TLvNeoButton;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit2: TEdit;
    DataSource1: TDataSource;
    Table1: TTable;
    RadioButton5: TRadioButton;
    ComboBox3: TComboBox;
    procedure LvNeoButton1Click(Sender: TObject);
    procedure LvNeoButton3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

uses Unit6, wineform;

{$R *.dfm}

procedure TForm10.LvNeoButton1Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
  begin
  if edit1.Text='' then
  messagebox(handle,'请输入查询对象！','提示',mb_ok+mb_iconinformation)
  else
  begin
  try
  with table1 do
  begin
  table1.Open;
  table1.Filter:='酒水编号='+edit1.Text;
  table1.Filtered:=true;
  if findkey([edit1.text]) then
  dbgrid1.DataSource:=datasource1
  else
  messagebox(form6.handle,'没有此记录！','提示',mb_ok+mb_iconinformation)
  end;
  except
  messagebox(handle,'酒水编号输入有误!','提示',mb_ok+mb_iconinformation);
  edit1.SetFocus;
  end;
  end;
  end
else
if radiobutton2.Checked=true then
  begin
  if edit1.Text='' then
  messagebox(handle,'请输入查询对象！','提示',mb_ok+mb_iconinformation)
  else
  begin
  with table1 do
  begin
  table1.Open;
  table1.Filter:='酒水名称='+''''+edit1.Text+'''';
  table1.Filtered:=true;
  dbgrid1.DataSource:=datasource1;
  end;
  end;
end
else
if radiobutton3.Checked=true then
  begin
  if edit1.Text='' then
  messagebox(handle,'请输入查询对象！','提示',mb_ok+mb_iconinformation)
  else
  begin
  with table1 do
  begin
  table1.Open;
  table1.Filter:='经手人='+''''+edit1.Text+'''';
  table1.Filtered:=true;
  dbgrid1.DataSource:=datasource1;
  end;
  end;
end
else
if radiobutton4.Checked=true then
   begin
   if (edit2.Text='')or(combobox1.Text='')or(combobox2.Text='') then
  messagebox(handle,'请把日期输入完整！','提示',mb_ok+mb_iconinformation)
  else
  begin
  try
  with table1 do
  begin
  table1.Open;
  table1.Filter:='收货日期='+''''+edit2.Text+'-'+combobox1.text+'-'+combobox2.text+'''';
  table1.Filtered:=true;
  dbgrid1.DataSource:=datasource1;
  end;
  except
  messagebox(handle,'日期输入错误!','警告',mb_ok+mb_iconwarning);
  end;
  end;
end
else
if radiobutton5.Checked=true then
begin
   if combobox3.Text='' then
  messagebox(handle,'请输入查询对象！','提示',mb_ok+mb_iconinformation)
  else
  begin
  with table1 do
  begin
  table1.Open;
  table1.Filter:='酒类='+''''+combobox3.Text+'''';
  table1.Filtered:=true;
  dbgrid1.DataSource:=datasource1;
  end;
  end;
end
else  
messagebox(handle,'请选择一种查询方式!','提示',mb_ok+mb_iconinformation);
end;

procedure TForm10.LvNeoButton3Click(Sender: TObject);
begin
form8.WindowState:=wsnormal;
edit1.Clear;
edit2.Clear;
combobox1.Text:='';
combobox2.Text:='';
form10.Close;
end;

procedure TForm10.RadioButton1Click(Sender: TObject);
begin
edit1.SetFocus;
edit2.Hide;
edit2.Clear;
edit1.Text:='';
label4.Hide;
label3.Hide;
label2.Hide;
combobox1.Hide;
combobox2.Hide;
combobox3.Hide;
edit1.Show;
end;

procedure TForm10.RadioButton4Click(Sender: TObject);
begin
edit1.Hide;
edit1.Clear;
label4.Hide;
label3.Show;
label2.Show;
edit2.Show;
edit2.SetFocus;
combobox1.Show;
combobox2.Show;
combobox3.Hide;
end;

procedure TForm10.FormCreate(Sender: TObject);
begin
edit2.Hide;
label4.Hide;
label3.Hide;
label2.Hide;
combobox1.Hide;
combobox2.Hide;
combobox3.Hide;
edit1.Show;
end;

procedure TForm10.FormShow(Sender: TObject);
begin
form10.Left:=171;
form10.Top:=98;
end;

procedure TForm10.RadioButton5Click(Sender: TObject);
begin
edit1.Hide;
edit2.Hide;
label2.Hide;
label3.Hide;
label4.Hide;
combobox1.Hide;
combobox2.Hide;
combobox3.Show;
edit1.Clear;
end;

procedure TForm10.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
lvneobutton1.Click;
end;

procedure TForm10.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
lvneobutton1.Click;
end;

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

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

procedure TForm10.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
lvneobutton1.Click;;
end;

end.