accidentout.pas

信息管理系统

unit accidentout;

interface

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

type
  Taccidentoutfrm = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    ClientDataSet1: TClientDataSet;
    Panel2: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit3: TEdit;
    Edit4: TEdit;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label10: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
  accident_info:Taccident_info ;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  accidentoutfrm: Taccidentoutfrm;

implementation

{$R *.dfm}


procedure Taccidentoutfrm.Button1Click(Sender: TObject);
var sql:string;
begin
//实例化类
  accident_info:=Taccident_info.create ;
  //赋值查询语句
  sql:='select	VEHICLE_NO	车辆编号,'
+'ARCHIVES_ID	档案编号, '
+'VEHICLE_ID	车牌号 ,'
+'DRIVER_ID		司机编号 ,'
+'ACCIDENT_TYPE		事故类别,'
+'BAOXIAN 保险公司 ,'
+'MONEY	赔偿金额    ,'
+'ACCIDENT_CONTENT		事故程度,'
+'ACCIDENT_DAY		事故日期      FROM accident_info';
//执行查询方法并用列表显示出来
clientdataset1.data:=accident_info.AllRec(sql);
//释放实例
accident_info.Free;
end;

procedure Taccidentoutfrm.Button2Click(Sender: TObject);
begin
//实例化类
  accident_info:=Taccident_info.create ;
  if accident_info.CheckRec(edit6.text)=false  then      //如果找不到对应的记录,提示用户出错
  begin
   showmessage('对不起，该事故记录不存在！');
   exit;
  end;
edit1.Text :=accident_info.GetACCIDENTType(edit6.Text);
edit5.Text :=accident_info.GetVehicleId(edit6.Text);
edit2.Text :=accident_info.GetACCIDENTCONTENT(edit6.Text);
edit3.Text :=accident_info.GetBAOXIAN(edit6.Text) ;
edit4.Text :=accident_info.GetMoney(edit6.Text);
edit8.Text :=accident_info.GetDRIVERID(edit6.Text) ;
edit7.Text :=accident_info.GetVEHICLENO(edit6.Text) ;
datetimepicker1.DateTime:=strtodate(accident_info.GetAccidentTime(edit6.Text) ) ;
memo1.Text:=accident_info.GetRemark(edit6.Text);
//释放类的实例
accident_info.Free;
end;

procedure Taccidentoutfrm.DBGrid1CellClick(Column: TColumn);
begin
//实例化类
  accident_info:=Taccident_info.create ;
  edit6.text:=DBGrid1.Fields[1].AsString ;
  if accident_info.CheckRec(edit6.text)=false  then      //如果找不到对应的记录,提示用户出错
  begin
   showmessage('对不起，该事故记录不存在！');
   exit;
  end;
edit1.Text :=accident_info.GetACCIDENTType(edit6.Text);
edit5.Text :=accident_info.GetVehicleId(edit6.Text);
edit2.Text :=accident_info.GetACCIDENTCONTENT(edit6.Text);
edit3.Text :=accident_info.GetBAOXIAN(edit6.Text) ;
edit4.Text :=accident_info.GetMoney(edit6.Text);
edit8.Text :=accident_info.GetDRIVERID(edit6.Text) ;
edit7.Text :=accident_info.GetVEHICLENO(edit6.Text) ;
datetimepicker1.DateTime:=strtodate(accident_info.GetAccidentTime(edit6.Text) ) ;
memo1.Text:=accident_info.GetRemark(edit6.Text);
//释放类的实例
accident_info.Free;
end;

end.