uform_main.pas

这是在SQL数据库下编写的一个源代码

unit Uform_main;

interface

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

type
  Tform_main = class(TForm)
    Panel3: TPanel;
    Panel4: TPanel;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    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;
    procedure Panel2Resize(Sender: TObject);
    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 }
  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.Panel2Resize(Sender: TObject);
begin
        Image1.Left := Panel2.Width div 2  - image1.Width div 2 ;
        image1.Top :=panel2.Height div 2  - image1.Height div 2-30  ;
end;

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.