frmkdmaster.pas

来自「一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. 」· PAS 代码 · 共 69 行

unit FrmKDMaster;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Unit_CT;

type
  Tfrm_KDMaster = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    chk1: TCheckBox;
    LabTH: TLabel;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    KDCT:TCT_info;
  public
    { Public declarations }
  end;

var
  frm_KDMaster: Tfrm_KDMaster;

implementation

uses FrmMain, FrmXf;


{$R *.dfm}

procedure Tfrm_KDMaster.Button2Click(Sender: TObject);
begin
 Close;
end;

procedure Tfrm_KDMaster.Button1Click(Sender: TObject);
Var
 TmpStatus:Integer;
begin
 With Frm_main do
 begin
 CTListView.Selected.ImageIndex:=1;
 After_KD;
 KDCT.UpDateCTStatus(CTID,1);
 TmpStatus:=KDCT.Get_CTStatus(CTID);
 KDCT.Update_LSH(CTID,TmpStatus);
 KDCT.UpDateMark(CTID,memo1.Lines.Text);
 KDCT.UpDateKT_Time(CTID,now);
 End;
 KDCT.UpdataLSH;
 Self.Close;
 if chk1.Checked=true Then Frm_main.XfKD;
end;

procedure Tfrm_KDMaster.FormCreate(Sender: TObject);
begin
 KDCT:=TCT_info.create;
end;

end.