main.pas

用VC和SQL Server开发的固定资产管理系统

unit main;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    l1: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    StatusBar1: TStatusBar;
    N22: TMenuItem;
    N23: TMenuItem;
    Timer1: TTimer;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton9: TToolButton;
    ToolButton4: TToolButton;
    ToolButton10: TToolButton;
    Label3: TLabel;
    Timer2: TTimer;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    procedure N7Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
      Panel: TStatusPanel; const Rect: TRect);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure l1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
  private
    { Private declarations }
    ProgressBar:tProgressBar;
    ProgressBarRect:TRect;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses  password, chaxun, gng, Unit5, quanxian, number, addnumber, delete,
  Ravesink, about, Unit_jilu, Unit9, Unit10, Unit11;

{$R *.dfm}

procedure TForm1.N29Click(Sender: TObject);
begin
    //form11.ShowModal;
    form1.N9.Enabled:=false;
    form1.N14.Enabled:=false;
    form1.N5.Enabled:=false;
    form1.N6.Enabled:=false;
    form1.N3.Enabled:=false;
    form4.Edit1.Text:='';
    form4.Edit2.Text:='';
end;
procedure TForm1.N7Click(Sender: TObject);
begin
  showmessage('确实要退出系统运行吗？');
     if messagedlg('是否停止运行？只有停止才能关闭系统！',mtinformation,
     [mbYes,mbNo],0)=mrYes then
       begin
        close;
       end;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  form2.ShowModal;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
  form3cha.ShowModal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    messageDlg('密码输入错误，是否取消？',mtInformation,[mbok],0);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  form4.ShowModal;
end;

procedure TForm1.N19Click(Sender: TObject);
begin
  form5.ShowModal;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
  form3cha.ShowModal;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  Access.ShowModal;
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
   ProgressBarRect:=Rect;
end;

procedure TForm1.N6Click(Sender: TObject);
 var
 i,stepcount:integer;
begin
  ProgressBar:=TProgressBar.Create(form1);
  stepcount:=50000;
  with ProgressBar do
  begin
  Top:=ProgressBarRect.Top;
  Left:=ProgressBarRect.Left;
  width:=ProgressBarRect.Right-ProgressBarRect.Left;
  height:=ProgressBarRect.Bottom-ProgressBarRect.Top;
  Visible:=True;
  try
  Parent:=StatusBar1;
  Min:=0;
  max:=stepcount;
  Step:=1;
  for i:=1 to stepcount do stepit;
   messageDlg('已经成功地保存了文件。',mtInformation,[mbok],0);
  finally
  free;
  end;
end;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
  form3.ShowModal;
end;

procedure TForm1.l1Click(Sender: TObject);
begin
    form6.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 form1.N9.Enabled:=false;
 form1.N14.Enabled:=false;
 form1.N3.Enabled:=false;
 form1.N5.Enabled:=false;
 form1.N6.Enabled:=false;
 form1.N29.Enabled:=false;
//label2.Color:=clred;
label1.Caption:='欢迎使用固定资产管理系统'+#13+#13+'设计： 范昭辉';
   label2.Caption:='现在的时间是:';
   maskedit1.Text:=datetostr(now);
   maskedit2.Text:=timetostr(now);

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-8;
  if (label1.Left<-label1.Width) then
   label1.Left:=image1.Width;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
label3.Caption:='欢迎光临 '+#13+#13+'班级： 03可视化';
  label3.Top:=label3.Top-2;
  if (label3.Top<-label3.Width) then
   label3.Top:=image1.Height;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
    xitongjilu.ShowModal;
end;

procedure TForm1.N25Click(Sender: TObject);
begin
    form8.ShowModal;
end;

procedure TForm1.N26Click(Sender: TObject);
begin
   messagedlg('关于固定资产管理系统。',mtinformation,[mbok],0) ;
end;

procedure TForm1.N28Click(Sender: TObject);
begin
   form9.ShowModal;
end;

procedure TForm1.N27Click(Sender: TObject);
begin
   form10.ShowModal;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
   Rave.ShowModal;
end;



procedure TForm1.N18Click(Sender: TObject);
begin
   form6.Show;
end;

end.