gmmsmain.pas

delphi通用信息管理系统源码 供学习使用

unit GMMSmain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, Db, DBTables, ImgList, ComCtrls, ToolWin,
  GMLogin,GMAbout,GMAddUsr,GMDelUsr,GMDelPas,GMModiPa,GMSelUsr,
  GMRight,GMInput,GMUnOver,Gmdepart, ExtCtrls;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    A__: TMenuItem;
    A1__: TMenuItem;
    A2__: TMenuItem;
    Separator: TMenuItem;
    A3__: TMenuItem;
    A4__: TMenuItem;
    Separator2: TMenuItem;
    A5__: TMenuItem;
    A6__: TMenuItem;
    B__: TMenuItem;
    B1__: TMenuItem;
    B2__: TMenuItem;
    Separator3: TMenuItem;
    B3__: TMenuItem;
    B4__: TMenuItem;
    C__: TMenuItem;
    C1__: TMenuItem;
    C2__: TMenuItem;
    C3__: TMenuItem;
    C4__: TMenuItem;
    C41_: TMenuItem;
    C42_: TMenuItem;
    C43_: TMenuItem;
    D__: TMenuItem;
    D1__: TMenuItem;
    D2__: TMenuItem;
    separator4: TMenuItem;
    D3__: TMenuItem;
    E__: TMenuItem;
    E1__: TMenuItem;
    F__: TMenuItem;
    F1__: TMenuItem;
    E2__: TMenuItem;
    separator5: TMenuItem;
    E3__: TMenuItem;
    E4__: TMenuItem;
    F2__: TMenuItem;
    F3__: TMenuItem;
    separator6: TMenuItem;
    F4__: TMenuItem;
    F5__: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    enviorn: TTable;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    StatusBar1: TStatusBar;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    Timer1: TTimer;
    ToolButton9: TToolButton;
    Separator1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure A6__Click(Sender: TObject);
    procedure A5__Click(Sender: TObject);
    procedure A4__Click(Sender: TObject);
    procedure F1__Click(Sender: TObject);
    procedure F2__Click(Sender: TObject);
    procedure F3__Click(Sender: TObject);
    procedure F5__Click(Sender: TObject);
    procedure F4__Click(Sender: TObject);
    procedure A1__Click(Sender: TObject);
    procedure E1__Click(Sender: TObject);
    procedure A2__Click(Sender: TObject);
    procedure D1__Click(Sender: TObject);
    procedure A3__Click(Sender: TObject);
    procedure B1__Click(Sender: TObject);
    procedure B2__Click(Sender: TObject);
    procedure B3__Click(Sender: TObject);
    procedure B4__Click(Sender: TObject);
    procedure C1__Click(Sender: TObject);
    procedure C2__Click(Sender: TObject);
    procedure C3__Click(Sender: TObject);
    procedure C41_Click(Sender: TObject);
    procedure C42_Click(Sender: TObject);
    procedure C43_Click(Sender: TObject);
    procedure D2__Click(Sender: TObject);
    procedure E2__Click(Sender: TObject);
    procedure D3__Click(Sender: TObject);
    procedure E3__Click(Sender: TObject);
    procedure E4__Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  gmUserName,gmPassword,gmUnRight,gmComment:string;
  gmTitle,gmDataPath,gmSysPath:string;

implementation

{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  MainForm.BorderIcons:=[biSystemMenu,biMinimize];
  MainForm.Left:=0;
  MainForm.Top:=0;
  MainForm.Width:=640;
  MainForm.Height:=480;
end;

procedure TMainForm.A6__Click(Sender: TObject);
begin
  if Application.MessageBox('真的要退出本系统吗？','退出系统',mb_OKCancel+mb_ICONSTOP)=IDOK then
    Close;
end;

procedure TMainForm.A5__Click(Sender: TObject);
var
  AboutBox:TAboutBox;
begin
  AboutBox:=TAboutBox.Create(Self);
  AboutBox.ShowModal;
end;

procedure TMainForm.A4__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.F1__Click(Sender: TObject);
var
  AddUser:TAddUser;
begin
  AddUser:=TAddUser.Create(Self);
  AddUser.ShowModal;
end;

procedure TMainForm.F2__Click(Sender: TObject);
var
  DelUser:TDelUser;
begin
  DelUser:=TDelUser.Create(Self);
  DelUser.ShowModal;
end;

procedure TMainForm.F3__Click(Sender: TObject);
var
  DelPass:TDelPass;
begin
  DelPass:=TDelPass.Create(Self);
  DelPass.ShowModal;
end;

procedure TMainForm.F5__Click(Sender: TObject);
var
  ModiPass:TModiPass;
begin
  ModiPass:=TModiPass.Create(Self);
  MOdiPass.ShowModal;
end;

procedure TMainForm.F4__Click(Sender: TObject);
var
  SelUser:TSelUser;
  tmpUserName,tmpPassword,tmpUnRight:String;
begin
  tmpUserName:=gmUserName;
  tmpPassword:=gmPassword;
  tmpUnRight:=gmUnRight;
  SelUser:=TSelUser.Create(Self);
  SelUser.ShowModal;
  gmUserName:=tmpUserName;
  gmPassword:=gmPassword;
  gmUnRight:=tmpUnRight;
end;

procedure TMainForm.A1__Click(Sender: TObject);
var
  input:TInput;
begin
  input:=TInput.Create(Self);
  input.ShowModal;
end;

procedure TMainForm.E1__Click(Sender: TObject);
var
  bmwh:Tbmbm;
begin
  bmwh:=Tbmbm.Create(Self);
  bmwh.ShowModal;
end;

procedure TMainForm.A2__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.D1__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.A3__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.B1__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.B2__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.B3__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.B4__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.C1__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.C2__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.C3__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.C41_Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.C42_Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.C43_Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.D2__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.E2__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.D3__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.E3__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.E4__Click(Sender: TObject);
var
  mm:TUnOver;
begin
  mm:=TUnOver.Create(Self);
  mm.ShowModal;
end;

procedure TMainForm.FormActivate(Sender: TObject);
var
  Login:TLogin;
  CurrentPath,tmpDayOfWeek:String;
begin
    tmpDayOfWeek:=IntToStr(DayOfWeek(Date)-1);
    if tmpDayOfWeek='0' then tmpDayOfWeek:='天';
    if tmpDayOfWeek='1' then tmpDayOfWeek:='一';
    if tmpDayOfWeek='2' then tmpDayOfWeek:='二';
    if tmpDayOfWeek='3' then tmpDayOfWeek:='三';
    if tmpDayOfWeek='4' then tmpDayOfWeek:='四';
    if tmpDayOfWeek='5' then tmpDayOfWeek:='五';
    if tmpDayOfWeek='6' then tmpDayOfWeek:='六';
    statusbar1.Panels.Items[1].Text:='日期：'+FormatDateTime('yyyy"-"mm"-"dd ', StrToDate(DateToStr(Date)))+' 星期'+tmpDayOfWeek;

  GetDir(0,CurrentPath);
  enviorn.DatabaseName:=CurrentPath;
  enviorn.Open;
  enviorn.SetKey;
  enviorn.FieldByName('Flag').AsString:='TITL';
  if enviorn.GotoKey then
    gmTitle:=enviorn.FieldByName('Content').AsString
  else
    gmTitle:='通用物资管理信息系统 ';
  MainForm.Caption:=gmTitle;
  enviorn.SetKey;
  enviorn.FieldByName('Flag').AsString:='DATA';
  if enviorn.GotoKey then
    gmDataPath:=enviorn.FieldByName('Content').AsString
  else
    gmDataPath:=CurrentPath;
  enviorn.SetKey;
  enviorn.FieldByName('Flag').AsString:='SYS_';
  if enviorn.GotoKey then
    gmSysPath:=enviorn.FieldByName('Content').AsString
  else
    gmSysPath:=CurrentPath;
  enviorn.Close;
  Login:=TLogin.Create(Self);
  Login.ShowModal;
  if Pos('-A__',gmUnRight)<>0 then A__.Enabled:=False;
  if Pos('-A1__',gmUnRight)<>0 then A1__.Enabled:=False;
  if Pos('-A2__',gmUnRight)<>0 then A2__.Enabled:=False;
  if Pos('-A3__',gmUnRight)<>0 then A3__.Enabled:=False;
  if Pos('-A4__',gmUnRight)<>0 then A4__.Enabled:=False;
  if Pos('-A5__',gmUnRight)<>0 then A5__.Enabled:=False;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
 statusbar1.Panels.Items[2].Text:=FormatDateTime('hh:mm AM/PM',Time());
end;

procedure TMainForm.FormPaint(Sender: TObject);
var
  I:Word;
  DY,Y:Real;
begin
  DY:=ClientHeight/256;
  Y:=0;
  For I:=255 Downto 0 Do
  begin
    Canvas.Brush.Color:=$00000000+I*$10000;
    Canvas.FillRect(Rect(0,Round(Y),ClientWidth,Round(Y+DY)));
     Y:=Y+DY;
  end;
end;

procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  statusbar1.Panels.Items[0].text:='GMMS通用物资管理系统 Beta Version 1.0.0';
end;

end.