g_jsff.pas

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

unit G_Jsff;

interface

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

type
  TfrmG_Jsff = class(TForm)
    DataSource1: TDataSource;
    tblEdit: TAdoObeyTbl;
    tblEditxh: TIntegerField;
    tblEditCalcField: TStringField;
    tblEditsExpr: TStringField;
    tblEditsWhere: TStringField;
    tblEditsNote: TStringField;
    Panel2: TPanel;
    Panel1: TPanel;
    Label3: TLabel;
    cmdAdd: TBitBtn;
    cmdSave: TBitBtn;
    cmdDel: TBitBtn;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    DataSource2: TDataSource;
    qryG_Hsxm: TADOQry;
    qryG_HsxmName: TStringField;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    qryG_HsxmCode: TStringField;
    tblEditsHsxm: TStringField;
    StoreForm1: TStoreForm;
    MyGrid1: TMyGrid;
    MyGrid2: TMyGrid;
    qryCheck: TADOQry;
    qryG_HsxmXmType: TSmallintField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdPrintClick(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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmG_Jsff: TfrmG_Jsff;

implementation

uses RptExcel, SelfFunc;

{$R *.DFM}

procedure TfrmG_Jsff.cmdExitClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmG_Jsff.cmdAddClick(Sender: TObject);
var nXh :integer;
begin
	if tblEdit.State in [dsInsert,dsEdit] then
    	tblEdit.PostTable;

    tblEdit.Last;
    nXh :=tblEditXh.Value;
    tblEdit.Append;
    tblEditXh.Value :=nXh +100;
    tblEditCalcField.FocusControl;
end;

procedure TfrmG_Jsff.cmdDelClick(Sender: TObject);
begin
	if tblEdit.IsEmpty then MessageBeep(0)
	else if MsgBoxSel('琌