shenfeninput.pas

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

unit ShenfenInput;

interface

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

type
  TShenfenInputForm = class(TForm)
    Label1: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    EditName: TEdit;
    EditIdCode: TEdit;
    EditLicenceCode: TEdit;
    ButtonOk: TButton;
    procedure ButtonOkClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ShenfenInputForm: TShenfenInputForm;
  TxtOutFile:textFile;
  StringTemp:String;

implementation

uses Shenfen;

{$R *.DFM}

procedure TShenfenInputForm.ButtonOkClick(Sender: TObject);
begin
   Try
   If FileExists('police.dat') Then
   Begin
      DeleteFile('police.dat');
   End;
   If FileExists('police.dat')=False Then
   Begin
      AssignFile(TxtOutFile,'police.dat');
      Rewrite(TxtOutFile);
      While StrLen(Pchar(EditName.Text))<8 Do EditName.Text:=EditName.Text+' ';
      StringTemp:=EditName.Text+'    ';
      While StrLen(Pchar(EditLicenceCode.Text))<10 Do EditLicenceCode.Text:=EditLicenceCode.Text+' ';
      StringTemp:=StringTemp+EditLicenceCode.Text;
      StringTemp:=StringTemp+'000'+EditIdCode.Text;
      Write(TxtOutFile,StringTemp);
      CloseFile(TxtOutFile);
   End;
   ShenFenInputForm.Visible:=False;
   ShenFenForm.ShowModal;
   Except
      On E:Exception Do
      Begin
      ShowMessage('文件读写错误，请重试');
      LAbel1.Caption:='刷卡错误，请重试';
      Exit;
      End;
   End;
end;

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

end.