main.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 148 行

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, RpCon, RpConDS, RpDefine, RpRave, StdCtrls;

type
  TMainFrm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    RvDataSetConnection2: TRvDataSetConnection;
    RvDataSetConnection3: TRvDataSetConnection;
    RvDataSetConnection4: TRvDataSetConnection;
    RvDataSetConnection5: TRvDataSetConnection;
    RvDataSetConnection6: TRvDataSetConnection;
    RvDataSetConnection7: TRvDataSetConnection;
    RvDataSetConnection8: TRvDataSetConnection;
    Label1: TLabel;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation

uses YPZL, JLDW, YPXX, BMWH, ZWWH, YWRY, YPRK, YPXS, SFSJ, YPKC, XGMM,
  Login, TJYH;

{$R *.dfm}

procedure TMainFrm.N2Click(Sender: TObject);
begin
    YPZLFrm.show;    
end;

procedure TMainFrm.N3Click(Sender: TObject);
begin
 JLDWFrm.show;
end;

procedure TMainFrm.N4Click(Sender: TObject);
begin
    YPXXFrm.show;
end;

procedure TMainFrm.N6Click(Sender: TObject);
begin
  BMWHFrm.show;
end;

procedure TMainFrm.N7Click(Sender: TObject);
begin
  ZWWHFrm.show;
end;

procedure TMainFrm.N8Click(Sender: TObject);
begin
    YWRYFrm.show;
end;

procedure TMainFrm.N10Click(Sender: TObject);
begin
   YPRKFrm.show;
end;

procedure TMainFrm.N11Click(Sender: TObject);
begin
    YPXSFrm.show
end;

procedure TMainFrm.N12Click(Sender: TObject);
begin
    SFSJFrm.show;
end;

procedure TMainFrm.N13Click(Sender: TObject);
begin
    YPKCFrm.show;
end;

procedure TMainFrm.N16Click(Sender: TObject);
begin
   if MessageDlg('确认要退出本系统吗吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
    begin
     Application.terminate;
    end;                                    
end;

procedure TMainFrm.N17Click(Sender: TObject);
begin
    XGMMFrm.show;
end;

procedure TMainFrm.N18Click(Sender: TObject);
begin
    with LoginFrm.ADOQuery1 do
      begin
       close;
       sql.clear;
       sql.add('select * from login where username='+''''+loginFrm.edit1.text+''''+'and password='+''''+loginFrm.edit2.text+'''');
       open;
       first;
       if fieldbyname('class').asstring='系统管理员' then
         TJYHFrm.show
       else
         showmessage('对不起，您没有添加用户的权限！');
      end;
end;

end.