kq_bzdy.pas

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

unit Kq_Bzdy;

interface

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

type
  TfrmKq_Bzdy = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdDel: TBitBtn;
    cmdEdit: TBitBtn;
    cmdAdd: TBitBtn;
    cmdExit: TBitBtn;
    qryBrowse: TADOQry;
    Label1: TLabel;
    Image1: TImage;
    qryDelete: TADOQry;
    StoreForm1: TStoreForm;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    cmdCopyAdd: TBitBtn;
    qryBrowseIfFdJcsj: TBooleanField;
    cmdPrint: TBitBtn;
    qryBrowseID: TIntegerField;
    qryBrowseBcCount: TSmallintField;
    qryBrowseNote: TStringField;
    qryBrowsesIfFdJcsj: TStringField;
    cboSession: TDBLookupComboBox;
    qrySession: TADOQry;
    qrySessionID: TIntegerField;
    qrySessionMemo: TStringField;
    DataSource3: TDataSource;
    qryCurSession: TADOQry;
    qryCurSessionCurID: TIntegerField;
    qryCopyKq_Bzdy: TADOQry;
    qryBrowseZbSj: TFloatField;
    qryBrowseJbSj: TFloatField;
    qryBrowseIfBzz: TBooleanField;
    cmdZuHe: TBitBtn;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdCopyAddClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure qryBrowseCalcFields(DataSet: TDataSet);
    procedure cboSessionExit(Sender: TObject);
    procedure cmdZuHeClick(Sender: TObject);
  private
    { Private declarations }
    dlgKq_BzdyE :TfrmKq_BzdyE;
    dlgKq_BzzE :TfrmKq_BzzE;
  public
    { Public declarations }
  end;

var
  frmKq_Bzdy: TfrmKq_Bzdy;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmKq_Bzdy.cmdAddClick(Sender: TObject);
begin
	if dlgKq_BzdyE.Add(qrySessionID.Value) then
    	RefreshQuery(qryBrowse);
end;

procedure TfrmKq_Bzdy.cmdDelClick(Sender: TObject);
begin
	if qryBrowse.IsEmpty then
    begin
    	MessageBeep(0);
        Exit;
    end;
	if not MsgBoxSel('琌