goods_demand.pas

delphi的一个开发实例

unit Goods_demand;

interface

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

type
  Tfrm_Goods_demand = class(TForm)
    Panel1: TPanel;
    XPMenu1: TXPMenu;
    SpeedButton6: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton4: TSpeedButton;
    GroupBox1: TGroupBox;
    ImageList2: TImageList;
    ListView1: TListView;
    P_Title: TPanel;
    Image1: TImage;
    Image2: TImage;
    Lab_title: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Cmd_CancelClick(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Goods_demand: Tfrm_Goods_demand;

implementation

uses Demand_Enter, Demand_Fad, Demand_Balance, func;

{$R *.dfm}

procedure Tfrm_Goods_demand.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    action:=cafree;
end;

procedure Tfrm_Goods_demand.FormShow(Sender: TObject);
begin
    frm_Goods_demand.Left:=170 * longint(Screen.Width) div 1024;
    frm_Goods_demand.Top:=40 * longint(Screen.Height) div 768;
    frm_Goods_demand.Height:=715;
    frm_Goods_demand.Width:=860;
end;

procedure Tfrm_Goods_demand.Cmd_CancelClick(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Goods_demand.ListView1Click(Sender: TObject);
begin
    if listview1.Selected <> nil then
    begin
        case listview1.ItemIndex of
        0:
        begin
            Public_Do:='';
            Public_Do_Result:='';
            Public_Do:='Demand_Enter_Str';
            frm_Demand_Enter:=Tfrm_Demand_Enter.Create(self);
            frm_Demand_Enter.ShowModal;
            frm_Demand_Enter.Free;
        end;
        1:
        begin
            Public_Do:='';
            Public_Do_Result:='';
            Public_Do:='Demand_Fad_Str';
            frm_Demand_Fad:=Tfrm_Demand_Fad.Create(self);
            frm_Demand_Fad.ShowModal;
            frm_Demand_Fad.Free;
        end;
        2:
        begin

            frm_Demand_Balance:=Tfrm_Demand_Balance.Create(self);
            frm_Demand_Balance.ShowModal;
            frm_Demand_Balance.Free;
        end;
        3:
        begin
            Close;
        end;
        end;
    end;
end;

procedure Tfrm_Goods_demand.Button1Click(Sender: TObject);
begin
    Close ;
end;

end.