ubuliang.pas

本系统为演示Delphi的功能而开发设计

unit UBuLiang;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ComCtrls, ExtCtrls,Db;

type
  TUBuLiangForm = class(TForm)
    Label13: TLabel;
    Label14: TLabel;
    ButtonNext: TButton;
    ButtonReturn: TButton;
    ButtonForward: TButton;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    ButtonConfirm: TButton;
    Label1: TLabel;
    Label8: TLabel;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit2: TDBEdit;
    Panel1: TPanel;
    Label12: TLabel;
    Label15: TLabel;
    EditIdCode: TEdit;
    Label16: TLabel;
    EditCarNo: TEdit;
    ButtonLocate: TButton;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    procedure ButtonReturnClick(Sender: TObject);
    procedure ButtonLocateClick(Sender: TObject);
    procedure ButtonNextClick(Sender: TObject);
    procedure ButtonForwardClick(Sender: TObject);
    procedure ButtonConfirmClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UBuLiangForm: TUBuLiangForm;

implementation
uses huaxia, FindHit;
{$R *.DFM}

procedure TUBuLiangForm.ButtonReturnClick(Sender: TObject);
begin
Close;
end;

procedure TUBuLiangForm.ButtonLocateClick(Sender: TObject);
begin
Try
With HuaXiaData.QueryLeaseCar Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
       Clear;
       Add('Select * From lease_car_info ');
       Add('where (id_number=:id_code or car_card_number=:car_no) ');
       Add('and bad_record_tag=:tag');
     end;
     RequestLive:=True;
     ParamByName('Id_code').AsString:=UBuLiangForm.EditIdCode.text;
     ParamByName('car_no').AsString:=UBuLiangForm.EditCarNo.text;
     ParamByName('tag').AsString:='+1';
     prepare;
     Open;
     Edit;
     End;
     If HuaXiaData.QueryLeaseCar.RecordCount>0 Then
     Begin
     {UBuLiangForm.EditIdCode.text:=HuaXiaData.QueryLeaseCar.FieldByName('id_number').AsString;
     UBuLiangForm.EditCarNo.text:=HuaXiaData.QueryLeaseCar.FieldByName('car_card_number').AsString;}
     ButtonNext.Enabled:=True;
     ButtonForward.Enabled:=True;
     ButtonConfirm.Enabled:=True;
     With HuaXiaData.QueryClient Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From lease_client_info Where id_number=:Id_code');
     End;
     RequestLive:=True;
     ParamByName('Id_code').AsString:=UBuLiangForm.EditIdCode.text;
     prepare;
     Open;
     End;
    End
    Else
    Begin
    ButtonNext.Enabled:=False;
    ButtonForward.Enabled:=False;
    ButtonConfirm.Enabled:=False;
    FindForm.ShowModal;
    ActiveControl:=ButtonReturn;
    End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TUBuLiangForm.ButtonNextClick(Sender: TObject);
begin
Try
With HuaXiaData.QueryLeaseCar Do
     Next;
If HuaXiaData.QueryLeaseCar.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.QueryLeaseCar.Bof Then
   ButtonForward.Enabled:=False
Else
   ButtonForward.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TUBuLiangForm.ButtonForwardClick(Sender: TObject);
begin
Try
With HuaXiaData.QueryLeaseCar Do
     prior;
If HuaXiaData.QueryLeaseCar.Eof Then
   ButtonNext.Enabled:=False
Else
   ButtonNext.Enabled:=True;
If HuaXiaData.QueryLeaseCar.Bof Then
   ButtonForward.Enabled:=False
Else
   ButtonForward.Enabled:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TUBuLiangForm.ButtonConfirmClick(Sender: TObject);
begin
Try
HuaXiaData.QueryLeaseCar.Edit;
If (HuaXiaData.QueryLeaseCar.State=DsInsert) Or (HuaXiaData.QueryLeaseCar.State=DsEdit) Then
     begin
     HuaXiaData.QueryLeaseCar.Edit;
     HuaXiaData.QueryLeaseCar.FieldByName('bad_record_tag').AsString:='-1';
     HuaXiaData.QueryLeaseCar.post;
     ShowMessage('不良记录标志已成功取消');
     End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TUBuLiangForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  End;
end;

procedure TUBuLiangForm.FormActivate(Sender: TObject);
begin
EditIdCode.Text:='';
EditCarNo.Text:='';
ButtonNext.Enabled:=False;
ButtonForward.Enabled:=False;
ButtonConfirm.Enabled:=False;
end;

procedure TUBuLiangForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Try
If (huaxiaData.QueryLeaseCar.State=DsInsert) or (huaxiaData.QueryLeaseCar.State=DsEdit) Then
    Begin
    If MessageDlg('所做修改尚未保存,保存修改吗？', mtConfirmation, [mbYes, mbNo],0)=mrYes Then
       HuaXiaData.QueryLeaseCar.Post
    Else
       HuaXiaData.QueryLeaseCar.Cancel;
    End;
HuaXiaData.QueryLeaseCar.Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

end.