unreciveunit.pas

来自「本软件专门用于管理餐饮行业的点菜单、加菜单酒水单等重要票据的领用及回收情况」· PAS 代码 · 共 113 行

unit unreciveunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, ExtCtrls, StdCtrls, SUIForm, DB, DBTables,
  wwSpeedButton, wwDBNavigator, wwclearpanel, Grids, Wwdbigrd, Wwdbgrid,
  SUIEdit, SUIComboBox;

type
  Tunreciveform = class(TForm)
    DataSource1: TDataSource;
    Query1: TQuery;
    Query1Lsid: TFloatField;
    Query1Numberid: TStringField;
    Query1Numbertype: TStringField;
    Query1Hxbz: TStringField;
    Query1Djdate: TDateField;
    Query1Lypername: TStringField;
    suiForm1: TsuiForm;
    Label1: TLabel;
    Shape1: TShape;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    lyname: TsuiComboBox;
    Label2: TLabel;
    Label3: TLabel;
    numberlb: TsuiComboBox;
    Label4: TLabel;
    numberidedit: TsuiEdit;
    wwDBGrid1: TwwDBGrid;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1First: TwwNavButton;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    wwDBNavigator1NextPage: TwwNavButton;
    Query1A: TBooleanField;
    Query1B: TBooleanField;
    procedure suiButton1Click(Sender: TObject);
    procedure lynameDropDown(Sender: TObject);
    procedure numberlbDropDown(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  unreciveform: Tunreciveform;

implementation

uses personunit, typeunit;

{$R *.dfm}

procedure Tunreciveform.suiButton1Click(Sender: TObject);
begin
  if query1.Active=true then
     query1.Close;
     query1.SQL.Clear;
     query1.SQL.Add('select * from libnumber');
     query1.SQL.Add(' where numbertype like:param0');
     query1.SQL.Add(' and numberid like:param1');
     Query1.SQL.Add(' and lypername like:param2');
     query1.SQL.Add(' and hxbz=:param3');
     Query1.Prepare;
     Query1.Params[0].AsString:=numberlb.Text+'%';
     query1.Params[1].AsString:=numberidedit.Text+'%';
     query1.Params[2].AsString:=lyname.Text+'%';
     query1.Params[3].AsString:='1';
     query1.Open;
end;

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

end;

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

end;

procedure Tunreciveform.suiButton2Click(Sender: TObject);
begin
  close;
end;

end.