numberfwunit.~pas

本软件专门用于管理餐饮行业的点菜单、加菜单酒水单等重要票据的领用及回收情况

unit numberfwunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB,ExtCtrls, SUIForm, StdCtrls, SUIEdit, SUIButton, ComCtrls,
  SUIDBCtrls, DBTables;

type
  Tnumberfwform = class(TForm)
    suiForm1: TsuiForm;
    TabControl1: TTabControl;
    Label2: TLabel;
    Label3: TLabel;
    numfromedit: TsuiEdit;
    numtoedit: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    Label4: TLabel;
    Label5: TLabel;
    suiDBComboBox1: TsuiDBComboBox;
    suiDBComboBox2: TsuiDBComboBox;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure numfromeditKeyPress(Sender: TObject; var Key: Char);
    procedure numtoeditKeyPress(Sender: TObject; var Key: Char);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiDBComboBox1DropDown(Sender: TObject);
    procedure suiDBComboBox2DropDown(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  numberfwform: Tnumberfwform;

implementation

uses lydjunit, typeunit, personunit;

{$R *.dfm}

procedure Tnumberfwform.numfromeditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', #8]) then
    key := #0;
end;

procedure Tnumberfwform.numtoeditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', #8]) then
    key := #0;
end;

procedure Tnumberfwform.suiButton1Click(Sender: TObject);
begin
  if (numfromedit.Text<>'') or (numtoedit.Text<>'') or (suidbcombobox1.Text<>'') or (suidbcombobox2.Text<>'') then
      begin
      if numfromedit.text>numtoedit.Text then
         showmessage('起始编号不能大于结束编号或类别为空！')
      else
      begin
         query1.SQL.Clear;
         query1.SQL.Add('select * from lydj');
         query1.SQL.Add('where lyperson =:param0');
         Query1.SQL.Add('and Numbers =:param1');
         Query1.SQL.Add('and numberto =:param2');
         query1.SQL.Add('and numbertype =:param3');
         query1.Prepare;
         query1.Params[0].AsString:=suidbcombobox2.Text;
         query1.Params[1].AsString:=Numfromedit.Text;
         query1.Params[2].AsString:=NumToedit.Text;
         query1.Params[3].AsString:=suiDbcombobox1.Text;
         Query1.Params[2].AsString:=
         query1.Open;
         if query1.RecordCount>0 then
            showmessage('登记重复！')
         else
         begin
            numfromedit.SetFocus;
            lydjform.Table1.FieldByName('numbers').AsString:=numfromedit.text;
            lydjform.Table1.FieldByName('numberto').AsString:=numtoedit.Text;
            close;
        end;
      end
     end
  else showmessage('信息没有填写完整！')
end;

procedure Tnumberfwform.suiButton2Click(Sender: TObject);
begin
  if lydjform.Table1.State in [dsedit,dsinsert] then
     lydjform.Table1.Cancel;
  close;
end;

procedure Tnumberfwform.suiDBComboBox1DropDown(Sender: TObject);
begin
  if typeform.Table1.Active=true then
     typeform.Table1.Close;
     typeform.Table1.Open;
     typeform.Table1.First;
     suidbcombobox1.Items.Clear;
     while not typeform.Table1.Eof do
     begin
       suidbcombobox1.Items.Add(typeform.Table1.fieldbyname('typename').AsString);
       typeform.Table1.Next;
     end;
end;

procedure Tnumberfwform.suiDBComboBox2DropDown(Sender: TObject);
begin
  if personform.Table1.Active=true then
     personform.Table1.Close;
     personform.Table1.Open;
     personform.Table1.First;
     suidbcombobox2.Items.Clear;
     while not personform.Table1.Eof do
     begin
       suidbcombobox2.Items.Add(personform.Table1.fieldbyname('pername').AsString);
       personform.Table1.Next;
     end;

end;

end.