main.pas

来自「1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合」· PAS 代码 · 共 113 行

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, ahmtpanel, ImgList, ComCtrls, ahmtbackground,
  StdCtrls, ahmtlabel, ahmdialogclass, ahmtpassworddlg;

type
  TF_Main = class(TForm)
    AHMPanel1: TAHMPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    AHMPanel2: TAHMPanel;
    AHMPanel3: TAHMPanel;
    StatusBar1: TStatusBar;
    AHMBackground1: TAHMBackground;
    AHMBackground2: TAHMBackground;
    SpeedButton4: TSpeedButton;
    AHMLabel1: TAHMLabel;
    AHMLabel2: TAHMLabel;
    AHMLabel3: TAHMLabel;
    AHMLabel4: TAHMLabel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    AHMBackground3: TAHMBackground;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Main: TF_Main;

implementation

uses customer, bill, billreal, dbset, login, material, user, insurant, bene;



{$R *.dfm}

procedure TF_Main.SpeedButton4Click(Sender: TObject);
begin
   F_Customer.ShowModal;
end;

procedure TF_Main.SpeedButton7Click(Sender: TObject);
begin
   F_Policy.ShowModal;
end;

procedure TF_Main.SpeedButton8Click(Sender: TObject);
begin
   F_Bill.ShowModal;
end;

procedure TF_Main.SpeedButton1Click(Sender: TObject);
begin
        //Application.HelpContext(1);
        F_DBSet.ShowModal;
end;

procedure TF_Main.SpeedButton2Click(Sender: TObject);
begin
   //F_About.ShowModel;
   F_Login.ShowModal;
end;

procedure TF_Main.SpeedButton3Click(Sender: TObject);
begin
   Application.Terminate;
end;

procedure TF_Main.SpeedButton5Click(Sender: TObject);
begin
   F_Insurant.Showmodal;
end;

procedure TF_Main.SpeedButton9Click(Sender: TObject);
begin
   F_Material.ShowModal;
end;

procedure TF_Main.SpeedButton10Click(Sender: TObject);
begin
   F_User.ShowModal;
end;

procedure TF_Main.SpeedButton6Click(Sender: TObject);
begin
   F_Bene.ShowModal;
end;

end.