g_xzdj.pas

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

unit G_xzdj;

interface

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

type
  TfrmG_xzdj = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    DBGrid1: TMyGrid;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    Label7: TLabel;
    Image1: TImage;
    qryList: TADOQry;
    tblZhiJi: TADOTbl;
    tblZhiJiCode: TStringField;
    tblZhiJiName: TStringField;
    StoreForm1: TStoreForm;
    qryGenXzdj: TADOQry;
    qryListCode: TStringField;
    qryListsZhiJi: TStringField;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure qryListBeforeDelete(DataSet: TDataSet);
    procedure qryListBeforeInsert(DataSet: TDataSet);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmG_xzdj: TfrmG_xzdj;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmG_xzdj.cmdPrintClick(Sender: TObject);
begin
	frmRptExcel.PrintRpt(Self.Caption, qryList);
end;

procedure TfrmG_xzdj.FormCreate(Sender: TObject);
var i,k,n :integer;
	ts :string;
    oField :TField;
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

    qryGenXzdj.ExecSQL;
    qryList.Open;
    qryList.Close;
    for i :=qryList.FieldDefs.Count -1 downto 0 do
    begin
    	ts :=qryList.FieldDefs[i].Name;
        if qryList.FindField(ts) <>nil then Continue;

        oField :=qryList.FieldDefs[i].CreateField(qryList);
        if qryG_Hsxm.Locate('Code', ts, [])
            then oField.DisplayLabel :=qryG_HsxmName.Value;

        n :=-1;
        for k :=DBGrid1.Columns.Count -1 downto 0 do
        begin
          if DBGrid1.Columns[k].FieldName =ts then
          begin
          	n :=k;
          	break;
          end;
        end;
        if n =-1 then
        with DBGrid1.Columns.Add do
        begin
        	FieldName :=ts;
        end;
    end;
    qryList.Open;
end;

procedure TfrmG_xzdj.qryListBeforeDelete(DataSet: TDataSet);
begin
	Abort;
end;

procedure TfrmG_xzdj.qryListBeforeInsert(DataSet: TDataSet);
begin
	Abort;
end;

procedure TfrmG_xzdj.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
	if Key =13 then
    begin
      if ActiveControl =DBGrid1 then
      begin
    	Key :=9;
      end
      else begin
    	Key :=0;
        Self.SelectNext(ActiveControl, True,True);
      end;
    end;
end;

end.