main.pas

1. 直接安装并运行案例程序 运行“安装程序”文件夹中的setup.exe文件

unit MAIN;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList;

type
  TMainForm = class(TForm)
    StatusBar: TStatusBar;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    changePwd: TMenuItem;
    company: TMenuItem;
    N1: TMenuItem;
    FileExitItem: 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;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    ToolBar2: TToolBar;
    N0: TMenuItem;
    procedure FileExit1Execute(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure changePwdClick(Sender: TObject);
    procedure companyClick(Sender: TObject);
    procedure FileOpenItemClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
  private
    { Private declarations }
    procedure CreateMDIChild(const Name: string);
    procedure setPower(i:integer);
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation



{$R *.dfm}

uses CHILDWIN, about,changePwd,registerCompany,authorization,
needPlan,stockPlan,buyPlan,wzinfo,bminfo,addStock,deleteStock,
queryWz,sendMoney,addMoney,checkMoney,moneyRep,WzRep,mingxi;

function checkPassword(s:string):integer;far;external 'mylogin.dll';
function getUserName:string;external 'mylogin.dll';
procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  { create a new MDI child window }
  Child := TMDIChild.Create(Application);
  Child.Caption := Name;
  if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;
procedure TMainForm.FileExit1Execute(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.N24Click(Sender: TObject);
begin
   AboutBox.ShowModal;
end;

procedure TMainForm.FormShow(Sender: TObject);
var
   rt:integer;
begin
   rt:=checkPassword('物资管理系统');
   if rt=0 then
   begin
      close;
      application.Terminate;
   end;
   setPower(rt);
end;

procedure TMainForm.changePwdClick(Sender: TObject);
var
   rt:integer;
begin
   frmChangePwd:=TFrmChangePwd.Create(self);
   rt:=frmChangePwd.ShowModal;
   if rt=mrOk then                       //修改密码
   begin
      frmChangePwd.changePwd(getUserName);  //调用修改密码窗体对象的方法
   end;
   frmChangePwd.Destroy;
end;

procedure TMainForm.companyClick(Sender: TObject);
var
   rt:integer;
   f:file;
   s1,s2,s3,s4:string[160];
begin
   frmRegisterCompany:=TFrmRegisterCompany.Create(self);
   if fileExists('info.ini') then              //如果单位配置文件存在
   begin
      assignFile(f,'info.ini');
      reSet(f,1);                             //打开文件读出信息
      blockRead(f,s1,60);
      blockRead(f,s2,100);
      blockRead(f,s3,12);
      blockRead(f,s4,28);
      frmRegisterCompany.edit1.Text:=s1;
      frmRegisterCompany.edit2.Text:=s2;
      frmRegisterCompany.edit3.Text:=s3;
      frmRegisterCompany.edit4.Text:=s4;
      closeFile(f);
   end;
   rt:=frmRegisterCompany.ShowModal;
   if rt=mrOk then                          //录入使用单位信息
   begin
      frmRegisterCompany.registerCompany;   //调用使用单位信息窗体对象的方法
   end;
   frmRegisterCompany.Destroy;
end;

procedure TMainForm.FileOpenItemClick(Sender: TObject);
begin
   frmAuthorization:=TFrmAuthorization.Create(self);
   frmAuthorization.ShowModal;
end;

procedure TMainForm.setPower(i: integer);
begin
   if i=3 then//具有访问者权限
   begin
      n0.Enabled:=false;
      company.Enabled:=false;               
      N7.Enabled:=false;
      n8.Enabled:=false;
      n12.Enabled:=false;
      n13.Enabled:=false;
      n15.Visible:=false;
   end
   else if i=2 then //具有操作员权限
   begin
      n0.Enabled:=false;
      company.Enabled:=false;
   end;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
   frmNeedPlan:=TFrmNeedPlan.Create(self);
   frmNeedPlan.ShowModal;
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
   frmStockPlan:=TFrmStockPlan.Create(self);
   frmStockPlan.ShowModal;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
   frmBuyPlan:=TFrmBuyPlan.Create(self);
   frmBuyPlan.ShowModal;
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
   frmWzInfo.ShowModal;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
   frmBmInfo.ShowModal;
end;

procedure TMainForm.N7Click(Sender: TObject);
begin
   frmAddStock.ShowModal;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
   frmDeleteStock.ShowModal;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
   frmQueryWz.ShowModal;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
   frmSendMoney.ShowModal;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
   frmAddMoney.ShowModal;
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
   frmCheckMoney:=TFrmCheckMoney.create(self);
   frmCheckMoney.ShowModal;
end;

procedure TMainForm.N20Click(Sender: TObject);
begin
   frmMoneyRep:=TFrmMoneyRep.create(self);
   frmMoneyRep.QuickRep1.Preview;
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
   frmWzRep:=TfrmWzRep.create(self);
   frmWzRep.QuickRep1.Preview;
end;

procedure TMainForm.N22Click(Sender: TObject);
begin
   frmMingxi:=TFrmMingxi.create(self);
   frmMingxi.QuickRep1.Preview;
end;

end.