buliang.pas

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

unit BuLiang;

interface

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

type
  TBuLiangForm = 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;
    Edit1: TEdit;
    DBEdit1: 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
  BuLiangForm: TBuLiangForm;

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

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

procedure TBuLiangForm.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 and return_date<:now_date');
     end;
     RequestLive:=True;
     ParamByName('Id_code').AsString:=BuLiangForm.EditIdCode.text;
     ParamByName('car_no').AsString:=BuLiangForm.EditCarNo.text;
     ParamByName('tag').AsString:='-1';
     ParamByName('now_date').Value:=Now;
     prepare;
     Open;
     Edit;
     End;
     If HuaXiaData.QueryLeaseCar.RecordCount>0 Then
     Begin
     If HuaXiaData.QueryLeaseCar.Eof Then
        ButtonNext.Enabled:=False
     Else
        ButtonNext.Enabled:=True;
     If HuaXiaData.QueryLeaseCar.Bof Then
        ButtonForward.Enabled:=False
     Else
        ButtonForward.Enabled:=True;
     ButtonConfirm.Enabled:=True;
     HuaXiaData.QueryLeaseCar.Edit;
     {BuLiangForm.EditIdCode.text:=HuaXiaData.QueryLeaseCar.FieldByName('id_number').AsString;
     BuLiangForm.EditCarNo.text:=HuaXiaData.QueryLeaseCar.FieldByName('car_card_number').AsString;}
     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:=BuLiangForm.EditIdCode.text;
     prepare;
     Open;
     End;
     Edit1.Text:=HuaXiaData.QueryClient.FieldByName('client_name').AsString;
    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 TBuLiangForm.ButtonNextClick(Sender: TObject);
begin
Try
With HuaXiaData.QueryLeaseCar Do
     Next;
BuLiangForm.EditIdCode.text:=HuaXiaData.QueryLeaseCar.FieldByName('id_number').AsString;
BuLiangForm.EditCarNo.text:=HuaXiaData.QueryLeaseCar.FieldByName('car_card_number').AsString;
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 TBuLiangForm.ButtonForwardClick(Sender: TObject);
begin
Try
With HuaXiaData.QueryLeaseCar Do
     prior;
BuLiangForm.EditIdCode.text:=HuaXiaData.QueryLeaseCar.FieldByName('id_number').AsString;
BuLiangForm.EditCarNo.text:=HuaXiaData.QueryLeaseCar.FieldByName('car_card_number').AsString;
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 TBuLiangForm.ButtonConfirmClick(Sender: TObject);
begin
Try
If (HuaXiaData.QueryLeaseCar.State=DsInsert) Or (HuaXiaData.QueryLeaseCar.State=DsEdit) Then
   begin
   HuaXiaData.QueryLeaseCar.FieldByName('bad_record_tag').AsString:='+1';
   With HuaXiaData.QueryGonggaoFabu Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From comp_bulletin where comp_code=:compcode and site_code=:sitecode')
     End;
     RequestLive:=True;
     ParamByName('compcode').AsString:='0000';
     ParamByName('sitecode').AsString:='00';
     prepare;
     Open;
     End;
     HuaXiaData.QueryGonggaoFabu.Append;
     HuaXiaData.QueryGonggaoFabu.FieldByName('comp_code').AsString:=CodeComp;
     HuaXiaData.QueryGonggaoFabu.FieldByName('site_code').AsString:=CodeSite;
     HuaXiaData.QueryGonggaoFabu.FieldByName('bulletin_date').Value:=Now;
     HuaXiaData.QueryGonggaoFabu.FieldByName('bulletin_content').AsString:='姓名'+Edit1.Text+'身份证号码'+EditIdCode.text+'租车牌号'+EditCarNo.Text+'租车型号'+DbEdit5.Text+'备注'+DbEdit2.Text;
     HuaXiaData.QueryGonggaoFabu.FieldByName('tag').AsString:='00';
   HuaXiaData.QueryLeaseCar.post;
   End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TBuLiangForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 If Not(ActiveControl Is TDbgrid) Then
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  End Else
  If (ActiveControl Is TDbgrid) Then{是在 TDbgrid 控件内}
  Begin
    With TDbgrid(ActiveControl) Do
    If Selectedindex<(FieldCount-1) Then
    Selectedindex:=Selectedindex+1{ 移动到下一字段}
    Else Selectedindex:=0;
   End;
end;

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

procedure TBuLiangForm.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.