frmcpmemo.pas

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

unit FrmCpMemo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls,Unit_xf;

type
  Tfrm_CpMemo = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    RzBitBtn1: TRzBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Myxf:Txf_info;
  public
    { Public declarations }
    CpID:Integer;
  end;

var
  frm_CpMemo: Tfrm_CpMemo;

implementation

uses FrmXf;

{$R *.dfm}

procedure Tfrm_CpMemo.Button1Click(Sender: TObject);
begin
 Myxf.Update_CpMemo(cpid,ComboBox1.Text);
 Frm_Xf.datailTmp_Cds.Data:=Myxf.GetDatailTmpList(Frm_Xf.lab_lsh.Caption);
 Close;
end;

procedure Tfrm_CpMemo.FormActivate(Sender: TObject);
begin
 ComBoBox1.Items.Clear;
 ComBobox1.Items.AddStrings(Myxf.GetMemoInfo);
 ComBoBox1.ItemIndex:=0;
end;

procedure Tfrm_CpMemo.FormCreate(Sender: TObject);
begin
 Myxf:=Txf_info.create;
end;

end.