frmsptypeadd.pas

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

unit FrmSpTypeAdd;

interface

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

type
  TFrm_SpType = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Ed_projName: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    MyCp:TCp_info;
  public
    { Public declarations }
  end;

var
  Frm_SpType: TFrm_SpType;

implementation

uses FrmSystem;

{$R *.dfm}

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

procedure TFrm_SpType.Button1Click(Sender: TObject);
Var
 Cpinfo:Tcp;
begin
  Cpinfo.IID:=MyCp.GetMaxTypeProj_IID+1;
  Cpinfo.Type_Name:=Trim(Ed_projName.Text);
 MyCp.AddProjType(Cpinfo);
 Frm_system.CpTree.Items.Clear;
 Frm_system.AddCP_Class(0,nil);
 Frm_system.Com_projType.Items.Clear;
 Frm_system.Com_ProjType.Items.AddStrings(MyCp.GetProjType);
 Frm_system.Com_ProjType.ItemIndex:=0;
 Close;
end;

procedure TFrm_SpType.FormCreate(Sender: TObject);
begin
 Mycp:=Tcp_info.create;

end;

end.