bingzhouu.pas

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· PAS 代码 · 共 120 行

unit bingzhouU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, ComCtrls, StdCtrls, Buttons;

type
  TbingzhouF = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    TreeView1: TTreeView;
    TreeView2: TTreeView;
    Bevel1: TBevel;
    Bevel2: TBevel;
    ADOQuery1: TADOQuery;
    ADOQuery1id: TAutoIncField;
    ADOQuery1ctbh: TStringField;
    ADOQuery1ctmc: TStringField;
    ADOQuery1twbh: TStringField;
    ADOQuery1twmc: TStringField;
    ADOQuery1twrs: TIntegerField;
    ADOQuery1twfwf: TBCDField;
    ADOQuery1twcwf: TBCDField;
    ADOQuery1twzt: TStringField;
    ADOQuery1djh: TIntegerField;
    ADOQuery1kssj: TDateTimeField;
    ADOQuery1xfje: TBCDField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Timer1: TTimer;
    procedure FormActivate(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure TreeView2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bingzhouF: TbingzhouF;
  czbz:string;
implementation
uses rjsmain;
{$R *.dfm}

procedure TbingzhouF.FormActivate(Sender: TObject);
var treev:Ttreenode;
begin
     if czbz='bt' then
     begin
       bingzhouf.Caption:='并桌处理';
       label1.Caption:='待并之厅台号';
       label2.Caption:='并入之厅台号';
     end
     else
     begin
       bingzhouf.Caption:='转台处理';
       label1.Caption:='待转之厅台号';
       label2.Caption:='转入之厅台号';
     end;
     edit1.Text:='';
     edit2.Text:='';
     timer1.Enabled:=true;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select * from cantai where czbz=0 and twzt<>' + ''''+'K'+''''+' order by ctbh, twbh');
     adoquery1.Open;
     treeview1.Items.Clear;
     treev:=treeview1.TopItem;
     while not adoquery1.Eof do
     begin
        treeview1.Items.Add(treev,adoquery1ctmc.asstring+'__'+adoquery1twmc.AsString);
        adoquery1.Next;
     end;
     treeview2.Items.Clear;
     treev:=treeview2.TopItem;
     if czbz<>'bt' then
     begin
       adoquery1.close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select * from cantai where czbz=0 and twzt='+''''+'K'+''''+'  order by ctbh, twbh ');
       adoquery1.Open;
     end
     else adoquery1.First;
     while not adoquery1.Eof do
     begin
        treeview2.Items.Add(treev,adoquery1ctmc.asstring+'__'+adoquery1twmc.AsString);
        adoquery1.Next;
     end;
     adoquery1.Close;
end;
procedure TbingzhouF.TreeView1Click(Sender: TObject);
begin
    if treeview1.Selected<>nil then edit1.Text:=treeview1.Selected.Text;
end;

procedure TbingzhouF.TreeView2Click(Sender: TObject);
begin
     if treeview2.Selected<>nil then edit2.Text:=treeview2.Selected.Text;
end;

procedure TbingzhouF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    timer1.Enabled:=false;
end;

procedure TbingzhouF.Timer1Timer(Sender: TObject);
begin
     if ((edit1.Text='') or (edit2.Text='')) then bitbtn1.Enabled:=false
     else bitbtn1.Enabled:=true;
end;

end.