main.~pas

完整的公司合同管理系统,基于ACSESS数据库开发,无须安装任何其他插件.附带源码.免费提供.

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls, ExtCtrls, Menus,
  ToolWin, ComCtrls, ImgList;

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    Timer1: TTimer;
    N27: TMenuItem;
    N5: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
    procedure FreePanelForm(const FormCaption : string );
    procedure CreatePic;
  public
    { Public declarations }
    procedure FindForm (const FormName , FormCaption : string);
  end;

  TFormRef=class of TForm;
var
  frmMain: TfrmMain;

implementation
  uses WJ_FuJian_DaY, WJ_LuRu, WJ_TaiZ ,WJ_FuJianView,Pub_ChooseHT,
  WJ_CaoZuo,WJ_XT_SHEZLJ,FuKanMX,About;
{$R *.dfm}

procedure TfrmMain.FreePanelForm(const FormCaption : string );
begin
    if FormCaption<>'' then
       frmMain.Caption := FormCaption;
    if panel1.ControlCount>0 then
    begin
      panel1.Controls[0].Free ;
      CreatePic;
    end;
end;

procedure TfrmMain.FindForm (const FormName , FormCaption: string);
  procedure creForm(frm:TFormRef);
  var
   frm1:TForm;
  begin
    if panel1.ControlCount>0 then
    begin
      panel1.Controls[0].Free ;
    end;

    frm1:=frm.Create(application);
    frm1.Parent:=frmmain.Panel1;
    //frm1.Align := alclient;
    frm1.Show;
  end;
  var frm:TFormRef;
begin
  frm:=TFormRef(FindClass(FormName));
  creForm(frm);
  frmMain.Caption :='合同管理系统--'+FormCaption;
end;

procedure TfrmMain.N3Click(Sender: TObject);
begin
  FindForm('TfrmWJ_TaiZ','合同台帐');
end;

procedure TfrmMain.N11Click(Sender: TObject);
begin
    FreePanelForm('合同管理系统--合同变更');
    ShowWBBJForm ('1') ;
end;

procedure TfrmMain.N13Click(Sender: TObject);
 var HtID,HtName : string;
begin
  FreePanelForm('合同管理系统--合同完工');
  if GetHtID(HtID,HtName) then
     HeTongCaoZuo(1,HtID,HtName);
end;

procedure TfrmMain.N14Click(Sender: TObject);
 var HtID,HtName : string;
begin
  FreePanelForm('合同管理系统--合同结算');
  if GetHtID(HtID,HtName) then
     HeTongCaoZuo(3,HtID,HtName);
end;

procedure TfrmMain.N15Click(Sender: TObject);
 var HtID,HtName : string;
begin
  FreePanelForm('合同管理系统--合同验收');
  if GetHtID(HtID,HtName) then
     HeTongCaoZuo(2,HtID,HtName);
end;

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels.Items[2].Text := '            '+DateToStr(Now)+'  '+TimeToStr(Time);
end;

procedure TfrmMain.N27Click(Sender: TObject);
begin
  FreePanelForm('合同管理系统--文件保存路径');
  SetFileSaveLocation;
end;

procedure TfrmMain.CreatePic;
var Image : TImage;
begin
    Image :=TImage.Create(application);
    Image.Parent := panel1;
    Image.AutoSize := true;
    Image.Left := 655;
    Image.Top:=482;
    Image.Picture.LoadFromFile('C:\Program Files\DBConfig\born.bmp');
    Image.Show;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  CreatePic;
end;

procedure TfrmMain.N12Click(Sender: TObject);
 var HtID,HtName : string;
begin
  FreePanelForm('合同管理系统--合同付款明细');
  if GetHtID(HtID,HtName) then
     FuKuanMX(HtID,HtName);
end;

procedure TfrmMain.N26Click(Sender: TObject);
begin
  close;
end;

procedure TfrmMain.N25Click(Sender: TObject);
begin
  ShowAbout;
end;

procedure TfrmMain.N2Click(Sender: TObject);
begin
 // FindForm('TfrmWJ_LuRu','合同文本编辑');
    FreePanelForm('合同管理系统--合同文本编辑');
    ShowWBBJForm ('') ;
end;

procedure TfrmMain.N4Click(Sender: TObject);
begin
  FindForm('TfrmWJ_FuJianView','合同附件');
end;

procedure TfrmMain.N5Click(Sender: TObject);
 var StrL : TStringList;
     HtID,HtName : string;
begin
     FreePanelForm('合同管理系统--附件打印');
     if GetHtID(HtID,HtName) then
        FuJianPrint(HtID,HtName, StrL);
end;

Initialization
begin
   RegisterClasses([ TfrmWJ_TaiZ,TfrmWJ_LuRu ,TfrmWJ_FuJianView
   ]);
end;
end.