📄 yuqichuli.pas

📁 本系统为演示Delphi的功能而开发设计
💻 PAS
字号:
unit YuQiChuLi;

interface

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

type
  TYuQiChuLiForm = class(TForm)
    Label13: TLabel;
    Label14: TLabel;
    ButtonReturn: 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;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    ButtonUnConfirm: TButton;
    DBEdit3: TDBEdit;
    procedure ButtonReturnClick(Sender: TObject);
    procedure ButtonConfirmClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ButtonUnConfirmClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YuQiChuLiForm: TYuQiChuLiForm;
  FabuFlag:String;

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

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

procedure TYuQiChuLiForm.ButtonConfirmClick(Sender: TObject);
begin
Try
HuaXiaData.QueryLeaseCar.Edit;
FabuFlag:=HuaXiaData.QueryLeaseCar.FieldByName('bad_record_tag').AsString;
If FaBuFlag='+2' Then
   HuaXiaData.QueryLeaseCar.FieldByName('bad_record_tag').AsString:='+3'
Else
   HuaXiaData.QueryLeaseCar.FieldByName('bad_record_tag').AsString:='+1';
HuaXiaData.QueryLeaseCar.post;
HuaXiaData.QueryLeaseCar.Edit;
If FabuFlag='+2' Then
   If MessageDlg('该条不良记录已发布到公告板中，需要再次发布吗？', mtConfirmation, [mbYes, mbNo],0)=mrYes Then
      FabuFlag:='-1';
If FabuFlag='-1' Then
Begin
{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:='姓名:'+DBEdit3.Text+'，身份证号码:'+HuaXiaData.QueryLeaseCar.FieldByName('id_number').AsString+'，租车型号:'+DbEdit5.Text+'，备注:'+DbEdit2.Text;
HuaXiaData.QueryGonggaoFabu.FieldByName('tag').AsString:='00';
HuaXiaData.QueryGonggaoFabu.Post;}
With HuaXiaData.TableHei Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From bad_person Where id_number=:Id_code');
     End;
     RequestLive:=True;
     ParamByName('Id_code').AsString:=ShenfenForm.EditIdCode.text;
     prepare;
     Open;
     End;
HuaXiaData.TableHei.Append;
HuaXiaData.TableHei.FieldByName('comp_code').Value:=Login.CodeComp;
HuaXiaData.TableHei.FieldByName('name').Value:=HuaXiaData.QueryLeaseCar.FieldByName('client_name').Value;
HuaXiaData.TableHei.FieldByName('id_number').Value:=HuaXiaData.QueryLeaseCar.FieldByName('id_number').Value;
HuaXiaData.TableHei.FieldByName('note').AsString:='不良记录确认 租车牌号:'+HuaXiaData.QueryLeaseCar.FieldByName('car_card_number').Value+'，其他事项：'+DbEdit2.Text;
HuaXiaData.TableHei.FieldByName('tag').AsString:='0';
HuaXiaData.TableHei.Post;
End;
ButtonUnConfirm.Enabled:=True;
ButtonConfirm.Enabled:=False;
ActiveControl:=DBEdit2;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TYuQiChuLiForm.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 TYuQiChuLiForm.ButtonUnConfirmClick(Sender: TObject);
begin
Try
HuaXiaData.QueryLeaseCar.Edit;
FaBuFlag:=HuaXiaData.QueryLeaseCar.FieldByName('bad_record_tag').AsString;
HuaXiaData.QueryLeaseCar.FieldByName('bad_record_tag').AsString:='+2';
HuaXiaData.QueryLeaseCar.post;
HuaXiaData.QueryLeaseCar.Edit;
If FabuFlag='+3' Then
   If MessageDlg('取消该条不良记录的信息已发布到公告板中，需要再次发布吗？', mtConfirmation, [mbYes, mbNo],0)=mrYes Then
      FabuFlag:='+1';
If FabuFlag='+1' Then
Begin
{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:='取消以下不良记录  姓名:'+DBEdit3.Text+'，身份证号码:'+HuaXiaData.QueryLeaseCar.FieldByName('id_number').AsString+'，租车型号:'+DbEdit5.Text+'备注:'+DbEdit2.Text;
HuaXiaData.QueryGonggaoFabu.FieldByName('tag').AsString:='00';
HuaXiaData.QueryGonggaoFabu.Post;}
With HuaXiaData.TableHei Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From bad_person Where id_number=:Id_code');
     End;
     RequestLive:=True;
     ParamByName('Id_code').AsString:=ShenfenForm.EditIdCode.text;
     prepare;
     Open;
     End;
HuaXiaData.TableHei.Append;
HuaXiaData.TableHei.FieldByName('comp_code').Value:=Login.CodeComp;
HuaXiaData.TableHei.FieldByName('name').Value:=HuaXiaData.QueryLeaseCar.FieldByName('client_name').Value;
HuaXiaData.TableHei.FieldByName('id_number').Value:=HuaXiaData.QueryLeaseCar.FieldByName('id_number').Value;
HuaXiaData.TableHei.FieldByName('note').AsString:='取消不良记录 租车牌号:'+HuaXiaData.QueryLeaseCar.FieldByName('car_card_number').Value+'，其他事项：'+DbEdit2.Text;
HuaXiaData.TableHei.FieldByName('tag').AsString:='0';
HuaXiaData.TableHei.Post;
End;
ButtonUnConfirm.Enabled:=False;
ButtonConfirm.Enabled:=True;
ActiveControl:=DBEdit2;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TYuQiChuLiForm.FormActivate(Sender: TObject);
begin
Try
 If (HuaXiaData.QueryLeaseCar.FieldByName('bad_record_tag').AsString='+1') Or (HuaXiaData.QueryLeaseCar.FieldByName('bad_record_tag').AsString='+3') Then
    Begin
    ButtonUnConfirm.Enabled:=True;
    ButtonConfirm.Enabled:=False;
    End
 Else
    Begin
    ButtonUnConfirm.Enabled:=False;
    ButtonConfirm.Enabled:=True;
    End;
 ActiveControl:=DBEdit2;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;

end;

procedure TYuQiChuLiForm.DBEdit2Exit(Sender: TObject);
begin
If DBEdit2.Text='' Then
   ShowMessage('如欲进行不良记录确认或取消，请在备注字段中输入相关信息');
end;

end.
💿 文件大小 25685 K
👤 上传用户 kinder121
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#Delphi #开发设计
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -