uform_main.pas

CRM的设计CRM的设计CRM的设计CRM的设计CRM的设计CRM的设计CRM的设计CRM的设计

unit Uform_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls, shellapi, DB, ADODB, jpeg, ComCtrls;

type
  Tform_main = class(TForm)
    Panel3: TPanel;
    Panel4: TPanel;
    Panel1: TPanel;
    Panel2: TPanel;
    Dconnect: TADOConnection;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn23: TBitBtn;
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
  private
    { Private declarations }
    function ResSave: boolean;
  public
    { Public declarations }
  end;

var
  form_main: Tform_main;

implementation

uses Uform_from_edit, Uform_area_edit, Uform_fw_edit, Uform_apart_edit,
  Uform_custom_edit, Uform_use_dollor, Uform_custom_pj, Uform_user_list,
  Uform_area_list, Uform_xf_one, Uform_fw_list, Uform_ljxf, Uform_advice,
  Ufrom_letter, Uform_user_rep, Uform_report_jy, Uform_report_fy, Uform_ver; //, Uform_from_edit;

{$R *.dfm}

procedure Tform_main.FormCreate(Sender: TObject);
begin
  Dconnect.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
    + ExtractFilePath(ParamStr(0))
    + 'db\database.mdb;Persist Security Info=False';
end;

procedure Tform_main.BitBtn1Click(Sender: TObject);
begin
      {显示部门管理  }
  form_apart_edit.ShowModal;
end;

procedure Tform_main.BitBtn2Click(Sender: TObject);
begin
  form_from_edit.ShowModal;
end;

procedure Tform_main.BitBtn3Click(Sender: TObject);
begin
  if MessageDlg('欢迎使用本软件。确定退出吗?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    close();
end;

procedure Tform_main.BitBtn4Click(Sender: TObject);
begin
   {显示部门管理  }
  form_area_edit.ShowModal;
end;

procedure Tform_main.BitBtn5Click(Sender: TObject);
begin
  form_fw_edit.showmodal;
end;

procedure Tform_main.BitBtn6Click(Sender: TObject);
begin
  form_custom_edit.ShowModal;
end;

procedure Tform_main.BitBtn7Click(Sender: TObject);
begin
  form_use_dollor.Edit1.Text := '';
  form_use_dollor.ShowModal;
end;

procedure Tform_main.BitBtn8Click(Sender: TObject);
begin
  form_custom_pj.cid := 0;
  form_custom_pj.Edit1.Text := '';
  form_custom_pj.ShowModal;
end;

procedure Tform_main.BitBtn10Click(Sender: TObject);
begin
  form_user_list.ShowModal;
end;

procedure Tform_main.BitBtn11Click(Sender: TObject);
begin
  form_area_list.ShowModal;
end;

procedure Tform_main.BitBtn12Click(Sender: TObject);
begin
  form_xf_one.ShowModal;
end;

procedure Tform_main.BitBtn13Click(Sender: TObject);
begin
  form_fw_list.ShowModal;
end;

procedure Tform_main.BitBtn14Click(Sender: TObject);
begin
  form_ljxf.ShowModal;
end;

procedure Tform_main.BitBtn15Click(Sender: TObject);
begin
  form_advice.ShowModal;
end;

procedure Tform_main.BitBtn16Click(Sender: TObject);
begin
  form_letter.ShowModal;
end;

procedure Tform_main.BitBtn17Click(Sender: TObject);
begin
  form_user_rep.ShowModal;
end;

procedure Tform_main.BitBtn18Click(Sender: TObject);
begin
  form_report_jy.ShowModal;
end;

procedure Tform_main.BitBtn19Click(Sender: TObject);
begin
  form_report_fy.ShowModal;
end;

procedure Tform_main.BitBtn9Click(Sender: TObject);
begin
  form_ver.ShowModal;
end;

end.