g_hsxm.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit G_Hsxm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, jpeg, Menus, ADODB, ADOQry, AdoObeyTbl;

type
  TfrmG_Hsxm = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    tblEdit: TAdoObeyTbl;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    cmdAdd: TBitBtn;
    cmdSave: TBitBtn;
    cmdDel: TBitBtn;
    cmdExit: TBitBtn;
    tblEditxh: TIntegerField;
    tblEditCode: TStringField;
    tblEditName: TStringField;
    tblEditIfUsed: TBooleanField;
    tblEditXmType: TIntegerField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    edCode: TDBEdit;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    tblEditsIfUsed: TStringField;
    tblEditsXmType: TStringField;
    edDataLen: TDBEdit;
    qryAlterTbl: TADOQry;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmXmType: TIntegerField;
    cmdPrint: TBitBtn;
    tblEditFDataType: TSmallintField;
    tblEditFDataLen: TSmallintField;
    tblEditsFDataType: TStringField;
    Label6: TLabel;
    Label5: TLabel;
    qryXmType: TADOQry;
    qryFDataType: TADOQry;
    cboDataType: TDBLookupComboBox;
    Image1: TImage;
    Label7: TLabel;
    panXmType: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Label3: TLabel;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    qryCheck: TADOQry;
    qryCheckName: TStringField;
    cmdUpdateTbl: TBitBtn;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure tblEditAfterEdit(DataSet: TDataSet);
    procedure tblEditAfterPost(DataSet: TDataSet);
    procedure tblEditNewRecord(DataSet: TDataSet);
    procedure tblEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure tblEditBeforePost(DataSet: TDataSet);
    procedure cmdSaveClick(Sender: TObject);
    procedure tblEditCalcFields(DataSet: TDataSet);
    procedure cmdAddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tblEditBeforeEdit(DataSet: TDataSet);
    procedure cmdPrintClick(Sender: TObject);
    procedure tblEditFDataLenChange(Sender: TField);
    procedure tblEditFDataTypeChange(Sender: TField);
    procedure RadioButton1Click(Sender: TObject);
    procedure cmdUpdateTblClick(Sender: TObject);
  private
    { Private declarations }
    function AlterTable(tsSQL:string; tsMsg:string) :Boolean;
    function UpdateTbl() :Boolean;
  public
    { Public declarations }
  end;

var
  frmG_Hsxm: TfrmG_Hsxm;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

function TfrmG_Hsxm.UpdateTbl() :Boolean;
  function SQLUpdate(tsSQL1:string) :Boolean;
  begin
  	Result :=False;
    try
    	qryAlterTbl.SQL.Text :=tsSQL1;
        qryAlterTbl.ExecSQL;
    except
    	;
    end;
    try
    	tsSQL1 :=StringReplace(tsSQL1, ' ADD ', ' ALTER COLUMN ',[]);
    	qryAlterTbl.SQL.Text :=tsSQL1;
        qryAlterTbl.ExecSQL;
    except
    	Exit;
    end;
  	Result :=True;
  end;

var tsTblName,tsFieldType, tsSQL :string;
begin
    Result :=False;
	//糤