repair.pas

信息管理系统

unit repair;

interface

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

type
  Trepairfrm = class(TForm)
    Bevel1: TBevel;
    Label18: TLabel;
    Button5: TButton;
    Button4: TButton;
    Button3: TButton;
    Button2: TButton;
    Button1: TButton;
    Memo1: TMemo;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label10: TLabel;
    Edit5: TEdit;
    Panel2: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit3: TEdit;
    DateTimePicker2: TDateTimePicker;
    Edit4: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label11: TLabel;
    DBGrid1: TDBGrid;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
  repair_info:Trepair_info       ;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  repairfrm: Trepairfrm;

implementation

{$R *.dfm}

procedure Trepairfrm.Button4Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit5.Text:='';
  edit6.Text:='';
  edit7.Text:='';
  memo1.Text:='';
end;

procedure Trepairfrm.Button1Click(Sender: TObject);
var sql:string;
begin
  //实例化类
  repair_info:=Trepair_info.create ;
  if repair_info.CheckRec(edit4.text)  then      //如果找到对应的记录,提示用户出错
  begin
    showmessage('对不起，该车辆维修记录已存在！');
    exit;
  end;
  //赋值SQL语句更改插入记录的内容
  sql:='insert into repair_info(ARCHIVES_ID,DRIVER_ID,'
  +'VEHICLE_NO, REPAIR_TYPE,REPAIR_FACTORY,PART,'
  +'VEHICLE_ID,REPAIR_CONTENT,ENTRY_TIME,EXIT_TIME) '
  +'values('''+edit4.Text+''','''+edit6.Text+''','''+edit7.Text+''','''+edit1.Text+''','
  +''''+edit2.Text+''','''+edit3.Text+''','''+edit5.Text+''','''+memo1.Text+''', '
  +''''+datetostr(datetimepicker1.Date)+''','''+datetostr(datetimepicker2.Date)+''' )';
  repair_info.recinsert(sql);
  application.MessageBox('新建成功！','提示：',mb_ok);
  //释放类的实例
  repair_info.Free;
end;

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

procedure Trepairfrm.Button3Click(Sender: TObject);
var sql:string;
begin
  if  application.MessageBox('确实要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then     //更改信息的警告
  begin
    //实例化类
    repair_info:=Trepair_info.create ;
    if repair_info.CheckRec(edit4.text)=false  then      //如果找不到对应的记录,提示用户出错
    begin
      showmessage('对不起，该车辆维修记录不存在！');
      exit;
    end;
    //赋值SQL语句更改插入记录的内容
    sql:='update repair_info set DRIVER_ID='''+edit6.Text+''','
    +'VEHICLE_NO='''+edit7.Text+''',Vehicle_Id='''+edit5.Text+''','
    +'REPAIR_TYPE='''+edit1.Text+''',REPAIR_FACTORY='''+edit2.Text+''','
    +'REPAIR_CONTENT='''+memo1.Text+''','
    +'PART='''+edit3.Text+''',ENTRY_TIME='''+datetostr(datetimepicker1.Date)+''', '
    +'EXIT_TIME='''+datetostr(datetimepicker2.Date)+''' where DRIVER_ID='''+edit4.Text+'''';
    repair_info.RecUpdate(sql);
    application.MessageBox('修改成功！','提示：',mb_ok);
    //释放类的实例
    repair_info.Free;
  end;
end;

procedure Trepairfrm.Button5Click(Sender: TObject);
var sql:string;
begin
  //实例化类
  repair_info:=Trepair_info.create ;
  if repair_info.CheckRec(edit4.text)=false  then      //如果找不到对应的记录,提示用户出错
  begin
    showmessage('对不起，该车辆维修记录不存在！');
    exit;
  end;
  edit1.Text :=repair_info.GetRepairType(edit4.Text);
  edit5.Text :=repair_info.GetVehicleId(edit4.Text);
  edit2.Text :=repair_info.GetRepairFactory(edit4.Text);
  edit3.Text :=repair_info.GetPart(edit4.Text) ;
  edit6.Text :=repair_info.GetDRIVERID(edit4.Text) ;
  edit7.Text :=repair_info.GetVEHICLENO(edit4.Text) ;
  datetimepicker1.DateTime:=strtodate(repair_info.GetEntryTime(edit4.Text) ) ;
  datetimepicker1.DateTime:=strtodate(repair_info.GetEntryTime(edit4.Text) ) ;
  memo1.Text:=repair_info.GetRepairContent(edit4.Text);
  sql:='select	VEHICLE_NO	车辆编号,'
  +'ARCHIVES_ID	档案编号, '
  +'VEHICLE_ID	车牌号 ,'
  +'DRIVER_ID		司机编号 ,'
  +'REPAIR_TYPE		维修类别,'
  +'REPAIR_FACTORY		修理厂 ,'
  +'PART		更换零部件    ,'
  +'REPAIR_CONTENT		修理内容,'
  +'ENTRY_TIME		进场日期  ,'
  +'EXIT_TIME		出场日期      FROM repair_info where vehicle_no='''+edit4.text+'''';
  //执行查询方法并用列表显示出来
  clientdataset1.data:=repair_info.AllRec(sql);
  //释放类的实例
  repair_info.Free;
end;

end.