main.pas

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

unit Main;

interface

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

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;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    Label1: TLabel;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    RvDataSetConnection2: TRvDataSetConnection;
    RvDataSetConnection3: TRvDataSetConnection;
    RvDataSetConnection4: TRvDataSetConnection;
    RvDataSetConnection5: TRvDataSetConnection;
    RvDataSetConnection6: TRvDataSetConnection;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation

uses Product, Customer, Feeder, IEType, OtherStoType, Stock, Sell,
  OtherStorage, IE, Storage, Sale, Profit, ModifyPassword, Login, AddUser;

{$R *.dfm}

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

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

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

procedure TMainFrm.N5Click(Sender: TObject);
begin
    IETypeFrm.show;
end;

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

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

procedure TMainFrm.N9Click(Sender: TObject);
begin
  SellFrm.show;
end;

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

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

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

procedure TMainFrm.N18Click(Sender: TObject);
begin
   SaleFrm.show;
end;

procedure TMainFrm.N19Click(Sender: TObject);
begin
   ProfitFrm.show; 
end;

procedure TMainFrm.N14Click(Sender: TObject);
begin
  ModifyPasswordFrm.show;
end;

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

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

end.