zct.~pas

来自「希望大家能多多指教这是我给我们同学编的系统」· ~PAS 代码 · 共 321 行

unit zct;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ExtCtrls, ImgList, ToolWin;

type
  Tzctform = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N7: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    N28: TMenuItem;
    N3: TMenuItem;
    N10: TMenuItem;
    N29: TMenuItem;
    N22: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton1: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    procedure N23Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zctform: Tzctform;

implementation
   uses quit,tzzgx,dkpxmd,fzdxgx,YBDY,zsdy,tzb,tfsjgx,tzzcx, dkpxcg,
  fzdxcg, tzbcx, tfsgxc, ybdycx, zsdycx, shtl, tzzdy, tfsj, trhd1, tzbcy,
  tzzmd, tzbdymd, tfsjqk, dkpxdymd, fzdxmd, ybdymd, zsdymd, hdjb, llmd,
  dkpxmd1, dl, fzdxmd1, jldy, jlgx, kxcd, shsj, welcome, ybdymd1, zsdymd1,
  cxysg;
{$R *.dfm}

procedure Tzctform.N23Click(Sender: TObject);
begin
if messagedlg('是否退出？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
zctform.Hide;
quitform.Show;
quitform.Timer.Enabled:=true;
end;
end;
procedure Tzctform.N6Click(Sender: TObject);
begin
tzzgxform.Show;
end;

procedure Tzctform.N7Click(Sender: TObject);
begin
dkpxmdform.Show;
end;

procedure Tzctform.N25Click(Sender: TObject);
begin
fzdxgxform.Show;
end;

procedure Tzctform.FormCreate(Sender: TObject);
begin

   statusbar1.Panels.Items[2].Text:='时间'+timetostr(time);
  StatusBar1.Panels.Items[1].Text :='日期'+DATETOSTR(DATE);
 end;

procedure Tzctform.Timer1Timer(Sender: TObject);
begin
 statusbar1.Panels.Items[2].Text:='时间'+timetostr(time);
end;

procedure Tzctform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure Tzctform.N26Click(Sender: TObject);
begin
  YBDYFORM.Show;
end;

procedure Tzctform.N27Click(Sender: TObject);
begin
zsdyform.Show;
end;

procedure Tzctform.N8Click(Sender: TObject);
begin
tzbform.Show;
end;

procedure Tzctform.N28Click(Sender: TObject);
begin
tfsjform.Show;
end;

procedure Tzctform.N2Click(Sender: TObject);
begin
tzzcxform.Show;
end;

procedure Tzctform.N15Click(Sender: TObject);
begin
dkpxcgform.Show;
end;

procedure Tzctform.N16Click(Sender: TObject);
begin
fzdxcgform.Show;
end;

procedure Tzctform.N4Click(Sender: TObject);
begin
tzbcxform.Show;
end;

procedure Tzctform.N3Click(Sender: TObject);
begin
  tfsjxcform.Show;
end;

procedure Tzctform.N17Click(Sender: TObject);
begin
ybdycxform.Show;
end;

procedure Tzctform.N18Click(Sender: TObject);
begin
zsdycxform.Show;
end;

procedure Tzctform.N21Click(Sender: TObject);
begin
shtlform.Show;
end;

procedure Tzctform.N29Click(Sender: TObject);
begin

form1.QuickRep1.Preview;

end;


procedure Tzctform.N11Click(Sender: TObject);
begin
tfsjckform.Show;
end;

procedure Tzctform.N13Click(Sender: TObject);
begin
tzbcyform.show;
end;

procedure Tzctform.N20Click(Sender: TObject);
begin
tzzmdform.Show;
end;

procedure Tzctform.N22Click(Sender: TObject);
begin
tzbdymdform.QuickRep1.Preview;
end;

procedure Tzctform.N30Click(Sender: TObject);
begin
tfsjqkform.QuickRep1.Preview ;
end;

procedure Tzctform.N32Click(Sender: TObject);
begin
form2.QuickRep1.Preview;;
end;

procedure Tzctform.N33Click(Sender: TObject);
begin
form3.QuickRep1.Preview;
end;

procedure Tzctform.N34Click(Sender: TObject);
begin
form4.QuickRep1.Preview; 
end;

procedure Tzctform.N35Click(Sender: TObject);
begin
form5.QuickRep1.Preview;
end;

procedure Tzctform.N12Click(Sender: TObject);
begin
hdjbform.Show;
end;

procedure Tzctform.ToolButton4Click(Sender: TObject);
begin
 llmdform.Show;
end;

procedure Tzctform.ToolButton3Click(Sender: TObject);
begin
jlgxform.Show;
end;

procedure Tzctform.ToolButton2Click(Sender: TObject);
begin
form8.Show;
end;

procedure Tzctform.ToolButton7Click(Sender: TObject);
begin
form9.Show;
end;

procedure Tzctform.ToolButton9Click(Sender: TObject);
begin
hdjbform.Show;
end;

procedure Tzctform.ToolButton11Click(Sender: TObject);
begin
shtlform.Show;
end;

procedure Tzctform.ToolButton13Click(Sender: TObject);
begin
if messagedlg('是否退出？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
zctform.Hide;
quitform.Show;
quitform.Timer.Enabled:=true;
end;
end;

end.