kq_mach.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 81 行

unit Kq_Mach;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Buttons, Db, ExtCtrls, Grids, DBGrids,
  ADODB, ADOQry;

type
  TfrmKq_Mach = class(TForm)
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qrySysSet: TADOQry;
    DataSource1: TDataSource;
    qrySysSetID: TIntegerField;
    qrySysSetKqTxtDir: TStringField;
    qrySysSetCommPort: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    qryMach: TADOQry;
    qryMachMachNo: TStringField;
    qryMachFType: TSmallintField;
    qryMachBaudRate: TIntegerField;
    qryMachNote: TStringField;
    qryFType: TADOQry;
    qryMachsFType: TStringField;
    DBGrid1: TDBGrid;
    DataSource2: TDataSource;
    Label3: TLabel;
    qryFTypeID: TIntegerField;
    qryFTypeNAME: TStringField;
    qrySysSetKqTxtBakDir: TStringField;
    qrySysSetKqTxtFormat: TStringField;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    qrySysSetKzType: TStringField;
    Label6: TLabel;
    cboKzType: TDBComboBox;
    Label7: TLabel;
    cboCommPort: TDBComboBox;
    procedure cmdOKClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure qrySysSetBeforePost(DataSet: TDataSet);
    procedure qryMachBeforePost(DataSet: TDataSet);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure qryMachNewRecord(DataSet: TDataSet);
    procedure qryMachFTypeChange(Sender: TField);
    procedure FormCreate(Sender: TObject);
    procedure qrySysSetKzTypeChange(Sender: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function CheckMachSet(tsFormat:string; var nMach0,nMachLen,nCard0,nCardLen,nYear0,nYearLen,nMonth0,nDay0,nHour0,nMin0 :integer) :Boolean;
  
var
  frmKq_Mach: TfrmKq_Mach;

implementation

uses SelfFunc;

{$R *.DFM}

function CheckMachSet(tsFormat:string; var nMach0,nMachLen,nCard0,nCardLen,nYear0,nYearLen,nMonth0,nDay0,nHour0,nMin0 :integer) :Boolean;
var i :integer;
begin
    nMach0 :=Pos('J', tsFormat); //审腹
    nMachLen :=0;
    if nMach0 >0 then
    for i :=nMach0 to Length(tsFormat) do
    	if tsFormat[i] ='J' then nMachLen :=nMachLen +1;

    nCard0 :=Pos('C', tsFormat); //