unit1.pas

这是用Delphi编写的车辆管理系统。主要功能有档案管理

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    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;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    StatusBar1: TStatusBar;
    PopupMenu1: TPopupMenu;
    jj1: TMenuItem;
    j1: TMenuItem;
    jj2: TMenuItem;
    ImageList1: TImageList;
    Timer1: TTimer;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    Image2: TImage;
    N41: TMenuItem;
    N42: TMenuItem;
    CoolBar1: TCoolBar;
    N43: TMenuItem;
    N44: TMenuItem;
    PageScroller1: TPageScroller;
    ToolBar2: TToolBar;
    tbcarda: TToolButton;
    tbdriverda: TToolButton;
    tbshiguda: TToolButton;
    ToolButton9: TToolButton;
    tbyyman: TToolButton;
    tbwxman: TToolButton;
    tbwzman: TToolButton;
    ToolButton13: TToolButton;
    tbchaxun: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    N45: TMenuItem;
    N46: TMenuItem;
    ToolButton1: TToolButton;
    Image3: TImage;
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure TBaboutClick(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
  private
      firsttime :boolean;
    vho,vmo,vso:real;
    { Private declarations }
  public
        dir1:  string;
      islogin:boolean;
    { Public declarations }
  end;
var
  Form1: TForm1;
  bimp1: TBitmap;


implementation
uses unit2,unit3,unit4,unit5,unit6,jsycx,sgcx,ydgl,yidongCX,clbf,baofeiCX,WXGL,
        weixiucx,TJLJ,YYGL,yunyingCX,WZGL,weizhangCX,JSYJF,user,Backup,daterestore,login,CLLx,help,aboutform;

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
statusbar1.Panels[0].Text:='日期:'+Datetostr(date);
statusbar1.Panels[0].Width:=form1.Width div 3;
//toolbar1.Canvas.StretchDraw(rect,bimp1);
form1.Canvas.StretchDraw(form1.ClientRect,bimp1);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
if n42.Checked then
 begin
  panel1.Left:=form1.Width-panel1.Width-8;
  panel1.Top:=form1.ClientHeight-panel1.Height-statusbar1.Height;
 end;
form1.Paint;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
bimp1.FreeImage;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
islogin:=false;
panel1.Left:=form1.Width-panel1.Width-8;
panel1.Top:=form1.ClientHeight-panel1.Height-statusbar1.Height;
panel1.Visible:=n42.Checked;
coolbar1.Visible:=n44.Checked;
try
bimp1:=Tbitmap.create;
getdir(0,dir1);
bimp1.LoadFromFile(dir1+'\back.bmp');
dir1:=dir1+'\data';
datamodule2.CardanganQ.DatabaseName:=dir1;
datamodule2.carclassQ.DatabaseName:=dir1;
datamodule2.Table1.DatabaseName:=dir1;
datamodule2.Table1.TableName:='driverjf.dbf';
datamodule2.Table1.Open;
except
 showmessage('系统出错！！请及时恢复！！');
end;
// time
{with form1.Image1.Canvas do begin
   pen.Color:=clwhite;
   pen.Style:=pssolid;
   pen.Width:=1;
   brush.Color:=clwhite;
   rectangle(0,0,width,height);
   pen.Color:=clblack;
   for i:=1 to 12 do
    pixels[30+round(30*sin(i/12.0*2*pi)),30-round(30*cos(i/12.0*2*pi))]:=clblack;
     end;
 }
   firsttime:=true;
   imagelist1.GetIcon(8,application.Icon);

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 mynow :Tdatetime;
 hour,min,sec,msec:word;
 vh,vm,vs:real;
begin

mynow:=now;
decodetime(mynow,hour,min,sec,msec);
vm:=min/60.0*2*pi;
vh:=hour/12.0*2*pi+(vm/12);
vs:=sec/60.0*2*pi;
with form1.Image1.Canvas do
begin
     if not firsttime then begin
     pen.Color:=clwhite;
     moveto(33,30);
     lineto(33+round(17*sin(vho)),30-round(17*cos(vho)));
     moveto(33,30);
    lineto(33+round(21*sin(vmo)),30-round(21*cos(vmo)));
    moveto(33,30);
     lineto(33+round(21*sin(vso)),30-round(21*cos(vso)));
     end
   else firsttime:=false;

pen.Color:=clblack;
  moveto(33,30);
  lineto(33+round(17*sin(vh)),30-round(17*cos(vh)));
  moveto(33,30);
  lineto(33+round(21*sin(vm)),30-round(21*cos(vm)));
  moveto(33,30);
  lineto(33+round(21*sin(vs)),30-round(21*cos(vs)));
end;
vho:=vh;
vmo:=vm;
vso:=vs;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
cardanganLR.ShowModal;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
carchaxun.ShowModal;
end;

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

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

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

procedure TForm1.N26Click(Sender: TObject);
begin
carshigucx.ShowModal;
end;

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

procedure TForm1.N11Click(Sender: TObject);
begin
caryidongcx.ShowModal;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
carbaofei.ShowModal;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
carbaofeiCX.ShowModal;
end;

procedure TForm1.N18Click(Sender: TObject);
begin
Carweixiu.ShowModal;
end;

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

procedure TForm1.N20Click(Sender: TObject);
begin
carlingjian.ShowModal;
end;

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

end;

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

end;

procedure TForm1.N17Click(Sender: TObject);
begin
if messagebox(form1.Handle,'此功能会清空运营表所有数据！'+#13+'您确定要清空运营表吗？？','提示',MB_YESNO + MB_ICONWARNING) =ID_YES then
begin
 with datamodule2.carclassQ do
 begin
  close;
  sql.clear;
  sql.Add('delete from caryunying.dbf ');
  execsql;
 end;
end;

end;

procedure TForm1.N22Click(Sender: TObject);
begin
carweizhang.ShowModal;
end;

procedure TForm1.N23Click(Sender: TObject);
begin
carweizhangCX.ShowModal;
end;

procedure TForm1.N29Click(Sender: TObject);
begin
DriverJF.showmodal;
end;

procedure TForm1.N30Click(Sender: TObject);
begin
if messagebox(form1.Handle,'您正要执行系统初始化命令，'+#13+'您确定要进行系统初始化吗？','提示',MB_YESNO + MB_ICONWARNING) = ID_YES then
   begin
   with datamodule2.CardanganQ  do
   begin
   close;
   sql.Clear;
   sql.Add('delete from Carbaofei.DBF');
   execsql;
   close;
   sql.Clear;
   sql.Add('delete from CarClass.DBF');
   execsql;
   close;
   sql.Clear;
   sql.Add('delete from cardangan.DBF');
   execsql;
   close;
   sql.Clear;
   sql.Add('delete from Cardriver.DBF');
   execsql;
   close;
   sql.Clear;
   sql.Add('delete from Carlingjian.DBF');
   execsql;
   close;
   sql.Clear;
   sql.Add('delete from Carshigu.DBF');
   execsql;
   close;
   sql.Clear;
   sql.Add('delete from Carweixiu.DBF');
   execsql;
   close;
   sql.Clear;
   sql.Add('delete from Carweizhang.DBF');
   execsql;
   close;
   sql.Clear;
   sql.Add('delete from Caryidong.DBF');
   execsql;
   close;
   sql.Clear;
   sql.Add('delete from Caryunying.DBF');
   execsql;
   close;
   sql.Clear;
   sql.Add('delete from users.DBF');
   execsql;
   end;
   end;
end;

procedure TForm1.N31Click(Sender: TObject);
begin
caruser.ShowModal;
end;

procedure TForm1.N32Click(Sender: TObject);
begin
dateback.ShowModal;
end;

procedure TForm1.N33Click(Sender: TObject);
begin
restore.ShowModal;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
with datamodule2.carclassQ do
  begin
  close;
  sql.Clear;
  sql.Add('select * from users');
  open;
  if recordcount <1 then
   begin
   showmessage('您是第一次使用本系统，请先创建一个管理员后使用！！');
   caruser.ShowModal;
   end;
  end;
userlogin.ShowModal;
speedbutton1.Parent:=statusbar1;
speedbutton1.Left:=2;
speedbutton1.Top:=3;
speedbutton1.Height:=statusbar1.ClientHeight-4;
if not n42.Checked then
 panel1.Hide;

end;

procedure TForm1.N37Click(Sender: TObject);
begin
userlogin.ShowModal;
end;

procedure TForm1.N38Click(Sender: TObject);
begin
carclass.ShowModal;
end;

procedure TForm1.N36Click(Sender: TObject);
begin
helpform.ShowModal;
end;

procedure TForm1.TBaboutClick(Sender: TObject);
begin
about.showmodal;
end;

procedure TForm1.N40Click(Sender: TObject);
begin
about.ShowModal;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
if messagebox(form1.handle,'确认要退出本系统吗?', '提示', mb_YESNO+MB_ICONQUESTION	) = ID_YES then
 application.Terminate;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagebox(form1.handle,'确认要退出本系统吗?', '提示', mb_YESNO+MB_ICONQUESTION	) = ID_NO then
     CanClose := False;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.N42Click(Sender: TObject);
begin
n42.Checked:=not n42.Checked;
panel1.Visible:=n42.Checked;
if n42.Checked then
  begin
  n42.Caption:='隐藏时钟';
  panel1.Left:=form1.Width-panel1.Width-8;
  panel1.Top:=form1.ClientHeight-panel1.Height-statusbar1.Height;
  end
  else
   n42.Caption:='显示时钟';
end;

procedure TForm1.N43Click(Sender: TObject);
begin
drivercx.ShowModal;
end;

procedure TForm1.N44Click(Sender: TObject);
begin
n44.Checked:=not n44.Checked;
 coolbar1.Visible:=n44.Checked;
 if n44.Checked then
    n44.Caption:='隐藏工具栏'
   else
     n44.Caption:='显示工具栏';
end;

procedure TForm1.N46Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
shellexecute(form1.Handle,nil,'http://www.mingrisoft.com',nil,nil,sw_shownormal);
end;

end.