main.pas

这是应一个市委的朋友要求给做一个物品管理软件。 初始密码:admin

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ImgList, RzBckgnd, IniFiles, ExtCtrls,
  ExtDlgs, ShellApi, XPMenu;

type
  Tfmain = class(TForm)
    mm: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    ToolBar1: TToolBar;
    sb: TStatusBar;
    il1: TImageList;
    ToolButton1: TToolButton;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    rbg: TRzBackground;
    Timer1: TTimer;
    il2: TImageList;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    ENWEN1: TMenuItem;
    ENWEN2: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    A1: TMenuItem;
    A2: TMenuItem;
    N19: TMenuItem;
    A5: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    opd: TOpenPictureDialog;
    img: TImage;
    N24: TMenuItem;
    A3: TMenuItem;
    A4: TMenuItem;
    N27: TMenuItem;
    A6: TMenuItem;
    A7: TMenuItem;
    PopupMenu1: TPopupMenu;
    N28: TMenuItem;
    N31: TMenuItem;
    N33: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    A8: TMenuItem;
    A9: TMenuItem;
    N38: TMenuItem;
    A10: TMenuItem;
    A11: TMenuItem;
    A12: TMenuItem;
    A13: TMenuItem;
    N39: TMenuItem;
    A14: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure ENWEN1Click(Sender: TObject);
    procedure ENWEN2Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure A8Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    str : array [1..10] of string;
    { Public declarations }
  end;

var
  fmain: Tfmain;

implementation
uses dm,vks,pass,bake,user,about,help,sort,vendor,goods,a1,a2,a3,a4;

{$R *.dfm}

procedure Tfmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if VKS.box('您真的确定退出该系统吗？','退出系统提示') then
    begin
      fdm.conn.Close;
      Application.Terminate;
    end
  else
      action:=caNone;
end;

procedure Tfmain.FormShow(Sender: TObject);
var
  myini : TIniFile;
  imgfile : string;
begin
  Caption := Application.Title;
  sb.Panels[1].Text := '时间: '+FormatDateTime('yyyy-MM-dd hh:mm:ss',now);
  FormResize(Sender);
  myini := TIniFile.Create(pchar(extractfilepath(application.ExeName))+'inc\set.ini');
  imgfile := myini.ReadString('config','bgfile','');
  myini.Free;
  if fileexists(imgfile) then img.Picture.LoadFromFile(imgfile);
end;

procedure Tfmain.FormResize(Sender: TObject);
begin
  sb.Panels[0].Width := Width-(sb.Panels[1].Width+sb.Panels[2].Width+sb.Panels[3].Width);
end;

procedure Tfmain.Timer1Timer(Sender: TObject);
begin
  sb.Panels[1].Text := '时间: '+FormatDateTime('yyyy-MM-dd hh:mm:ss',now);
end;

procedure Tfmain.N10Click(Sender: TObject);
begin
  close;
end;

procedure Tfmain.N8Click(Sender: TObject);
begin
  Application.CreateForm(tfpass,fpass);
  fpass.ShowModal;
end;

procedure Tfmain.N15Click(Sender: TObject);
begin
  Application.CreateForm(tfbake,fbake);
  fbake.ShowModal;
end;

procedure Tfmain.N5Click(Sender: TObject);
var
  myini : TIniFile;
begin
  if opd.Execute then
  begin
    img.Picture.LoadFromFile(opd.FileName);
    myini := TIniFile.Create(pchar(extractfilepath(application.ExeName))+'inc\set.ini');
    myini.WriteString('config','bgfile',opd.FileName);
    myini.Free;
  end;
end;

procedure Tfmain.N6Click(Sender: TObject);
begin
  Application.CreateForm(tfuser,fuser);
  fuser.ShowModal;
end;

procedure Tfmain.N12Click(Sender: TObject);
begin
  Application.CreateForm(tfabout,fabout);
  fabout.ShowModal;
end;

procedure Tfmain.N11Click(Sender: TObject);
begin
  Application.CreateForm(tfhelp,fhelp);
  fhelp.Show;
end;

procedure Tfmain.ENWEN1Click(Sender: TObject);
begin
  shellexecute(handle,'open',pchar('http://hpping.hdut.com'),nil,nil,sw_shownormal);
end;

procedure Tfmain.ENWEN2Click(Sender: TObject);
begin
  shellexecute(handle,'open',pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure Tfmain.N24Click(Sender: TObject);
begin
  shellexecute(handle,'open',pchar('http://www.hdut.com'),nil,nil,sw_shownormal);
end;

procedure Tfmain.N22Click(Sender: TObject);
begin
  Application.CreateForm(tfsort,fsort);
  fsort.ShowModal;
end;

procedure Tfmain.N23Click(Sender: TObject);
begin
  Application.CreateForm(tfvendor,fvendor);
  fvendor.ShowModal;
end;

procedure Tfmain.N14Click(Sender: TObject);
begin
  Application.CreateForm(tfgoods,fgoods);
  fgoods.Show;
end;

procedure Tfmain.A1Click(Sender: TObject);
begin
  if (Sender as TMenuItem).Name='A1' then
  begin
    Application.CreateForm(tfa1,fa1);
    fa1.flag := 'A';
    fa1.lbl_no.Caption := 'A'+formatdatetime('yymmddhhmmss',now);
    fa1.Show;
  end;
  if (Sender as TMenuItem).Name='A2' then
  begin
    Application.CreateForm(tfa1,fa1);
    fa1.Caption := '物品出库操作';
    fa1.Label1.Caption := '出库单编号:';
    fa1.flag := 'B';
    fa1.lbl_no.Caption := 'B'+formatdatetime('yymmddhhmmss',now);
    fa1.Show;
  end;
  if (Sender as TMenuItem).Name='A6' then
  begin
    Application.CreateForm(tfa2,fa2);
    fa2.flag := 'A';
    fdm.qdan.Close;
    fa2.ini('A');
    fa2.Show;
  end;
  if (Sender as TMenuItem).Name='A7' then
  begin
    Application.CreateForm(tfa2,fa2);
    fa2.Caption := '物品出库单审核';
    fa2.flag := 'B';
    fdm.qdan.Close;
    fa2.ini('B');
    fa2.Show;
  end;
  if (Sender as TMenuItem).Name='A3' then
  begin
    Application.CreateForm(tfa3,fa3);
    fa3.flag := 'A';
    fa3.ini('A');
    fa3.Show;
  end;
  if (Sender as TMenuItem).Name='A4' then
  begin
    Application.CreateForm(tfa3,fa3);
    fa3.Caption := '物品出库记录';
    fa3.flag := 'B';
    fa3.ini('B');
    fa3.Show;
  end;
  if (Sender as TMenuItem).Name='A5' then
  begin
    Application.CreateForm(tfa4,fa4);
    fa4.Show;
  end;
end;

procedure Tfmain.A8Click(Sender: TObject);
begin
  if (Sender as TMenuItem).Name='A8' then A1Click(A1);
  if (Sender as TMenuItem).Name='A9' then A1Click(A2);
  if (Sender as TMenuItem).Name='A10' then A1Click(A6);
  if (Sender as TMenuItem).Name='A11' then A1Click(A7);
  if (Sender as TMenuItem).Name='A12' then A1Click(A3);
  if (Sender as TMenuItem).Name='A13' then A1Click(A4);
  if (Sender as TMenuItem).Name='A14' then A1Click(A5);
end;

procedure Tfmain.ToolButton2Click(Sender: TObject);
begin
  A1Click(A1);
end;

procedure Tfmain.ToolButton4Click(Sender: TObject);
begin
  A1Click(A2);
end;

procedure Tfmain.ToolButton5Click(Sender: TObject);
begin
  A1Click(A5);
end;

end.