frm_r_dykqqkpas.pas

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

unit Frm_R_DykqqkPas;

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_Dykqqk = class(TMyModalForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    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;
    GroupBox1: TGroupBox;
    Dkqqk: TDataSource;
    BtnFind: TChangeImg;
    LBtnFind: TLabelB;
    BtnPrint: TChangeImg;
    LBtnPrint: TLabelB;
    ChangeImg1: TChangeImg;
    LabelB1: TLabelB;
    ChangeImg4: TChangeImg;
    LabelB5: TLabelB;
    Query1: TADOQuery;
    pkq_D_MonthJs: TADOStoredProc;
    cmbyear: TComboBox;
    Label52: TLabel;
    cmbSeekMethod: TComboBox;
    Label13: TLabel;
    CmbContents: TComboBox;
    Label1: TLabel;
    qry: TADOQuery;
    procedure ChangeImg4Click(Sender: TObject);
    procedure BtnFindClick(Sender: TObject);
    procedure BtnPrintClick(Sender: TObject);
    procedure cmbSeekMethodChange(Sender: TObject);
    procedure ChangeImg1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_R_Dykqqk: TFrm_R_Dykqqk;

implementation

uses DM_DataModal, UGlobal;

{$R *.dfm}

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

procedure TFrm_R_Dykqqk.BtnFindClick(Sender: TObject);
var
  i:integer;
  gsSql:String;
begin
  inherited;
  i:=cmbSeekMethod.Items.IndexOf(cmbSeekMethod.text);
  gsSql:='select * from vkq_dykqqk 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+''-''+y ='''+cmbYear.Text+'''';
    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_Dykqqk.BtnPrintClick(Sender: TObject);
begin
  inherited;
  try
    QRlbldwmc.Caption:='单位名称:'+gtSysCs.sSydw;
    QRLblzbbm.Caption:='制表部门:'+gtSysCs.sZbDw;
    QRlblzd.caption:='制单:';
    QrCurkqqk.Preview; //运行报表
  except
  end;
end;

procedure TFrm_R_Dykqqk.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_dykqqk order by ny','ny');
    4:gtKqgl.SetComboxItems(CmbContents,
                     'select distinct bcms from kq_sjb','bcms');
  end;
end;

procedure TFrm_R_Dykqqk.ChangeImg1Click(Sender: TObject);
Var
   RetMsg:Variant;
   RetVal:Integer;
begin
  inherited;
  RetMsg:='';
  RetVal:=-1;
  with pkq_D_monthJs do
  begin
    Parameters.parambyname('@js_n').Value:=copy(cmbyear.text,1,4);
    Parameters.parambyname('@js_y').Value:=copy(cmbyear.text,6,2);
    execproc;
    RetVal:= Parameters.parambyname('@RETURN_VALUE').Value;
    RetMsg:= Parameters.parambyname('@retmsg').Value;
    if RetVal<>0 then
      showmessage(RetMsg)
    else
      application.MessageBox('计算完成','系统提示',mb_ok+mb_iconinformation);
  end;
end;

procedure TFrm_R_Dykqqk.FormCreate(Sender: TObject);
begin
  inherited;
  with qry do
  begin
    sql.Clear;
    sql.Add('select distinct n+''-''+y as year_month from vkq_dykqqk');
    open;
    cmbyear.Items.Clear;
    while not eof do
    begin
      cmbyear.Items.Add(fieldbyname('year_month').AsString);
      next;
    end;
  end;
end;

end.