mainfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 809 行 · 第 1/2 页

unit mainfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shellapi, Menus, ExtCtrls, Buttons, ToolWin, ComCtrls, ImgList, XPMenu,
  XPBarMenu, StdCtrls, backup;

type
  Tmain = class(TForm)
    Image1: TImage;
    Bar1: TStatusBar;
    ToolBar1: TToolBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    R1: TMenuItem;
    I1: TMenuItem;
    N5: TMenuItem;
    Q1: 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;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    Timer1: TTimer;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton6: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    ToolButton27: TToolButton;
    N57: TMenuItem;
    N58: TMenuItem;
    ControlBar1: TControlBar;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    F1: TMenuItem;
    N23: TMenuItem;
    O1: TMenuItem;
    N24: TMenuItem;
    J2: TMenuItem;
    ToolButton28: TToolButton;
    N25: TMenuItem;
    N56: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    ToolButton29: TToolButton;
    XPBarMenu1: TXPBarMenu;
    D1: TMenuItem;
    D2: TMenuItem;
    ToolButton30: TToolButton;
    ToolButton31: TToolButton;
    ToolButton32: TToolButton;
    ToolButton33: TToolButton;
    ToolButton34: TToolButton;
    ToolButton35: TToolButton;
    ToolButton36: TToolButton;
    ToolButton37: TToolButton;
    BackupFile1: TBackupFile;
    ListBox1: TListBox;
    BackupFile2: TBackupFile;
    procedure N13Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure F1Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure J2Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure D2Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

{$R *.dfm}
uses datafrm,sjsbfrm,sjjsfrm,chshhfrm,datahf,databffrm,yfwxfrm,wxglfrm,dtfrm,yfwzfrm,yfdafrm,kcyjfrm,guolufrm,xjyffrm,gxfrm,yfzlfrm,yfsbfrm,yffdfrm,dwqkfrm,dwyjfrm,grjyyjfrm,cjdglfrm,dbdfrm,yjghfrm,yjcjfrm,yjgz,yjsyfrm,yjsffrm,yjdbfrm,sdjgfrm,sdbzfrm,sdyhfrm,yhsdffrm,guanyufrm,xgmmfrm,dwszfrm,bjszfrm,yjzlfrm,dwsdffrm,dwsdfbzfrm,zjxhdefrm,
  yfglszhfrm, dwsdfhztfrm, yhsdfhztfrm, dbddyfrm, cjddyfrm;

procedure Tmain.N13Click(Sender: TObject);
begin
close;
end;

procedure Tmain.Timer1Timer(Sender: TObject);
var
present:tdatetime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
shour,smin,ssec:string;
days: array[1..7] of string;
begin
bar1.Panels[0].Width:=bar1.Width-665;
bar1.Panels[1].Text:='使用单位：'+yfglszh.szh.FieldByName('单位').AsString;
present:=now;
decodedate(present,year,month,day);
bar1.Panels[3].Text:=inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日';
DecodeTime(Present, Hour, Min, Sec, MSec);
if hour>9 then
  shour:=inttostr(hour)
else
  shour:='0'+inttostr(hour);
if min>9 then
  smin:=inttostr(min)
else
  smin:='0'+inttostr(min);
if sec>9 then
  ssec:=inttostr(sec)
else
  ssec:='0'+inttostr(sec);
bar1.Panels[5].Text:=shour+':'+smin+':'+ssec;
days[1] := '星期日';
days[2] := '星期一';
days[3] := '星期二';
days[4] := '星期三';
days[5] := '星期四';
days[6] := '星期五';
days[7] := '星期六';
bar1.Panels[4].Text:=days[DayOfWeek(present)];
bar1.Refresh;
end;

procedure Tmain.N6Click(Sender: TObject);
begin
application.CreateForm(tsdjg,sdjg);
try
  sdjg.ShowModal;
finally
  sdjg.Free;
end;
end;

procedure Tmain.N7Click(Sender: TObject);
begin
application.CreateForm(tsdbz,sdbz);
try
  sdbz.ShowModal;
finally
  sdbz.Free;
end;
end;

procedure Tmain.N9Click(Sender: TObject);
begin
application.CreateForm(tsdyh,sdyh);
try
  sdyh.ShowModal;
finally
  sdyh.Free;
end;
end;

procedure Tmain.N10Click(Sender: TObject);
begin
application.CreateForm(tyhsdf,yhsdf);
try
  yhsdf.ShowModal;
finally
  yhsdf.Free;
end;
end;

procedure Tmain.N16Click(Sender: TObject);
begin
application.CreateForm(tguanyu,guanyu);
try
  guanyu.ShowModal;
finally
  guanyu.Free;
end;
end;

procedure Tmain.N18Click(Sender: TObject);
begin
application.CreateForm(tpassword,password);
try
  password.ShowModal;
finally
  password.Free;
end;
end;

procedure Tmain.N17Click(Sender: TObject);
begin
application.CreateForm(tdwsz,dwsz);
try
  dwsz.ShowModal;
finally
  dwsz.Free;
end;
end;

procedure Tmain.N20Click(Sender: TObject);
begin
application.CreateForm(tbjsz,bjsz);
try
  bjsz.ShowModal;
finally
  bjsz.Free;
end;
end;

procedure Tmain.FormActivate(Sender: TObject);
begin
main.ToolBar2.Width:=main.Width;
main.ToolBar1.Width:=main.Width;
if yfglszh.szh.Fields[1].AsString<>'' then
  begin
  if fileexists(yfglszh.szh.Fields[1].AsString) then
  main.Image1.Picture.LoadFromFile(yfglszh.szh.Fields[1].AsString);
  end;
end;

procedure Tmain.N21Click(Sender: TObject);
begin
application.CreateForm(tyjzl,yjzl);
try
  yjzl.ShowModal;
finally
  yjzl.Free;
end;
end;

procedure Tmain.N12Click(Sender: TObject);
begin
application.CreateForm(tdwsdf,dwsdf);
try
  dwsdf.ShowModal;
finally
  dwsdf.Free;
end;
end;

procedure Tmain.N57Click(Sender: TObject);
begin
application.CreateForm(tdwsdfbz,dwsdfbz);
try
  dwsdfbz.ShowModal;
finally
  dwsdfbz.Free;
end;
end;

procedure Tmain.N58Click(Sender: TObject);
begin
application.CreateForm(tzjxhde,zjxhde);
try
  zjxhde.ShowModal;
finally
  zjxhde.Free;
end;
end;

procedure Tmain.N23Click(Sender: TObject);
begin
application.CreateForm(tyjyjgz,yjyjgz);
try
  yjyjgz.ShowModal;
finally
  yjyjgz.Free;
end;
end;

procedure Tmain.F1Click(Sender: TObject);
begin
application.CreateForm(tyjsf,yjsf);
try
  yjsf.ShowModal;
finally
  yjsf.Free;
end;
end;

procedure Tmain.N26Click(Sender: TObject);
begin
application.CreateForm(tyjdb,yjdb);
try
  yjdb.ShowModal;
finally
  yjdb.Free;
end;
end;

procedure Tmain.N27Click(Sender: TObject);
begin
application.CreateForm(tyjsy,yjsy);
try
  yjsy.ShowModal;
finally
  yjsy.Free;
end;
end;

procedure Tmain.N29Click(Sender: TObject);
begin
application.CreateForm(tyjcj,yjcj);
try
  yjcj.ShowModal;
finally
  yjcj.Free;
end;
end;