shenfen.pas

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

unit Shenfen;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids;

type
  TShenfenForm = class(TForm)
    Label1: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    EditName: TEdit;
    EditIdCode: TEdit;
    EditLicenceCode: TEdit;
    ButtonError: TButton;
    ButtonCorrect: TButton;
    procedure ButtonCorrectClick(Sender: TObject);
    procedure ButtonErrorClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ShenfenForm: TShenfenForm;
  TxtDatFile:textFile;
  StringTemp:String;

implementation

uses Xinyong, xiangguan, Shuaka, HuaXia, login, HeiMingDan;

{$R *.DFM}

procedure TShenfenForm.ButtonCorrectClick(Sender: TObject);
begin
ShenFenForm.Visible:=False;
XiangGuanForm.ShowModal;
end;


procedure TShenfenForm.ButtonErrorClick(Sender: TObject);
begin
ShenFenForm.Close;
end;

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

end;

procedure TShenfenForm.FormActivate(Sender: TObject);
begin
EditName.ReadOnly:=False;
EditLicenceCode.ReadOnly:=False;
EditIdCode.ReadOnly:=False;
AssignFile(TxtDatFile,'Police.Dat');
Reset(TxtDatFile);
Readln(TxtDatFile,StringTemp);
Reset(TxtDatFile);
CloseFile(TxtDatFile);
Erase(TxtDatFile);
EditName.Text:=copy(StringTemp,1,8);;
EditLicenceCode.Text:=copy(StringTemp,13,10);
If copy(StringTemp,23,3)='000' Then
   EditIdCode.Text:=copy(StringTemp,26,15)
Else
   EditIdCode.Text:=copy(StringTemp,23,18);
ShenFenForm.Caption:='客户身份验证';
EditName.ReadOnly:=True;
EditLicenceCode.ReadOnly:=True;
EditIdCode.ReadOnly:=True;
Try
With HuaXiaData.TableHei Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From bad_person Where id_number=:Id_code and tag=:flag');
     End;
     RequestLive:=True;
     ParamByName('Id_code').AsString:=ShenfenForm.EditIdCode.text;
     ParamByName('flag').AsString:='1';
     prepare;
     Open;
     End;
If HuaXiaData.TableHei.RecordCount=0 Then
   Begin
   With HuaXiaData.TableHei Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From bad_person Where name=:Id_code and tag=:flag');
     End;
     RequestLive:=True;
     ParamByName('Id_code').AsString:=ShenfenForm.EditName.text;
     ParamByName('flag').AsString:='1';
     prepare;
     Open;
     End;
   End;
If HuaXiaData.TableHei.RecordCount>0 Then
   Begin
   HeiMingDanForm.ShowModal;
   End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TShenfenForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Try
  With HuaXiaData.QueryShuaKa Do
  Begin
       Close;
       Unprepare;
       With Sql Do
       Begin
       Clear;
       Add('Insert ic_brush_info(login_name,brush_date,comp_code,site_code,brush_mach_no)');
       Add(' Values(:name,:brushdate,:ccode,:scode,:machno)');
       End;
       ParamByName('name').AsString:=Login.LoginName;
       ParamByName('brushdate').Value:=Now;
       ParamByName('ccode').AsString:=Login.CodeComp;
       ParamByName('scode').AsString:=Login.CodeSite;
       ParamByName('machno').AsString:=copy(StringTemp,57,16);
       Prepare;
       ExecSql;
  End;
  HuaXiaData.LocalDataSet.Active:=True;
  HuaXiaData.LocalDataSet.First;
  While not HuaXiaData.LocalDataSet.EOF Do
    Begin
    With HuaXiaData.QueryShuaKa Do
       Begin
       Close;
       Unprepare;
       With Sql Do
       Begin
       Clear;
       Add('Select * From ic_brush_info Where login_name=:name And brush_date=:brushdate');
       End;
       ParamByName('name').AsString:=HuaXiaData.LocalDataSet.FieldByName('login_name').AsString;
       ParamByName('brushdate').Value:=HuaXiaData.LocalDataSet.FieldByName('brush_date').Value+HuaXiaData.LocalDataSet.FieldByName('brush_time').Value;
       RequestLive:=True;
       Prepare;
       Open;
       End;
   If HuaXiaData.QueryShuaKa.RecordCount=0 Then
       Begin
       HuaXiaData.QueryShuaKa.Append;
       HuaXiaData.QueryShuaKa.FieldByName('login_name').AsString:=HuaXiaData.LocalDataSet.FieldByName('login_name').AsString;
       HuaXiaData.QueryShuaKa.FieldByName('brush_date').Value:=HuaXiaData.LocalDataSet.FieldByName('brush_date').Value+HuaXiaData.LocalDataSet.FieldByName('brush_time').Value;
       HuaXiaData.QueryShuaKa.FieldByName('comp_code').AsString:=HuaXiaData.LocalDataSet.FieldByName('comp_code').AsString;
       HuaXiaData.QueryShuaKa.FieldByName('site_code').AsString:=HuaXiaData.LocalDataSet.FieldByName('site_code').AsString;
       HuaXiaData.QueryShuaKa.FieldByName('brush_mach_no').AsString:=HuaXiaData.LocalDataSet.FieldByName('brush_mach_no').AsString;
       HuaXiaData.QueryShuaKa.Post;
       End;
    HuaXiaData.LocalDataSet.Delete;
    End;
  except
  HuaXiaData.LocalDataSet.Active:=True;
  HuaXiaData.LocalDataSet.Append;
  HuaXiaData.LocalDataSet.Edit;
  HuaXiaData.LocalDataSet.FieldByName('login_name').AsString:=Login.LoginName;
  HuaXiaData.LocalDataSet.FieldByName('brush_date').Value:=Now;
  HuaXiaData.LocalDataSet.FieldByName('brush_time').Value:=Now;
  HuaXiaData.LocalDataSet.FieldByName('comp_code').AsString:=Login.codecomp;
  HuaXiaData.LocalDataSet.FieldByName('site_code').AsString:=Login.codesite;
  HuaXiaData.LocalDataSet.FieldByName('brush_mach_no').AsString:=copy(StringTemp,57,16);
  HuaXiaData.LocalDataSet.Post;
  End;
end;

procedure TShenfenForm.Button1Click(Sender: TObject);
begin
HeiMingDanForm.ShowModal;
end;

end.