vehicleout.pas

信息管理系统

unit vehicleout;

interface

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

type
  Tvehicleoutfrm = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label14: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
  vehicledata:Tvehicledata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  vehicleoutfrm: Tvehicleoutfrm;

implementation
 uses mainfrmunit2;
{$R *.dfm}

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

procedure Tvehicleoutfrm.Button2Click(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) ) ;
//释放类的实例
vehicledata.Free;
end;

procedure Tvehicleoutfrm.Button1Click(Sender: TObject);
var sql:string;
begin
//创建类的实例
vehicledata:=Tvehicledata.create ;
//赋值查询语句
sql:='select VEHICLE_NO	车辆编号,'
+'VEHICLE_ID	车牌号 ,'
+'VEHICLE_TYPE	车型 ,'
+'POWER		吨位   ,'
+'BUYDAY		购买日期 ,'
+'USEDAY		上户日期 ,'
+'DEADDAY		报废日期 ,'
+'WORK_ID		营运证号  ,'
+'ARCHIVES_ID		档案编号 ,'
+'REMARK		备注  FROM vehicle_data';
//执行查询方法并用列表显示出来
clientdataset1.data:=vehicledata.AllRec(sql);
//释放实例
vehicledata.Free;
end;

procedure Tvehicleoutfrm.DBGrid1CellClick(Column: TColumn);
begin
//实例化类
vehicledata:=Tvehicledata.create ;
edit6.Text :=DBGrid1.Fields[0].AsString ;
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) ) ;
//释放类的实例
vehicledata.Free;
end;

end.