cwa550_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Cwa550_01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Bas100_01, FR_DSet, FR_DBSet, FR_Class, Db, Menus,
  Grids, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
  Buttons, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  ActnList, ADODB, dxDBTLCl, dxGrClms;

type
  TCwa550_01Form = class(TBas100_01Form)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    cbYear: TComboBox;
    cbMonth: TComboBox;
    dsHrm150: TDataSource;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    tlbFirst: TToolButton;
    tlbPrior: TToolButton;
    tlbNext: TToolButton;
    tlbLast: TToolButton;
    ToolButton10: TToolButton;
    tlbLocate: TToolButton;
    tlbPrint: TToolButton;
    tlbCheck: TToolButton;
    ToolButton15: TToolButton;
    tlbExit: TToolButton;
    ToolButton17: TToolButton;
    tlbVise: TToolButton;
    tlbCalculate: TToolButton;
    Splitter1: TSplitter;
    dsCwa550A: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    dsCwa550B: TDataSource;
    TabSheet3: TTabSheet;
    dsCwa510: TDataSource;
    PopupMenu1: TPopupMenu;
    mmiPrint: TMenuItem;
    mmiExport: TMenuItem;
    sbOk: TSpeedButton;
    ActionList1: TActionList;
    ActFirst: TAction;
    ActPrior: TAction;
    ActNext: TAction;
    ActLast: TAction;
    ActLocate: TAction;
    ActSearch: TAction;
    ActPrint: TAction;
    ActExport: TAction;
    ActCheck: TAction;
    ActExit: TAction;
    qryHrm150: TADOQuery;
    qryCwa550A: TADOQuery;
    qryCwa550B: TADOQuery;
    qryCwa510: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TStringField;
    qryHrm150H150_003: TStringField;
    ActProv: TAction;
    ActCalc: TAction;
    SaveDialog1: TSaveDialog;
    qryCwa510C510_001: TStringField;
    qryCwa510C510_002: TDateTimeField;
    qryCwa510C130_002: TIntegerField;
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1H150_002: TdxDBGridColumn;
    dxDBGrid1H150_003: TdxDBGridColumn;
    dxDBGrid2: TdxDBGrid;
    ScrollBox3: TScrollBox;
    dxDBGrid3: TdxDBGrid;
    ScrollBox4: TScrollBox;
    dxDBGrid4: TdxDBGrid;
    dxDBGrid4C510_001: TdxDBGridColumn;
    dxDBGrid4C510_002: TdxDBGridDateColumn;
    dxDBGrid4C510_003: TdxDBGridColumn;
    qryCwa510C510_004: TStringField;
    qryCwa510C510_003: TStringField;
    qryCwa550AC550A_001: TIntegerField;
    qryCwa550AC550A_002: TIntegerField;
    qryCwa550AC550A_003: TIntegerField;
    qryCwa550AC550A_004: TIntegerField;
    qryCwa550AC150_001: TAutoIncField;
    qryCwa550AC150_002: TStringField;
    qryCwa550AC150_003: TStringField;
    qryCwa550AC150_004: TSmallintField;
    qryCwa550AC150_005: TSmallintField;
    qryCwa550AC150_007: TIntegerField;
    qryCwa550AC150_008: TBooleanField;
    qryCwa550AC550A_005: TFloatField;
    qryCwa550AC550A_006: TBooleanField;
    dxDBGrid2C150_002: TdxDBGridMaskColumn;
    dxDBGrid2C150_003: TdxDBGridMaskColumn;
    dxDBGrid2C550A_005: TdxDBGridMaskColumn;
    dxDBGrid2C150_005: TdxDBGridMaskColumn;
    dxDBGrid2C550A_006: TdxDBGridCheckColumn;
    qryCwa550BC550B_001: TDateTimeField;
    qryCwa550BC550B_002: TIntegerField;
    qryCwa550BC550B_003: TIntegerField;
    qryCwa550BC550B_004: TFloatField;
    qryCwa550BC550B_005: TBooleanField;
    qryCwa550BC550B_006: TStringField;
    qryCwa550BC550B_007: TBooleanField;
    qryCwa550BC150_001: TAutoIncField;
    qryCwa550BC150_002: TStringField;
    qryCwa550BC150_003: TStringField;
    qryCwa550BC150_004: TSmallintField;
    qryCwa550BC150_005: TSmallintField;
    qryCwa550BC150_007: TIntegerField;
    qryCwa550BC150_008: TBooleanField;
    dxDBGrid3C550B_001: TdxDBGridDateColumn;
    dxDBGrid3C150_003: TdxDBGridMaskColumn;
    dxDBGrid3C550B_004: TdxDBGridMaskColumn;
    dxDBGrid3C150_005: TdxDBGridMaskColumn;
    dxDBGrid3C550B_005: TdxDBGridCheckColumn;
    dxDBGrid3C550B_006: TdxDBGridMaskColumn;
    dxDBGrid3C550B_007: TdxDBGridCheckColumn;
    qryCwa550AC150_006: TMemoField;
    qryCwa550BC150_006: TMemoField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cbYearChange(Sender: TObject);
    procedure ReportGetValue(const ParName: String;
      var ParValue: Variant);
    procedure sbOkClick(Sender: TObject);
    procedure cbMonthChange(Sender: TObject);
    procedure ActFirstExecute(Sender: TObject);
    procedure ActPriorExecute(Sender: TObject);
    procedure ActNextExecute(Sender: TObject);
    procedure ActLastExecute(Sender: TObject);
    procedure ActLocateExecute(Sender: TObject);
    procedure ActSearchExecute(Sender: TObject);
    procedure ActPrintExecute(Sender: TObject);
    procedure ActExportExecute(Sender: TObject);
    procedure ActCheckExecute(Sender: TObject);
    procedure ActProvExecute(Sender: TObject);
    procedure ActCalcExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
    procedure qryHrm150AfterScroll(DataSet: TDataSet);
    procedure qryCwa550AC150_005GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qryCwa550BC150_005GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    AStartDate,AEndDate:TDateTime;
    APeriod:Integer;
    AType:array[0..5] of string;
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Cwa550_01Form: TCwa550_01Form;

implementation

uses CommFun, SYSDATA, Cwa550_02, Cwa550_03, Cwa550_04;

{$R *.DFM}

procedure TCwa550_01Form.SetInterface;
begin
  Image1.Picture.Bitmap.LoadFromResourceName(AImgHandle,'TOPTITL');
  Caption:=GetDBString('CWA55001001');  //考勤资料核算
  ActFirst.Caption:=GetDBString('COM00005001');  //最前
  ActPrior.Caption:=GetDBString('COM00005002');  //上移
  ActNext.Caption:=GetDBString('COM00005003');  //下移
  ActLast.Caption:=GetDBString('COM00005004');  //最后
  ActLocate.Caption:=GetDBString('COM00005011');  //查找
  ActPrint.Caption:=GetDBString('COM00005013');  //打印
  ActExport.Caption:=GetDBString('COM00005014');  //导出数据
  ActExit.Caption:=GetDBString('COM00005015');  //退出

  ActCheck.Caption:=GetDBString('CWA55001002');  //审核
  ActProv.Caption:=GetDBString('CWA55001003');  //签卡
  ActCalc.Caption:=GetDBString('CWA55001004');  //计算

  Label1.Caption:=GetDBString('CWA55001005');  //年份
  Label2.Caption:=GetDBString('CWA55001006');  //月份
  sbOk.Caption:=GetDBString('CWA55001007');  //确定
  TabSheet1.Caption:=GetDBString('CWA55001010');  //考勤汇总
  TabSheet2.Caption:=GetDBString('CWA55001011');  //考勤明细
  TabSheet3.Caption:=GetDBString('CWA55001012');  //卡钟数据
  qryHrm150H150_002.DisplayLabel:=GetDBString('CWA55001008');  //员工编号
  qryHrm150H150_003.DisplayLabel:=GetDBString('CWA55001009');  //员工姓名

  qryCwa550AC150_002.DisplayLabel:=GetDBString('CWA55001013');  //考勤项目
  qryCwa550AC150_003.DisplayLabel:=GetDBString('CWA55001014');  //项目名称
  qryCwa550AC550A_005.DisplayLabel:=GetDBString('CWA55001015');  //数值
  qryCwa550AC150_005.DisplayLabel:=GetDBString('CWA55001016');  //单位
  qryCwa550AC550A_006.DisplayLabel:=GetDBString('CWA55001017');  //已审核否

  qryCwa550BC550B_001.DisplayLabel:=GetDBString('CWA55001018');  //考勤日期
  qryCwa550BC150_003.DisplayLabel:=GetDBString('CWA55001014');  //项目名称
  qryCwa550BC550B_004.DisplayLabel:=GetDBString('CWA55001015');  //数值
  qryCwa550BC150_005.DisplayLabel:=GetDBString('CWA55001016');  //单位
  qryCwa550BC550B_005.DisplayLabel:=GetDBString('CWA55001019');  //是否签卡
  qryCwa550BC550B_006.DisplayLabel:=GetDBString('CWA55001020');  //签卡人
  qryCwa550BC550B_007.DisplayLabel:=GetDBString('CWA55001017');  //已审核否

  qryCwa510C510_001.DisplayLabel:=GetDBString('CWA55001021');  //卡号
  qryCwa510C510_002.DisplayLabel:=GetDBString('CWA55001022');  //日期
  qryCwa510C510_003.DisplayLabel:=GetDBString('CWA55001023');  //时间
  qryCwa510C510_004.DisplayLabel:=GetDBString('CWA55001024');  //进出标识
  AType[0]:=GetDBString('COM00004009');  //分钟
  AType[1]:=GetDBString('COM00004010');  //小时
  AType[2]:=GetDBString('COM00004011');  //天
  AType[3]:=GetDBString('COM00004012');  //次
  AType[4]:=GetDBString('COM00004031');  //月
  AType[5]:=GetDBString('COM00004032');  //年
end;

procedure TCwa550_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  GetYears(cbYear);
  GetMonths(StrToInt(cbYear.Text),cbMonth);

  qryHrm150.Close;
  qryHrm150.SQL.Clear;
  if not ASuper then
    qryHrm150.SQL.Add('select H150_001,H150_002,H150_003 from HRM150 where H150_005 in (select S500C_002 from SYS500C where S500C_003=''DEP'' and S500C_004='+GetBoolean(True)+' and S500C_001='+IntToStr(AUserID)+') order by H150_002')
  else
    qryHrm150.SQL.Add('select H150_001,H150_002,H150_003 from HRM150 order by H150_002');
  qryHrm150.Open;

  sbOk.Click;

  PageControl1.ActivePageIndex:=0;

  ActPrint.Enabled:=(ARights[4]='Y');
  //设置界面信息
  SetInterface;
end;

procedure TCwa550_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryHrm150.Close;