frm_k_lbszpas.pas

来自「是一个用delphi设计的考勤系统」· PAS 代码 · 共 92 行

unit Frm_K_LbszPas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModalForm, Menus, StdCtrls, ExtCtrls, Buttons, Grids, DBGrids,
  YLabelButton, ChangeImage, DB, ADODB, ImgList, UErrDisplay, ModalForm1;

type
  TFrm_K_Lbsz = class(TMyModalForm1)
    Label2: TLabel;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    edtbh: TEdit;
    edtlb: TEdit;
    ADOTQjlb: TADOTable;
    DSQjlb: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_K_Lbsz: TFrm_K_Lbsz;

implementation

uses UGlobal, DM_DataModal;

{$R *.dfm}

procedure TFrm_K_Lbsz.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
  if not ADOTQjlb.Eof then
  begin
    edtbh.Text := ADOTQjlb.fieldbyname('qqbh').asstring;
    edtlb.text := ADOTQjlb.fieldbyname('qqmc').asstring;
  end;
end;

procedure TFrm_K_Lbsz.BitBtn1Click(Sender: TObject);
begin
  inherited;
  gtKqgl.QjNO:= Trim(edtBh.Text);
  gtKqgl.QjType:=Trim(edtLb.Text);
  gtKqgl.QjTypeOpt(1);
  ADOTQjlb.Close;
  ADOTQjlb.Open;
  application.MessageBox(Pchar(gtKqgl.RetMsg), '提示信息', mb_ok + mb_iconinformation);
end;

procedure TFrm_K_Lbsz.BitBtn3Click(Sender: TObject);
begin
  inherited;
  gtKqgl.QjNO:= Trim(edtBh.Text);
  gtKqgl.QjTypeOpt(2);
  ADOTQjlb.Close;
  ADOTQjlb.Open;
  application.MessageBox(Pchar(gtKqgl.RetMsg), '提示信息', mb_ok + mb_iconinformation);
end;

procedure TFrm_K_Lbsz.BitBtn2Click(Sender: TObject);
begin
  inherited;
  gtKqgl.QjNO:= Trim(edtBh.Text);
  gtKqgl.QjType:=Trim(edtLb.Text);
  gtKqgl.QjTypeOpt(3);
  ADOTQjlb.Close;
  ADOTQjlb.Open;
  application.MessageBox(Pchar(gtKqgl.RetMsg), '提示信息', mb_ok + mb_iconinformation);
end;

procedure TFrm_K_Lbsz.FormCreate(Sender: TObject);
begin
  inherited;
  ADOTQjlb.Close;
  ADOTQjlb.Open;
end;

end.