📄 cwaw00_01.pas.svn-base
字号:
unit CwaW00_01;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, DB, ExtCtrls, ADODB, ActnList, Menus, ImgList,
dxDBCtrl, dxDBGrid, dxTL, dxDBTLCl, dxGrClms, dxCntner, ComCtrls, dxtree,
dxdbtree, Buttons, ToolWin, StdCtrls, ShellApi;
type
TCwaW00_01Form = class(TForm)
Splitter1: TSplitter;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel5: TPanel;
Image1: TImage;
Panel6: TPanel;
ScrollBox1: TScrollBox;
TabSheet2: TTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGrid1S910_002: TdxDBGridDateColumn;
dxDBGrid1S910_003: TdxDBGridMaskColumn;
dxDBGrid1S910_004: TdxDBGridMaskColumn;
Panel2: TPanel;
Splitter2: TSplitter;
pnLists: TPanel;
Panel1: TPanel;
pnReports: TPanel;
tvReports: TdxDBTreeView;
tvLists: TdxDBTreeView;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
Animate1: TAnimate;
ToolBar2: TToolBar;
tlbCwa100: TToolButton;
tlbCwa110: TToolButton;
ToolButton4: TToolButton;
tlbCwa120: TToolButton;
tlbCwa150: TToolButton;
tlbCwa160: TToolButton;
ToolButton12: TToolButton;
tlbCwa170: TToolButton;
tlbCwa500: TToolButton;
ToolButton13: TToolButton;
tlbExit: TToolButton;
PopupMenu5: TPopupMenu;
mmiReaded: TMenuItem;
dsReports: TDataSource;
adsReports: TADODataSet;
adsReportsCode: TStringField;
adsReportsName: TStringField;
imgReports: TImageList;
MainMenu1: TMainMenu;
mmiFile: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N8: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N14: TMenuItem;
C1: TMenuItem;
U1: TMenuItem;
N41: TMenuItem;
X1: TMenuItem;
mmiEdit: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
mmiReport: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
mmiHelp: TMenuItem;
mmiContents: TMenuItem;
mmiEamil: TMenuItem;
mmiHome: TMenuItem;
mmiUpgrade: TMenuItem;
N9: TMenuItem;
mmiAbout: TMenuItem;
N1: TMenuItem;
mmiRegister: TMenuItem;
ActionList1: TActionList;
ActHrmS00: TAction;
ActCwa100: TAction;
ActCwa500: TAction;
ActCwa550: TAction;
ActContents: TAction;
ActEmail: TAction;
ActHomePage: TAction;
ActAbout: TAction;
ActReg: TAction;
ActCwa110: TAction;
ActCwa120: TAction;
ActUpgrade: TAction;
ActCwa150: TAction;
ActCwa160: TAction;
ActCwa200: TAction;
ActCwa210: TAction;
ActPass: TAction;
ActLongin: TAction;
ActExit: TAction;
imgButton: TImageList;
imgPage: TImageList;
dsLists: TDataSource;
adsLists: TADODataSet;
adsListsNum: TIntegerField;
adsListsName: TStringField;
adsListsParent: TIntegerField;
qryMaster: TADOQuery;
dsMaster: TDataSource;
qryHrm120: TADOQuery;
qryHrm130: TADOQuery;
lblYear: TLabel;
lblMonth: TLabel;
lblType: TLabel;
cbYear: TComboBox;
cbMonth: TComboBox;
cbType: TComboBox;
dbgMaster: TdxDBGrid;
dxDBGrid1C150_002: TdxDBGridLookupColumn;
dxDBGrid1C150_003: TdxDBGridLookupColumn;
dxDBGrid1C160_002: TdxDBGridLookupColumn;
dxDBGrid1C160_003: TdxDBGridLookupColumn;
dxDBGrid1C500_003: TdxDBGridMaskColumn;
dxDBGrid1H150_002: TdxDBGridLookupColumn;
dxDBGrid1H150_003: TdxDBGridLookupColumn;
dxDBGrid1C500_005: TdxDBGridDateColumn;
dxDBGrid1C500_006: TdxDBGridMaskColumn;
dxDBGrid1C500_007: TdxDBGridMaskColumn;
dxDBGrid1C500_008: TdxDBGridMaskColumn;
dxDBGrid1C500_009: TdxDBGridMaskColumn;
dxDBGrid1C500_010: TdxDBGridCheckColumn;
qryMasterC150_002: TStringField;
qryMasterC150_003: TStringField;
qryMasterC160_002: TStringField;
qryMasterC160_003: TStringField;
qryMasterC500_003: TStringField;
qryMasterH150_002: TStringField;
qryMasterH150_003: TStringField;
qryMasterC500_005: TDateTimeField;
qryMasterC500_006: TStringField;
qryMasterC500_007: TStringField;
qryMasterC500_008: TFloatField;
qryMasterC500_009: TSmallintField;
qryMasterC500_010: TBooleanField;
qryMasterC500_001: TIntegerField;
qryMasterC500_002: TIntegerField;
qryMasterC500_004: TIntegerField;
qryCwa150: TADOQuery;
qryCwa150C150_001: TAutoIncField;
qryCwa150C150_002: TStringField;
qryCwa150C150_003: TStringField;
qryCwa150C150_004: TSmallintField;
qryCwa150C150_005: TSmallintField;
qryCwa160: TADOQuery;
qryCwa160C160_001: TAutoIncField;
qryCwa160C160_002: TStringField;
qryCwa160C160_003: TStringField;
qryHrm150: TADOQuery;
qryHrm150H150_001: TAutoIncField;
qryHrm150H150_002: TStringField;
qryHrm150H150_003: TStringField;
ActCwa170: TAction;
N4: TMenuItem;
ToolButton1: TToolButton;
tlbCwa550: TToolButton;
tlbFile: TToolButton;
tlbEdit: TToolButton;
tlbReport: TToolButton;
tlbHelp: TToolButton;
sbSearch: TSpeedButton;
bbtnRefresh: TBitBtn;
bbtnLocate: TBitBtn;
bbtnSearch: TBitBtn;
bbtnPrint: TBitBtn;
bbtnUpdate: TBitBtn;
bbtnDelete: TBitBtn;
bbtnInsert: TBitBtn;
bbtnExcel: TBitBtn;
imgLists: TImageList;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure dbgMasterBackgroundDrawEvent(Sender: TObject;
ACanvas: TCanvas; ARect: TRect);
procedure cbTypeChange(Sender: TObject);
procedure sbSearchClick(Sender: TObject);
procedure cbYearChange(Sender: TObject);
procedure cbMonthChange(Sender: TObject);
procedure qryMasterC500_009GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure tvListsDblClick(Sender: TObject);
procedure tvListsGetImageIndex(Sender: TObject; Node: TTreeNode);
procedure ActHrmS00Execute(Sender: TObject);
procedure ActCwa100Execute(Sender: TObject);
procedure ActCwa110Execute(Sender: TObject);
procedure ActCwa120Execute(Sender: TObject);
procedure ActCwa150Execute(Sender: TObject);
procedure ActCwa160Execute(Sender: TObject);
procedure ActCwa170Execute(Sender: TObject);
procedure ActPassExecute(Sender: TObject);
procedure ActLonginExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure ActCwa500Execute(Sender: TObject);
procedure ActCwa550Execute(Sender: TObject);
procedure ActCwa200Execute(Sender: TObject);
procedure ActCwa210Execute(Sender: TObject);
procedure ActContentsExecute(Sender: TObject);
procedure ActEmailExecute(Sender: TObject);
procedure ActHomePageExecute(Sender: TObject);
procedure ActAboutExecute(Sender: TObject);
procedure ActRegExecute(Sender: TObject);
procedure ActUpgradeExecute(Sender: TObject);
procedure bbtnInsertClick(Sender: TObject);
procedure bbtnUpdateClick(Sender: TObject);
procedure bbtnDeleteClick(Sender: TObject);
procedure bbtnRefreshClick(Sender: TObject);
procedure bbtnLocateClick(Sender: TObject);
procedure bbtnSearchClick(Sender: TObject);
procedure bbtnPrintClick(Sender: TObject);
procedure ReportGetValue(const ParName: String;
var ParValue: Variant);
procedure tvReportsDblClick(Sender: TObject);
procedure mmiReadedClick(Sender: TObject);
procedure bbtnExcelClick(Sender: TObject);
private
ATypeNo:Integer;
AStartDate,AEndDate:TDateTime;
APeriod:Integer;
AUnit:array[0..5] of string;
procedure SetInterface;
{ Private declarations }
public
procedure RefreshCheckItem;
{ Public declarations }
end;
var
CwaW00_01Form: TCwaW00_01Form;
implementation
uses CommFun, SYSDATA, Sys600_01, Welcome, HwRegister, ErpMain,
Cwa500_05, HwExport;
{$R *.dfm}
//取得所有考勤项目
procedure GetAllCheckItem(ADataSet:TADODataSet);
begin
ADataSet.Close;
ADataSet.LockType:=ltBatchOptimistic;
ADataSet.FieldDefs.Clear;
ADataSet.FieldDefs.Add('Num',ftInteger,0);
ADataSet.FieldDefs.Add('Name',ftString,100);
ADataSet.FieldDefs.Add('Parent',ftInteger,0);
ADataSet.CreateDataSet;
ADataSet.Append;
ADataSet.FieldByName('Num').Value:=0;
ADataSet.FieldByName('Name').Value:=GetDBString('COM00004008'); //所有项目
ADataSet.FieldByName('Parent').Value:=0;
ADataSet.Post;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select * from CWA150');
{ if ASuper then
begin
SYSDM.qryQuery.SQL.Add('select * from CWA150');
end else
begin
SYSDM.qryQuery.SQL.Add('select * from SYS500C A, CWA150 B');
SYSDM.qryQuery.SQL.Add('where A.S500C_002=B.C150_001 and A.S500C_003=''CWA'' and A.S500C_004='+GetBoolean(True)+' and A.S500C_001='+IntToStr(AUserID));
end; }
SYSDM.qryQuery.Open;
while not SYSDM.qryQuery.Eof do
begin
ADataSet.Append;
ADataSet.FieldByName('Num').Value:=SYSDM.qryQuery.FieldByName('C150_001').Value;
ADataSet.FieldByName('Name').Value:=SYSDM.qryQuery.FieldByName('C150_003').Value;
ADataSet.FieldByName('Parent').Value:=0;
SYSDM.qryQuery.Next;
end;
end;
procedure TCwaW00_01Form.SetInterface;
begin
Caption:=GetDBString('CWAW0001001'); //考勤工作平台
mmiFile.Caption:=GetDBString('CWAW0001002'); //基本资料(&F)
mmiEdit.Caption:=GetDBString('CWAW0001003'); //业务处理(&E)
mmiReport.Caption:=GetDBString('CWAW0001004'); //查询报表(&R)
mmiHelp.Caption:=GetDBString('CWAW0001005'); //帮助(&H)
ActHrmS00.Caption:=GetDBString('CWAW0001006'); //人力资源参数
ActCwa100.Caption:=GetDBString('CWAW0001007'); //工作日历维护
ActCwa110.Caption:=GetDBString('CWAW0001008'); //班别文件维护
ActCwa120.Caption:=GetDBString('CWAW0001009'); //员工班别维护
ActCwa150.Caption:=GetDBString('CWAW0001010'); //考勤项目维护
ActCwa160.Caption:=GetDBString('CWAW0001011'); //事务原因维护
ActCwa170.Caption:=GetDBString('CWAW0001012'); //期段资料维护
ActPass.Caption:=GetDBString('CWAW0001013'); //更改登录密码(&C)...
ActLongin.Caption:=GetDBString('CWAW0001014'); //更换操作员(&U)...
ActExit.Caption:=GetDBString('CWAW0001015'); //退出(&X)
ActCwa500.Caption:=GetDBString('CWAW0001016'); //考勤事务处理
ActCwa550.Caption:=GetDBString('CWAW0001017'); //考勤资料核算
ActCwa200.Caption:=GetDBString('CWAW0001018'); //考勤查询报表
ActCwa210.Caption:=GetDBString('CWAW0001019'); //考勤年度报表
ActContents.Caption:=GetDBString('CWAW0001020'); //帮助主题(&H)
ActEmail.Caption:=GetDBString('CWAW0001021'); //写信给作者(&E)...
ActHomePage.Caption:=GetDBString('CWAW0001022'); //网上浩晖(&P)...
ActAbout.Caption:=GetDBString('CWAW0001023'); //关于浩晖(&A)...
ActReg.Caption:=GetDBString('CWAW0001024'); //软件注册(&R)...
ActUpgrade.Caption:=GetDBString('CWAW0001025'); //在线智能升级(&U)...
tlbCwa100.Caption:=GetDBString('CWAW0001026'); //工作日历
tlbCwa110.Caption:=GetDBString('CWAW0001027'); //班别文件
tlbCwa120.Caption:=GetDBString('CWAW0001028'); //员工班别
tlbCwa150.Caption:=GetDBString('CWAW0001029'); //考勤项目
tlbCwa160.Caption:=GetDBString('CWAW0001030'); //事务原因
tlbCwa170.Caption:=GetDBString('CWAW0001031'); //期段资料
tlbCwa500.Caption:=GetDBString('CWAW0001032'); //考勤事务
tlbCwa550.Caption:=GetDBString('CWAW0001033'); //考勤核算
tlbExit.Caption:=GetDBString('CWAW0001034'); //退出
pnLists.Caption:=GetDBString('CWAW0001035'); //考勤项目
pnReports.Caption:=GetDBString('CWAW0001036'); //查询报表
TabSheet1.Caption:=GetDBString('CWAW0001037'); //考勤事务
TabSheet2.Caption:=GetDBString('CWAW0001038'); //预警信息
lblType.Caption:=GetDBString('CWAW0001039'); //事务类型
lblYear.Caption:=GetDBString('CWAW0001040'); //年份
lblMonth.Caption:=GetDBString('CWAW0001041'); //月份
sbSearch.Caption:=GetDBString('CWAW0001042'); //查询
bbtnInsert.Caption:=GetDBString('CWAW0001043'); //新增(&A)
bbtnUpdate.Caption:=GetDBString('CWAW0001044'); //修改(&E)
bbtnDelete.Caption:=GetDBString('CWAW0001045'); //删除(&D)
bbtnRefresh.Caption:=GetDBString('CWAW0001046'); //刷新(&R)
bbtnLocate.Caption:=GetDBString('CWAW0001047'); //查找(&F)
bbtnSearch.Caption:=GetDBString('CWAW0001048'); //查询(&S)
bbtnPrint.Caption:=GetDBString('CWAW0001049'); //打印(&P)
qryMasterC150_002.DisplayLabel:=GetDBString('CWAW0001050'); //类型编号
qryMasterC150_003.DisplayLabel:=GetDBString('CWAW0001051'); //类型名称
qryMasterC160_002.DisplayLabel:=GetDBString('CWAW0001052'); //原因编号
qryMasterC160_003.DisplayLabel:=GetDBString('CWAW0001053'); //原因说明
qryMasterC500_003.DisplayLabel:=GetDBString('CWAW0001054'); //事务说明
qryMasterH150_002.DisplayLabel:=GetDBString('CWAW0001055'); //员工编号
qryMasterH150_003.DisplayLabel:=GetDBString('CWAW0001056'); //员工姓名
qryMasterC500_005.DisplayLabel:=GetDBString('CWAW0001057'); //事务日期
qryMasterC500_006.DisplayLabel:=GetDBString('CWAW0001058'); //起始时间
qryMasterC500_007.DisplayLabel:=GetDBString('CWAW0001059'); //结束时间
qryMasterC500_008.DisplayLabel:=GetDBString('CWAW0001060'); //事务数值
qryMasterC500_009.DisplayLabel:=GetDBString('CWAW0001061'); //单位
qryMasterC500_010.DisplayLabel:=GetDBString('CWAW0001062'); //已审核否
AUnit[0]:=GetDBString('COM00004009'); //分钟
AUnit[1]:=GetDBString('COM00004010'); //小时
AUnit[2]:=GetDBString('COM00004011'); //天
AUnit[3]:=GetDBString('COM00004012'); //次
AUnit[4]:=GetDBString('COM00004031'); //月
AUnit[5]:=GetDBString('COM00004032'); //年
//取系统参数(事务处理必须审核否'PAY0006')
// bbtnCheck.Visible:=GetSysParams('PAY0006')='Y';
PageControl1.ActivePageIndex:=0;
mmiReaded.Caption:=GetDBString('COM00006008'); //标识为“已阅读”
end;
procedure TCwaW00_01Form.RefreshCheckItem;
begin
GetAllCheckItem(adsLists);
adsLists.First;
cbType.Clear;
while not adsLists.Eof do
begin
cbType.Items.Add(adsLists.FieldByName('Name').AsString);
adsLists.Next;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -