📄 payw00_01.pas.svn-base
字号:
unit PayW00_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, wwdbdatetimepicker,
ShellApi;
type
TPayW00_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;
tlbBom100: TToolButton;
tlbBom110: TToolButton;
ToolButton4: TToolButton;
tlbInv150: TToolButton;
tlbPay150: TToolButton;
tlbPay160: TToolButton;
ToolButton12: TToolButton;
tlbPay500: TToolButton;
tlbPay510: 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;
N25: TMenuItem;
N27: TMenuItem;
mmiHelp: TMenuItem;
mmiContents: TMenuItem;
mmiEamil: TMenuItem;
mmiHome: TMenuItem;
mmiUpgrade: TMenuItem;
N9: TMenuItem;
mmiAbout: TMenuItem;
N1: TMenuItem;
mmiRegister: TMenuItem;
ActionList1: TActionList;
ActHrmS00: TAction;
ActBom100: TAction;
ActPay500: TAction;
ActPay510: TAction;
ActContents: TAction;
ActEmail: TAction;
ActHomePage: TAction;
ActAbout: TAction;
ActReg: TAction;
ActBom110: TAction;
ActInv150: TAction;
ActUpgrade: TAction;
ActPay150: TAction;
ActPay160: TAction;
ActPay200: TAction;
ActPay210: TAction;
ActPay220: TAction;
ActPay230: 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;
qryMasterP150_002: TStringField;
qryMasterP150_003: TStringField;
qryMasterC160_002: TStringField;
qryMasterC160_003: TStringField;
qryMasterP500_003: TStringField;
qryMasterH150_002: TStringField;
qryMasterH150_003: TStringField;
qryMasterP500_005: TDateTimeField;
qryMasterP500_006: TFloatField;
qryMasterP500_007: TBooleanField;
qryMasterP500_001: TIntegerField;
qryMasterP500_002: TIntegerField;
qryMasterP500_004: TIntegerField;
dbgMaster: TdxDBGrid;
dxDBGrid1P150_002: TdxDBGridLookupColumn;
dxDBGrid1P150_003: TdxDBGridLookupColumn;
dxDBGrid1C160_002: TdxDBGridLookupColumn;
dxDBGrid1C160_003: TdxDBGridLookupColumn;
dxDBGrid1P500_003: TdxDBGridMaskColumn;
dxDBGrid1H150_002: TdxDBGridLookupColumn;
dxDBGrid1H150_003: TdxDBGridLookupColumn;
dxDBGrid1P500_005: TdxDBGridDateColumn;
dxDBGrid1P500_006: TdxDBGridMaskColumn;
dxDBGrid1P500_007: TdxDBGridCheckColumn;
qryPay150: TADOQuery;
qryPay150P150_001: TAutoIncField;
qryPay150P150_002: TStringField;
qryPay150P150_003: TStringField;
qryHrm150: TADOQuery;
qryHrm150H150_001: TAutoIncField;
qryHrm150H150_002: TStringField;
qryHrm150H150_003: TStringField;
qryCwa160: TADOQuery;
qryCwa160C160_001: TAutoIncField;
qryCwa160C160_002: TStringField;
qryCwa160C160_003: TStringField;
qryCwa160C160_004: TIntegerField;
qryCwa160C160_005: TFloatField;
ActPay520: TAction;
ActPay550: TAction;
N4: TMenuItem;
N5: TMenuItem;
tlbPay520: TToolButton;
tlbPay550: 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 tvListsDblClick(Sender: TObject);
procedure tvListsGetImageIndex(Sender: TObject; Node: TTreeNode);
procedure ActHrmS00Execute(Sender: TObject);
procedure ActBom100Execute(Sender: TObject);
procedure ActBom110Execute(Sender: TObject);
procedure ActInv150Execute(Sender: TObject);
procedure ActPay150Execute(Sender: TObject);
procedure ActPay160Execute(Sender: TObject);
procedure ActPassExecute(Sender: TObject);
procedure ActLonginExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure ActPay500Execute(Sender: TObject);
procedure ActPay510Execute(Sender: TObject);
procedure ActPay520Execute(Sender: TObject);
procedure ActPay550Execute(Sender: TObject);
procedure ActPay200Execute(Sender: TObject);
procedure ActPay210Execute(Sender: TObject);
procedure ActPay220Execute(Sender: TObject);
procedure ActPay230Execute(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 mmiReadedClick(Sender: TObject);
procedure bbtnExcelClick(Sender: TObject);
private
ATypeNo:Integer;
AStartDate,AEndDate:TDateTime;
APeriod:Integer;
procedure SetInterface;
{ Private declarations }
public
procedure RefreshPayItem;
{ Public declarations }
end;
var
PayW00_01Form: TPayW00_01Form;
implementation
uses CommFun, SYSDATA, Sys600_01, Welcome, HwRegister, ErpMain,
Pay500_04, HwExport;
{$R *.dfm}
//取得所有薪资项目
procedure GetAllPayItem(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 PAY150');
{ if ASuper then
begin
SYSDM.qryQuery.SQL.Add('select * from PAY150');
end else
begin
SYSDM.qryQuery.SQL.Add('select * from SYS500C A, PAY150 B');
SYSDM.qryQuery.SQL.Add('where A.S500C_002=B.P150_001 and A.S500C_003=''PAY'' 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('P150_001').Value;
ADataSet.FieldByName('Name').Value:=SYSDM.qryQuery.FieldByName('P150_003').Value;
ADataSet.FieldByName('Parent').Value:=0;
SYSDM.qryQuery.Next;
end;
end;
procedure TPayW00_01Form.SetInterface;
begin
Caption:=GetDBString('PAYW0001001'); //薪资工作平台
mmiFile.Caption:=GetDBString('PAYW0001002'); //基本资料(&F)
mmiEdit.Caption:=GetDBString('PAYW0001003'); //业务处理(&E)
mmiReport.Caption:=GetDBString('PAYW0001004'); //查询报表(&R)
mmiHelp.Caption:=GetDBString('PAYW0001005'); //帮助(&H)
ActHrmS00.Caption:=GetDBString('PAYW0001006'); //人力资源参数
ActBom100.Caption:=GetDBString('PAYW0001007'); //工序资料维护
ActBom110.Caption:=GetDBString('PAYW0001008'); //工艺流程维护
ActInv150.Caption:=GetDBString('PAYW0001009'); //料品资料维护
ActPay150.Caption:=GetDBString('PAYW0001010'); //薪资项目维护
ActPay160.Caption:=GetDBString('PAYW0001011'); //薪资类别维护
ActPass.Caption:=GetDBString('PAYW0001012'); //更改登录密码(&C)...
ActLongin.Caption:=GetDBString('PAYW0001013'); //更换操作员(&U)...
ActExit.Caption:=GetDBString('PAYW0001014'); //退出(&X)
ActPay500.Caption:=GetDBString('PAYW0001015'); //薪资事务处理
ActPay510.Caption:=GetDBString('PAYW0001016'); //员工薪资结构
ActPay520.Caption:=GetDBString('PAYW0001017'); //计件资料录入
ActPay550.Caption:=GetDBString('PAYW0001018'); //薪资核算处理
ActPay200.Caption:=GetDBString('PAYW0001019'); //薪资查询报表
ActPay210.Caption:=GetDBString('PAYW0001020'); //计件薪资查询
ActPay220.Caption:=GetDBString('PAYW0001021'); //薪资年度查询
ActPay230.Caption:=GetDBString('PAYW0001022'); //薪资月度查询
ActContents.Caption:=GetDBString('PAYW0001023'); //帮助主题(&H)
ActEmail.Caption:=GetDBString('PAYW0001024'); //写信给作者(&E)...
ActHomePage.Caption:=GetDBString('PAYW0001025'); //网上浩晖(&P)...
ActAbout.Caption:=GetDBString('PAYW0001026'); //关于浩晖(&A)...
ActReg.Caption:=GetDBString('PAYW0001027'); //软件注册(&R)...
ActUpgrade.Caption:=GetDBString('PAYW0001028'); //在线智能升级(&U)...
tlbBom100.Caption:=GetDBString('PAYW0001029'); //工艺资料
tlbBom110.Caption:=GetDBString('PAYW0001030'); //工艺流程
tlbInv150.Caption:=GetDBString('PAYW0001031'); //料品资料
tlbPay150.Caption:=GetDBString('PAYW0001032'); //薪资项目
tlbPay160.Caption:=GetDBString('PAYW0001033'); //薪资类别
tlbPay500.Caption:=GetDBString('PAYW0001034'); //薪资事务
tlbPay510.Caption:=GetDBString('PAYW0001035'); //薪资结构
tlbPay520.Caption:=GetDBString('PAYW0001036'); //计件资料
tlbPay550.Caption:=GetDBString('PAYW0001037'); //薪资核算
tlbExit.Caption:=GetDBString('PAYW0001038'); //退出
pnLists.Caption:=GetDBString('PAYW0001039'); //薪资项目
pnReports.Caption:=GetDBString('PAYW0001040'); //查询报表
TabSheet1.Caption:=GetDBString('PAYW0001041'); //薪资事务
TabSheet2.Caption:=GetDBString('PAYW0001042'); //预警信息
lblType.Caption:=GetDBString('PAYW0001043'); //事务类型
lblYear.Caption:=GetDBString('PAYW0001044'); //年份
lblMonth.Caption:=GetDBString('PAYW0001045'); //月份
sbSearch.Caption:=GetDBString('PAYW0001046'); //查询
bbtnInsert.Caption:=GetDBString('PAYW0001047'); //新增(&A)
bbtnUpdate.Caption:=GetDBString('PAYW0001048'); //修改(&E)
bbtnDelete.Caption:=GetDBString('PAYW0001049'); //删除(&D)
bbtnRefresh.Caption:=GetDBString('PAYW0001050'); //刷新(&R)
bbtnLocate.Caption:=GetDBString('PAYW0001051'); //查找(&F)
bbtnSearch.Caption:=GetDBString('PAYW0001052'); //查询(&S)
bbtnPrint.Caption:=GetDBString('PAYW0001053'); //打印(&P)
qryMasterP150_002.DisplayLabel:=GetDBString('PAYW0001054'); //类型编号
qryMasterP150_003.DisplayLabel:=GetDBString('PAYW0001055'); //类型名称
qryMasterC160_002.DisplayLabel:=GetDBString('PAYW0001056'); //原因编号
qryMasterC160_003.DisplayLabel:=GetDBString('PAYW0001057'); //原因说明
qryMasterP500_003.DisplayLabel:=GetDBString('PAYW0001058'); //事务说明
qryMasterH150_002.DisplayLabel:=GetDBString('PAYW0001059'); //员工编号
qryMasterH150_003.DisplayLabel:=GetDBString('PAYW0001060'); //员工姓名
qryMasterP500_005.DisplayLabel:=GetDBString('PAYW0001061'); //事务日期
qryMasterP500_006.DisplayLabel:=GetDBString('PAYW0001062'); //事务金额
qryMasterP500_007.DisplayLabel:=GetDBString('PAYW0001063'); //已审核否
PageControl1.ActivePageIndex:=0;
mmiReaded.Caption:=GetDBString('COM00006008'); //标识为“已阅读”
end;
procedure TPayW00_01Form.RefreshPayItem;
begin
GetAllPayItem(adsLists);
adsLists.First;
cbType.Clear;
while not adsLists.Eof do
begin
cbType.Items.Add(adsLists.FieldByName('Name').AsString);
adsLists.Next;
end;
adsLists.First;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -