?? 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 + -