frm_r_lykqqkpas.pas

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

unit Frm_R_LykqqkPas;

interface

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

type
  TFrm_R_Lykqqk = class(TMyModalForm)
    Panel2: TPanel;
    QrCurkqqk: TQuickRep;
    QRBand45: TQRBand;
    QRDBText36: TQRDBText;
    QRDBText37: TQRDBText;
    QRDBText38: TQRDBText;
    QRDBText39: TQRDBText;
    QRDBText40: TQRDBText;
    QRDBText41: TQRDBText;
    QRDBText42: TQRDBText;
    QRDBText43: TQRDBText;
    QRDBText44: TQRDBText;
    QRDBText45: TQRDBText;
    QRDBText46: TQRDBText;
    QRDBText47: TQRDBText;
    QRDBText48: TQRDBText;
    QRDBText49: TQRDBText;
    QRDBText50: TQRDBText;
    QRDBText51: TQRDBText;
    QRDBText52: TQRDBText;
    QRDBText53: TQRDBText;
    QRDBText54: TQRDBText;
    QRDBText55: TQRDBText;
    QRDBText56: TQRDBText;
    QRDBText57: TQRDBText;
    QRDBText58: TQRDBText;
    QRDBText59: TQRDBText;
    QRDBText60: TQRDBText;
    QRDBText61: TQRDBText;
    QRDBText62: TQRDBText;
    QRDBText63: TQRDBText;
    QRDBText64: TQRDBText;
    QRDBText65: TQRDBText;
    QRDBText66: TQRDBText;
    QRBand46: TQRBand;
    Label6: TLabel;
    QRShape1: TQRShape;
    QRLabel32: TQRLabel;
    QRLabel33: TQRLabel;
    QRLabel34: TQRLabel;
    QRLabel35: TQRLabel;
    QRLabel36: TQRLabel;
    QRExpr1: TQRExpr;
    QRExpr2: TQRExpr;
    QRExpr3: TQRExpr;
    QRExpr4: TQRExpr;
    QRLabel37: TQRLabel;
    QRExpr5: TQRExpr;
    QRExpr6: TQRExpr;
    QRLabel38: TQRLabel;
    QRGroup1: TQRGroup;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel21: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel31: TQRLabel;
    QRShape27: TQRShape;
    QRLabel76: TQRLabel;
    QRLabel77: TQRLabel;
    QRShape26: TQRShape;
    PageHeaderBand1: TQRBand;
    QRShape17: TQRShape;
    QRLblzbbm: TQRLabel;
    QRlbldwmc: TQRLabel;
    QRLabel40: TQRLabel;
    QRSysData6: TQRSysData;
    QRSysData2: TQRSysData;
    QRLabel41: TQRLabel;
    dykqqktitle: TQRLabel;
    QRDBText3: TQRDBText;
    QRLabel80: TQRLabel;
    QRDBText4: TQRDBText;
    PageFooterBand1: TQRBand;
    QRShape2: TQRShape;
    QRLabel39: TQRLabel;
    QRLabel42: TQRLabel;
    QRlblzd: TQRLabel;
    Dkqqk: TDataSource;
    BtnFind: TChangeImg;
    LBtnFind: TLabelB;
    BtnPrint: TChangeImg;
    LBtnPrint: TLabelB;
    ChangeImg4: TChangeImg;
    LabelB5: TLabelB;
    Query1: TADOQuery;
    pkq_D_MonthJs: TADOStoredProc;
    cmbSeekMethod: TComboBox;
    Label52: TLabel;
    Label13: TLabel;
    CmbContents: TComboBox;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    procedure ChangeImg4Click(Sender: TObject);
    procedure BtnFindClick(Sender: TObject);
    procedure BtnPrintClick(Sender: TObject);
    procedure cmbSeekMethodChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_R_Lykqqk: TFrm_R_Lykqqk;

implementation

uses DM_DataModal, UGlobal;

{$R *.dfm}

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

procedure TFrm_R_Lykqqk.BtnFindClick(Sender: TObject);
var
  i:integer;
  gsSql:String;
begin
  inherited;
  i:=cmbSeekMethod.Items.IndexOf(cmbSeekMethod.text);
  gsSql:='select * from vkq_Lykqqk where 2>1 ';
  case i of
    0:gsSql:=gsSql+ 'and yhbh ='''    +cmbContents.text+ '''';
    1:gsSql:=gsSql+ 'and yhxm like '''+cmbContents.text+ '%''';
    2:gsSql:=gsSql+ 'and bmmc like '''+cmbContents.text+ '%''';
    3:gsSql:=gsSql+ 'and n    ='''    +Copy(cmbContents.text,1,4)+ ''''
                  + 'and y    ='''    +Copy(cmbContents.text,6,2)+ '''';
    4:gsSql:=gsSql+ 'and bcms like '''+cmbContents.text+ '%''';
  end;
  gsSql:=gsSql+' order by bmbh,yhbh';
  with query1 do
  begin
      close;
      SQL.clear;
      sql.add(gsSql);
      open;
      first;
  end;
end;

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

procedure TFrm_R_Lykqqk.cmbSeekMethodChange(Sender: TObject);
var
  i:integer;
begin
  inherited;
  i:=cmbSeekMethod.Items.IndexOf(cmbSeekMethod.text);
  case i of
    0:;
    1:;
    2:gtKqgl.SetComboxItems(CmbContents,
                     'select distinct bjmc as bmmc from zx_s_bjxx ','bmmc');
    3:gtKqgl.SetComboxItems(CmbContents,
                     'select distinct (n+''-''+y) as ny from vkq_lykqqk order by ny','ny');
    4:gtKqgl.SetComboxItems(CmbContents,
                     'select distinct bcms from kq_sjb','bcms');
  end;
end;

end.