mainunit.pas

简单的进销存系统,包含登陆等界面,内容丰富,各种技巧,适合初学者

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,  ComCtrls,
  ImgList, ToolWin,  Menus,
   StdCtrls, CheckLst, DB, ADODB, Buttons;
type
    UserInfo = record // 定义用户信息
    UserID: string; // 用户编号
    UserName: string; // 用户名称
    PassWord:string;
    UserRights:string;
    UserPassword:string;
    UserRightsName:string;
  end;
type
  TMainForm = class(TForm)
    ImageList1: TImageList;
    stabar: TStatusBar;
    ToolBar1: TToolBar;
    Panel_main: TPanel;
    ADOQuery_data: TADOQuery;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    ToolButton1: TToolButton;
    N4: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  ///
  UserID: string; // 用户编号
  UserName: string; // 用户名称
  PassWord:string;
  UserRights:string;
  UserPassword:string;
  UserRightsName:string;
implementation

uses DMUnit, OperInfoUnit, GoodsInfoUnit, aboutboxunit,
 ChangePasswordUnit,
  EditUserUnit, DepotEditUnit, DepotInfoUnit, YWYInfoUnit,
  depotInputUnit, depotOutputUnit, QueryDepotInputUnit, QueryDepotUnit,
  QueryDepotOutputUnit;



{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
var

  NumSec: SmallInt;
  StartTime: TDateTime;

label Systemsetup;
begin
        self.Caption := '企业库存管理系统';
        numsec := 1; //延时1秒
        StartTime := now;
  repeat
    application.ProcessMessages;
  until Now > StartTime + NumSec * (1 / 24 / 60 / 60);
  application.HintPause := 500;
  stabar.Panels.Items[1].Text := '版权所有：'+'中国矿业大学【计01-11班，宁丽鸿】';
  stabar.Panels.Items[2].Text := '现在时间：' + DateTimeToStr(now);
end;

procedure TMainForm.ToolButton12Click(Sender: TObject);
begin
        application.CreateForm(TOperInfoForm,OperInfoForm);
        OperInfoForm.ShowModal;
        OperInfoForm.Free;
end;

procedure TMainForm.ToolButton9Click(Sender: TObject);
begin
        application.CreateForm(TGoodsInfoForm,GoodsInfoForm);
        GoodsInfoForm.ShowModal;
        GoodsInfoForm.Free;
end;


procedure TMainForm.N6Click(Sender: TObject);
begin
    self.Close;
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
         application.CreateForm(Taboutbox,aboutbox);
         aboutbox.ShowModal;
         aboutbox.Free;
end;

procedure TMainForm.ToolButton13Click(Sender: TObject);
begin
        application.CreateForm(TChgPwdForm,ChgPwdForm);
        ChgPwdForm.ShowModal;
        ChgPwdForm.Free;
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
       application.CreateForm(TdepotInputfrm,depotInputfrm);
       depotInputfrm.ShowModal;
       depotInputfrm.Free;
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
       application.CreateForm(TdepotOutputfrm,depotOutputfrm);
       depotOutputfrm.ShowModal;
       depotOutputfrm.Free;
end;


procedure TMainForm.N8Click(Sender: TObject);
begin
        application.CreateForm(TOperInfoForm,OperInfoForm);
        OperInfoForm.ShowModal;
        OperInfoForm.Free;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
        application.CreateForm(TDepotInfoForm,DepotInfoForm);
        DepotInfoForm.ShowModal;
        DepotInfoForm.Free;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
        application.CreateForm(TGoodsInfoForm,GoodsInfoForm);
        GoodsInfoForm.ShowModal;
        GoodsInfoForm.Free;
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
        application.CreateForm(TYWYInfoForm,YWYInfoForm);
        YWYInfoForm.ShowModal;
        YWYInfoForm.Free;
end;


procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
        application.CreateForm(TGoodsInfoForm,GoodsInfoForm);
        GoodsInfoForm.ShowModal;
        GoodsInfoForm.Free;
end;

procedure TMainForm.BitBtn3Click(Sender: TObject);
begin
        application.CreateForm(TDepotInfoForm,DepotInfoForm);
        DepotInfoForm.ShowModal;
        DepotInfoForm.Free;
end;

procedure TMainForm.BitBtn4Click(Sender: TObject);
begin
        application.CreateForm(TdepotOutputfrm,depotOutputfrm);
        depotOutputfrm.ShowModal;
        depotOutputfrm.Free;
end;

procedure TMainForm.BitBtn6Click(Sender: TObject);
begin
        application.CreateForm(TYWYInfoForm,YWYInfoForm);
        YWYInfoForm.ShowModal;
        YWYInfoForm.Free;
end;

procedure TMainForm.BitBtn7Click(Sender: TObject);
begin
        application.CreateForm(TdepotInputfrm,depotInputfrm);
        depotInputfrm.ShowModal;
        depotInputfrm.Free;
end;

procedure TMainForm.BitBtn8Click(Sender: TObject);
begin
        application.CreateForm(TOperInfoForm,OperInfoForm);
        OperInfoForm.ShowModal;
        OperInfoForm.Free;
end;

procedure TMainForm.BitBtn9Click(Sender: TObject);
begin
        application.CreateForm(TChgPwdForm,ChgPwdForm);
        ChgPwdForm.ShowModal;
        ChgPwdForm.Free;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
        application.CreateForm(TChgPwdForm,ChgPwdForm);
        ChgPwdForm.ShowModal;
        ChgPwdForm.Free;
end;


procedure TMainForm.FormShow(Sender: TObject);
begin
        panel_main.Align:=alClient;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
        application.CreateForm(TQueryDepotInputForm,QueryDepotInputForm);
        QueryDepotInputForm.ShowModal;
        QueryDepotInputForm.Free;
end;

procedure TMainForm.N15Click(Sender: TObject);
begin
        application.CreateForm(TChgPwdForm,ChgPwdForm);
        ChgPwdForm.ShowModal;
        ChgPwdForm.Free;
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
        application.CreateForm(TQueryDepotForm,QueryDepotForm);
        QueryDepotForm.ShowModal;
        QueryDepotForm.Free;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
        application.CreateForm(TQueryDepotOutputForm,QueryDepotOutputForm);
        QueryDepotOutputForm.ShowModal;
        QueryDepotOutputForm.Free;
end;

end   .