unitmain.pas

档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示了档案管理的整个流程对大家熟悉和学习档案管理很有帮助,同时对dephi的学习者也是非常有利的.

unit Unitmain;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, Buttons, ComCtrls, SUIStatusBar, ToolWin,
  SUIToolBar, Menus, SUIMainMenu, SUISideChannel, SUIImagePanel, StdCtrls,
  Grids, SUIDBCtrls,Unitcomm, DB, ADODB, jpeg, SUIButton;
type
    Tfrmain = class(TForm)
    suiForm1: TsuiForm;
    suiMainMenu1: TsuiMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    suiToolBar1: TsuiToolBar;
    ControlBar1: TControlBar;
    suiToolBar2: TsuiToolBar;
    suiButton2: TsuiButton;
    suiToolBar3: TsuiToolBar;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    suiToolBar4: TsuiToolBar;
    suiButton5: TsuiButton;
    suiToolBar5: TsuiToolBar;
    suiButton7: TsuiButton;
    suiPanel5: TsuiPanel;
    suiPanel1: TsuiPanel;
    Label1: TLabel;
    suiPanel2: TsuiPanel;
    Label3: TLabel;
    Label4: TLabel;
    suiPanel3: TsuiPanel;
    Label5: TLabel;
    suiPanel4: TsuiPanel;
    Label6: TLabel;
    suiImagePanel1: TsuiImagePanel;
    StatusBarMain: TsuiStatusBar;
    N6: TMenuItem;
    N11: TMenuItem;
    suiToolBar6: TsuiToolBar;
    suiButton1: TsuiButton;
    suiPanel6: TsuiPanel;
    Label2: TLabel;
    N12: TMenuItem;
    suiButton6: TsuiButton;
    Label7: TLabel;
    procedure formshow(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmain: Tfrmain;

implementation

{$R *.dfm}
uses
    unitinsert,Unitxg,Unityh,unitsys,Unitnew,Unitzz;
procedure Tfrmain.formshow(Sender: TObject);
begin
     StatusBarMain.Panels[0].Text:='质量标准档案管理系统';
     StatusBarMain.Panels[1].Text:='登陆时间: '+DateTimeToStr(now);
     StatusBarMain.Panels[2].Text:='授权单位:泉清公司办公室';
end;

procedure Tfrmain.N5Click(Sender: TObject);
var
     frm1:Tform1;
begin
       frm1:=TForm1.Create(self);
       frm1.ShowModal;
       frm1.Free;
end;

procedure Tfrmain.N7Click(Sender: TObject);
var
    frm3:TFOrm3;
begin
      frm3:=TForm3.Create(self);
     frm3.ShowModal;
     frm3.Free;
end;

procedure Tfrmain.N8Click(Sender: TObject);
var
    frm4:TForm4;
begin
     frm4:=TForm4.Create(self);
     frm4.ShowModal;
     frm4.Free;
end;

procedure Tfrmain.N9Click(Sender: TObject);
var
    frm5:TForm5;
begin
     frm5:=TForm5.Create(self);
     frm5.ShowModal;
     frm5.Free;
end;

procedure Tfrmain.N10Click(Sender: TObject);
begin
      if MessageDlg('是否确定要离开系统?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      application.Terminate ;
end;

procedure Tfrmain.N11Click(Sender: TObject);
var
 frm10:TForm10;
begin
     frm10:=TForm10.Create(self);
     frm10.ShowModal;
     frm10.Free;

end;

procedure Tfrmain.N12Click(Sender: TObject);
var
    frm11:TForm11;
begin
     frm11:=TForm11.Create(self);
     frm11.ShowModal;
     frm11.Free;
end;

end.