frm_r_qjtjpas.pas

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

unit Frm_R_QjtjPas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModalForm, Menus, StdCtrls, ExtCtrls, DB, DBTables, Buttons,
  ComCtrls, QRCtrls, QuickRpt, Grids, DBGrids, YLabelButton, ChangeImage,
  ADODB;

type
  TFrm_R_Qjtj = class(TMyModalForm)
    Panel1: TPanel;
    TV: TTreeView;
    DBGrid1: TDBGrid;
    Qrqjtj: TQuickRep;
    QRBand2: TQRBand;
    QRDBText3: TQRDBText;
    QRShape14: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRGroup1: TQRGroup;
    QRBand1: TQRBand;
    QRLabel7: TQRLabel;
    QRExpr1: TQRExpr;
    QRShape2: TQRShape;
    QRBand3: TQRBand;
    QRShape32: TQRShape;
    QRLblzbbm: TQRLabel;
    QRlbldwmc: TQRLabel;
    QRLabel40: TQRLabel;
    QRSysData3: TQRSysData;
    QRSysData4: TQRSysData;
    QRLabel10: TQRLabel;
    QRShape4: TQRShape;
    QRLabel4: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel1: TQRLabel;
    PageFooterBand1: TQRBand;
    QRShape33: TQRShape;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRlblzd: TQRLabel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ksrq: TDateTimePicker;
    jsrq: TDateTimePicker;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    yhbh: TEdit;
    chk2: TCheckBox;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    xm: TEdit;
    chk3: TCheckBox;
    chk4: TCheckBox;
    bm: TEdit;
    DataSource1: TDataSource;
    BtnPrint: TChangeImg;
    LBtnPrint: TLabelB;
    ChangeImg4: TChangeImg;
    LabelB5: TLabelB;
    BtnRefresh: TChangeImg;
    LBtnRefresh: TLabelB;
    qryqqjl: TADOQuery;
    procedure ChangeImg4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TVClick(Sender: TObject);
    procedure BtnRefreshClick(Sender: TObject);
    procedure chk2Click(Sender: TObject);
    procedure xmChange(Sender: TObject);
    procedure chk3Click(Sender: TObject);
    procedure BtnPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_R_Qjtj: TFrm_R_Qjtj;

implementation

uses DM_DataModal, UGlobal;

{$R *.dfm}

procedure TFrm_R_Qjtj.ChangeImg4Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrm_R_Qjtj.FormCreate(Sender: TObject);
begin
  inherited;
  gtKqgl.LoadOrganTree(WindData.AdoConn, TV, 4); //初始化用户信息
  ksrq.date := date;
  jsrq.date := date;
end;

procedure TFrm_R_Qjtj.TVClick(Sender: TObject);
begin
  inherited;
  bm.text := TV.Selected.Text;
end;

procedure TFrm_R_Qjtj.BtnRefreshClick(Sender: TObject);
begin
  inherited;
  if ksrq.datetime > jsrq.datetime then
  begin
    application.MessageBox('时间顺序错误!', '信息提示', mb_ok + mb_IconInformation);
    ksrq.SetFocus;
    exit;
  end;
  with qryqqjl do
  begin
    sql.Clear;
    sql.add('select * from vkq_qjjl');
    sql.add(' where (ksrq>=''' + datetostr(ksrq.date) + ''' and jsrq<=''' + datetostr(jsrq.date) + ''')');
    if chk2.Checked then
      sql.Add(' and yhbh=' + chr(39) + trim(yhbh.text) + chr(39));
    if chk3.Checked then
      sql.Add(' and yhxm like ''' + trim(xm.Text) + '%''');
    if chk4.Checked then
      sql.Add(' and bmmc=' + chr(39) + trim(bm.text) + chr(39));
    sql.Add(' order by yhbh,ksrq,jsrq');
    open;
  end;
end;

procedure TFrm_R_Qjtj.chk2Click(Sender: TObject);
begin
  inherited;
  if chk2.Checked then yhbh.SetFocus;
end;

procedure TFrm_R_Qjtj.xmChange(Sender: TObject);
begin
  inherited;
  if chk3.Checked then xm.SetFocus;
end;

procedure TFrm_R_Qjtj.chk3Click(Sender: TObject);
begin
  inherited;
  if chk3.Checked then xm.SetFocus;
end;

procedure TFrm_R_Qjtj.BtnPrintClick(Sender: TObject);
begin
  inherited;
  try
    QRlbldwmc.Caption := '单位名称:' + gtSysCs.sSydw;
    QRLblzbbm.Caption := '制表部门:' + gtSysCs.sZbDw;
    QRlblzd.caption := '制单:';
    Qrqjtj.Preview; //运行报表
  except
  end;
end;

end.