begin_build.pas

来自「delphi的一个开发实例」· PAS 代码 · 共 107 行

unit Begin_Build;

interface

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

type
  Tfrm_Begin_Build = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    XPMenu1: TXPMenu;
    ListView1: TListView;
    ImageList1: TImageList;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Begin_Build: Tfrm_Begin_Build;

implementation

uses Begin_Goods, func;

{$R *.dfm}

procedure Tfrm_Begin_Build.FormShow(Sender: TObject);
begin
    {frm_Begin_Build.Left:=170;
    frm_Begin_Build.Top:=40;
    frm_Begin_Build.Height:=690;
    frm_Begin_Build.Width:=850;   }
end;

procedure Tfrm_Begin_Build.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Close;
end;

procedure Tfrm_Begin_Build.SpeedButton1Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Begin_Build.ListView1Click(Sender: TObject);
begin
    if listview1.Selected <> nil then
    begin
        case listview1.ItemIndex of
        0:
        begin
            begin_build_str:='';
            begin_build_str:='begin_build_goods';
            frm_Begin_Goods:=Tfrm_Begin_Goods.Create(self);
            frm_Begin_Goods.TabSheet1.TabVisible:=True;
            frm_Begin_Goods.TabSheet2.TabVisible:=False;
            frm_Begin_Goods.TabSheet3.TabVisible:=False;
            frm_Begin_Goods.TabSheet4.TabVisible:=False;
            frm_Begin_Goods.ShowModal;
            frm_Begin_Goods.Free;
        end;
        1:
        begin
            frm_Begin_Goods:=Tfrm_Begin_Goods.Create(self);
            frm_Begin_Goods.TabSheet1.TabVisible:=False;
            frm_Begin_Goods.TabSheet2.TabVisible:=True;
            frm_Begin_Goods.TabSheet3.TabVisible:=False;
            frm_Begin_Goods.TabSheet4.TabVisible:=False;
            frm_Begin_Goods.ShowModal;
            frm_Begin_Goods.Free;
        end;
        2:
        begin
            frm_Begin_Goods:=Tfrm_Begin_Goods.Create(self);
            frm_Begin_Goods.TabSheet1.TabVisible:=False;
            frm_Begin_Goods.TabSheet2.TabVisible:=False;
            frm_Begin_Goods.TabSheet3.TabVisible:=True;
            frm_Begin_Goods.TabSheet4.TabVisible:=False;
            frm_Begin_Goods.ShowModal;
            frm_Begin_Goods.Free;
        end;
        3:
        begin
            frm_Begin_Goods:=Tfrm_Begin_Goods.Create(self);
            frm_Begin_Goods.TabSheet1.TabVisible:=False;
            frm_Begin_Goods.TabSheet2.TabVisible:=False;
            frm_Begin_Goods.TabSheet3.TabVisible:=False;
            frm_Begin_Goods.TabSheet4.TabVisible:=True;
            frm_Begin_Goods.ShowModal;
            frm_Begin_Goods.Free;
        end;
        end;

    end;
end;

end.