unitsystem.pas

Delphi与sqlserver应用。适用于初学者

unit UnitSystem;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, ComCtrls, ToolWin, ImgList,
  WinSkinData;
type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N3: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Image1: TImage;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    SkinData1: TSkinData;
    procedure N26Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmMain: TfrmMain;
implementation
{$R *.dfm}
uses
   UnitLogin,UnitRegistration, UnitEnquirie, UnitReport, UnitDictionary, UnitKeep;
procedure TfrmMain.N26Click(Sender: TObject);
begin
     frmRegistration.ShowModal;
end;

procedure TfrmMain.Image1Click(Sender: TObject);
begin
     frmRegistration.ShowModal;
end;

procedure TfrmMain.N30Click(Sender: TObject);
begin
     frmEnquirie.ShowModal;
end;

procedure TfrmMain.Image2Click(Sender: TObject);
begin
     frmEnquirie.ShowModal;
end;

procedure TfrmMain.Image3Click(Sender: TObject);
begin
     frmReport.ShowModal;
end;

procedure TfrmMain.N3Click(Sender: TObject);
begin
     frmReport.ShowModal;
end;

procedure TfrmMain.Image4Click(Sender: TObject);
begin
     frmDictionary.ShowModal;
end;

procedure TfrmMain.N13Click(Sender: TObject);
begin
     frmDictionary.ShowModal;
end;

procedure TfrmMain.Image5Click(Sender: TObject);
begin
     frmKeep.ShowModal;
end;

procedure TfrmMain.N20Click(Sender: TObject);
begin
     frmKeep.ShowModal;
end;

procedure TfrmMain.ToolButton1Click(Sender: TObject);
begin
     frmRegistration.ShowModal;
end;

procedure TfrmMain.ToolButton3Click(Sender: TObject);
begin
     frmEnquirie.ShowModal;
end;

procedure TfrmMain.ToolButton5Click(Sender: TObject);
begin
     frmReport.ShowModal;
end;

procedure TfrmMain.ToolButton7Click(Sender: TObject);
begin
     frmDictionary.ShowModal;
end;
procedure TfrmMain.FormShow(Sender: TObject);
begin
    StatusBar1.Panels[0].Text :='当前用户：'+tUsers;
    StatusBar1.Panels[1].Text :='开发商：青岛皓琛电子技术开发有限公司';
    //StatusBar1.Panels[2].Text:=datetostr(now);
    StatusBar1.Panels[2].Text:=FormatdateTime('dddddd',now)+FormatdateTime('tt',now);
end;
procedure TfrmMain.Button1Click(Sender: TObject);
begin
      close;
end;
procedure TfrmMain.N12Click(Sender: TObject);
begin
      Application.Terminate;
end;
end.