vehicle.pas

信息管理系统

unit vehicle;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, DB, ADODB,vehicledata_unit,
  DBClient, Grids, DBGrids;

type
  Tvehiclefrm = class(TForm)
    Label18: TLabel;
    Bevel1: TBevel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label14: TLabel;
    Memo1: TMemo;
    Edit6: TEdit;
    Label10: TLabel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    procedure Button1Click(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
   vehicledata:Tvehicledata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  vehiclefrm: Tvehiclefrm;

implementation
uses mainfrmunit2;
{$R *.dfm}

procedure Tvehiclefrm.Button1Click(Sender: TObject);
var sql:string;
begin
//实例化类
vehicledata:=Tvehicledata.create ;
if vehicledata.CheckRec(edit6.text)  then      //如果找到相同的记录,提示用户出错
begin
showmessage('对不起，该车辆编号已存在！');
exit;
end;
//赋值SQL语句更改插入记录的内容
sql:='insert into vehicle_data(vehicle_no,archives_id,Work_Id,Vehicle_Id,'
+'Vehicle_Type,Power,remark,buyday,useday,deadday) '
+'values('''+edit6.Text+''','''+edit1.Text+''','''+edit2.Text+''','
+''''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+memo1.Text+''', '
+''''+datetostr(datetimepicker1.Date)+''','''+datetostr(datetimepicker2.Date)+''','
+''''+datetostr(datetimepicker3.Date)+''' )';
vehicledata.recinsert(sql);
application.MessageBox('新建成功！','提示：',mb_ok);
//释放类的实例
vehicledata.Free;
end;

procedure Tvehiclefrm.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in ['0'..'9'])) and (key <>#8)then
key:=#0;
end;

procedure Tvehiclefrm.Button4Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
memo1.Text:='';
end;

procedure Tvehiclefrm.Button2Click(Sender: TObject);
begin
if  application.MessageBox('确实要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then       //删除信息的警告
begin
//实例化类
vehicledata:=Tvehicledata.create ;
if vehicledata.CheckRec(edit6.text)=false  then      //如果找不到对应的记录,提示用户出错
begin
showmessage('对不起，该车辆编号不存在！');
exit;
end;
vehicledata.RecDel(edit6.text) ;
showmessage('该车辆基本信息已成功删除！');
//释放类的实例
vehicledata.Free;
end;
end;

procedure Tvehiclefrm.Button3Click(Sender: TObject);
var sql:string;
begin
if  application.MessageBox('确实要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then       //更改信息的警告
begin
//实例化类
vehicledata:=Tvehicledata.create ;
if vehicledata.CheckRec(edit6.text)=false  then      //如果找不到对应的记录,提示用户出错
begin
showmessage('对不起，该车辆编号不存在！');
exit;
end;
//赋值SQL语句更改插入记录的内容
sql:='update vehicle_data set archives_id='''+edit1.Text+''','
+'Work_Id='''+edit2.Text+''',Vehicle_Id='''+edit3.Text+''','
+'Vehicle_Type='''+edit4.Text+''','
+'Power='''+edit5.Text+''','
+'remark='''+memo1.Text+''',buyday='''+datetostr(datetimepicker1.Date)+''','
+'useday='''+datetostr(datetimepicker2.Date)+''',deadday='''+datetostr(datetimepicker3.Date)+''' '
+' where vehicle_no='''+edit6.Text+'''';
vehicledata.RecUpdate(sql);
application.MessageBox('修改成功！','提示：',mb_ok);
//释放类的实例
vehicledata.Free;
end;
end;

procedure Tvehiclefrm.Button5Click(Sender: TObject);
var
sql:string;
begin
//实例化类
vehicledata:=Tvehicledata.create ;
if vehicledata.CheckRec(edit6.text)=false  then      //如果找不到对应的记录,提示用户出错
begin
showmessage('对不起，该车辆编号不存在！');
exit;
end;
//将对应的查询结果显示出来
edit2.Text :=vehicledata.GetWorkId(edit6.Text);
edit1.Text :=vehicledata.GetArcId(edit6.Text);
edit3.Text :=vehicledata.GetVehicleId(edit6.Text) ;
edit4.Text :=vehicledata.GetVehicleType(edit6.Text) ;
edit5.Text :=vehicledata.GetPower(edit6.Text) ;
datetimepicker1.DateTime:=strtodate(vehicledata.Getbuyday(edit6.Text) );
datetimepicker2.DateTime:=strtodate(vehicledata.Getuseday(edit6.Text) ) ;
datetimepicker3.DateTime:=strtodate(vehicledata.Getdeadday(edit6.Text) ) ;
memo1.Text:=vehicledata.GetRemark(edit6.Text);
sql:='select VEHICLE_NO	车辆编号,'
+'VEHICLE_ID	车牌号 ,'
+'VEHICLE_TYPE	车型 ,'
+'POWER		吨位   ,'
+'BUYDAY		购买日期 ,'
+'USEDAY		上户日期 ,'
+'DEADDAY		报废日期 ,'
+'WORK_ID		营运证号  ,'
+'ARCHIVES_ID		档案编号 ,'
+'REMARK		备注  FROM vehicle_data where vehicle_no='''+edit6.text+'''';
//执行查询方法并用列表显示出来
clientdataset1.data:=vehicledata.AllRec(sql);
//释放类的实例
vehicledata.Free;
end;

end.