?? cshw00_01.pas.svn-base
字號:
unit CshW00_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, wwdbdatetimepicker;
type
TCshW00_01Form = class(TForm)
Splitter1: TSplitter;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
Animate1: TAnimate;
ToolBar2: TToolBar;
Panel2: TPanel;
pnLists: TPanel;
tvLists: TdxDBTreeView;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGrid1S910_002: TdxDBGridDateColumn;
dxDBGrid1S910_003: TdxDBGridMaskColumn;
dxDBGrid1S910_004: TdxDBGridMaskColumn;
MainMenu1: TMainMenu;
mmiFile: TMenuItem;
mmiEdit: TMenuItem;
mmiBudget: TMenuItem;
mmiHelp: TMenuItem;
mmiContents: TMenuItem;
mmiEamil: TMenuItem;
mmiHome: TMenuItem;
mmiUpgrade: TMenuItem;
N9: TMenuItem;
mmiAbout: TMenuItem;
N1: TMenuItem;
mmiRegister: TMenuItem;
imgButton: TImageList;
ActionList1: TActionList;
ActOrd120: TAction;
ActHrm100: TAction;
ActCsh500: TAction;
ActOrd150: TAction;
ActCsh510: TAction;
ActCsh550: TAction;
ActContents: TAction;
ActEmail: TAction;
ActHomePage: TAction;
ActAbout: TAction;
ActReg: TAction;
ActHrm120: TAction;
ActHrm130: TAction;
ActExit: TAction;
ActUpgrade: TAction;
dsLists: TDataSource;
imgPage: TImageList;
PopupMenu5: TPopupMenu;
mmiReaded: TMenuItem;
Panel1: TPanel;
pnReports: TPanel;
Splitter2: TSplitter;
mmiReport: TMenuItem;
ActHrm150: TAction;
ActCsh140: TAction;
ActCsh150: TAction;
ActGld100: TAction;
ActCshS00: TAction;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
ActCsh700: TAction;
ActCsh710: TAction;
ActCsh720: TAction;
ActCsh800: TAction;
ActCsh810: TAction;
ActCsh820: TAction;
ActCsh830: TAction;
ActCsh840: TAction;
ActCsh850: TAction;
ActCsh860: TAction;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N34: TMenuItem;
ActCsh400: TAction;
ActCsh410: TAction;
ActCsh420: TAction;
N37: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
tlbCsh550: TToolButton;
ActLongin: TAction;
ActPass: TAction;
N40: TMenuItem;
C1: TMenuItem;
U1: TMenuItem;
X1: TMenuItem;
N41: TMenuItem;
tvReports: TdxDBTreeView;
tlbCsh500: TToolButton;
tlbCsh510: TToolButton;
ToolButton4: TToolButton;
tlbCsh140: TToolButton;
tlbCsh150: TToolButton;
tlbOrd120: TToolButton;
ScrollBox1: TScrollBox;
Panel5: TPanel;
Image1: TImage;
lblDate: TLabel;
dtpStartDate: TwwDBDateTimePicker;
dtpEndDate: TwwDBDateTimePicker;
dbgMaster: TdxDBGrid;
dbgMasterCURNM: TdxDBGridMaskColumn;
dbgMasterACCNM: TdxDBGridMaskColumn;
dbgMasterAMT01: TdxDBGridCurrencyColumn;
dbgMasterAMT02: TdxDBGridCurrencyColumn;
dbgMasterAMT03: TdxDBGridCurrencyColumn;
dbgMasterAMT04: TdxDBGridCurrencyColumn;
Panel6: TPanel;
bbtnNew: TBitBtn;
dsMaster: TDataSource;
adsMaster: TADODataSet;
adsMasterCURNM: TStringField;
adsMasterACCNM: TStringField;
adsMasterAMT01: TBCDField;
adsMasterAMT02: TBCDField;
adsMasterAMT03: TBCDField;
adsMasterAMT04: TBCDField;
lblAcct: TLabel;
adsReports: TADODataSet;
dsReports: TDataSource;
adsLists: TADODataSet;
adsListsNum: TIntegerField;
adsListsName: TStringField;
adsListsParent: TIntegerField;
adsReportsCode: TStringField;
adsReportsName: TStringField;
imgReports: TImageList;
tlbOrd150: TToolButton;
tlbHrm100: TToolButton;
tlbHrm150: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
tlbExit: TToolButton;
adsDetail: TADODataSet;
adsDetailBILDT: TDateTimeField;
adsDetailBILNO: TStringField;
adsDetailMEMO: TStringField;
adsDetailAMT01: TBCDField;
adsDetailAMT02: TBCDField;
adsDetailAMT03: TBCDField;
dbgDetail: TdxDBGrid;
dsDetail: TDataSource;
dbgDetailBILDT: TdxDBGridDateColumn;
dbgDetailBILNO: TdxDBGridMaskColumn;
dbgDetailMEMO: TdxDBGridMaskColumn;
dbgDetailAMT01: TdxDBGridCurrencyColumn;
dbgDetailAMT02: TdxDBGridCurrencyColumn;
dbgDetailAMT03: TdxDBGridCurrencyColumn;
popInsert: TPopupMenu;
miIncome: TMenuItem;
miTransfer: TMenuItem;
bbtnInsert: TBitBtn;
qryCsh550: TADOQuery;
tlbFile: TToolButton;
tlbEdit: TToolButton;
tlbBudget: TToolButton;
tlbReport: TToolButton;
tlbHelp: TToolButton;
sbSearch: TSpeedButton;
cbAccNm: TComboBox;
bbtnRefresh: TBitBtn;
bbtnLocate: TBitBtn;
bbtnSearch: TBitBtn;
bbtnPrint: TBitBtn;
bbtnUpdate: TBitBtn;
bbtnDelete: TBitBtn;
bbtnExcel: TBitBtn;
imgLists: TImageList;
ActCsh600: TAction;
ActCsh730: TAction;
N5: TMenuItem;
N13: TMenuItem;
N35: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure dbgMasterBackgroundDrawEvent(Sender: TObject;
ACanvas: TCanvas; ARect: TRect);
procedure ActCshS00Execute(Sender: TObject);
procedure ActOrd120Execute(Sender: TObject);
procedure ActOrd150Execute(Sender: TObject);
procedure ActHrm100Execute(Sender: TObject);
procedure ActHrm120Execute(Sender: TObject);
procedure ActHrm130Execute(Sender: TObject);
procedure ActHrm150Execute(Sender: TObject);
procedure ActCsh140Execute(Sender: TObject);
procedure ActCsh150Execute(Sender: TObject);
procedure ActGld100Execute(Sender: TObject);
procedure ActPassExecute(Sender: TObject);
procedure ActLonginExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure ActCsh500Execute(Sender: TObject);
procedure ActCsh510Execute(Sender: TObject);
procedure ActCsh550Execute(Sender: TObject);
procedure ActCsh400Execute(Sender: TObject);
procedure ActCsh410Execute(Sender: TObject);
procedure ActCsh420Execute(Sender: TObject);
procedure ActCsh700Execute(Sender: TObject);
procedure ActCsh710Execute(Sender: TObject);
procedure ActCsh720Execute(Sender: TObject);
procedure ActCsh800Execute(Sender: TObject);
procedure ActCsh810Execute(Sender: TObject);
procedure ActCsh820Execute(Sender: TObject);
procedure ActCsh830Execute(Sender: TObject);
procedure ActCsh840Execute(Sender: TObject);
procedure ActCsh850Execute(Sender: TObject);
procedure ActCsh860Execute(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 sbSearchClick(Sender: TObject);
procedure tvReportsDblClick(Sender: TObject);
procedure bbtnNewClick(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 MenuItemClick(Sender: TObject);
procedure dbgDetailBackgroundDrawEvent(Sender: TObject;
ACanvas: TCanvas; ARect: TRect);
procedure tvListsGetImageIndex(Sender: TObject; Node: TTreeNode);
procedure tvListsDblClick(Sender: TObject);
procedure cbAccNmChange(Sender: TObject);
procedure dbgMasterDblClick(Sender: TObject);
procedure dbgDetailDblClick(Sender: TObject);
procedure ReportGetValue(const ParName: String;
var ParValue: Variant);
procedure dbgMasterAMT01DrawSummaryFooter(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; var AText: String;
var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
var ADone: Boolean);
procedure dbgMasterAMT02DrawSummaryFooter(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; var AText: String;
var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
var ADone: Boolean);
procedure dbgMasterAMT03DrawSummaryFooter(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; var AText: String;
var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
var ADone: Boolean);
procedure dbgMasterAMT04DrawSummaryFooter(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; var AText: String;
var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
var ADone: Boolean);
procedure dbgDetailAMT01DrawSummaryFooter(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; var AText: String;
var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
var ADone: Boolean);
procedure dbgDetailAMT02DrawSummaryFooter(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; var AText: String;
var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
var ADone: Boolean);
procedure mmiReadedClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bbtnExcelClick(Sender: TObject);
procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure ActCsh600Execute(Sender: TObject);
procedure ActCsh730Execute(Sender: TObject);
private
AOpen, AIncome, APayment, ABalance:Double;
procedure SetInterface;
procedure DoPopupMenu(AWinControl:TWinControl;APopupMenu:TPopupMenu);
procedure GetCashMaster(ADataSet:TADODataSet;AFromDate,AToDate:TDateTime);
procedure GetCashDetail(ADataSet:TADODataSet;AccNo:Integer;AFromDate,AToDate:TDateTime);
{ Private declarations }
public
procedure RefreshAccount;
{ Public declarations }
end;
var
CshW00_01Form: TCshW00_01Form;
implementation
uses CommFun, SYSDATA, HwRegister, Welcome, Sys600_01, Sys700_01,
CshComm, Csh510_02, Csh510_04, ErpMain, HwExport;
{$R *.dfm}
procedure TCshW00_01Form.DoPopupMenu(AWinControl:TWinControl;APopupMenu:TPopupMenu);
var
X,Y:Integer;
APoint:TPoint;
AOld:TWinControl;
begin
X:=0;
Y:=0;
AOld:=AWinControl;
while (AWinControl.HasParent) and (AWinControl.Parent.Name<>Name) do
begin
AWinControl:=AWinControl.Parent;
X:=X+AWinControl.Left;
Y:=Y+AWinControl.Top;
end;
APoint.X:=X+AOld.Left;
APoint.Y:=Y+AOld.Top;
APoint:=ClientToScreen(APoint);
APopupMenu.Popup(APoint.X,APoint.Y);
end;
//取得所有帳戶資料
procedure GetAllAccount(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('CSHW0001061'); //所有帳戶
ADataSet.FieldByName('Parent').Value:=0;
ADataSet.Post;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
if ASuper then
begin
SYSDM.qryQuery.SQL.Add('select * from CSH550');
end else
begin
SYSDM.qryQuery.SQL.Add('select * from SYS500C A, CSH550 B');
SYSDM.qryQuery.SQL.Add('where A.S500C_002=B.C550_001 and A.S500C_003=''ACC'' 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('C550_001').Value;
ADataSet.FieldByName('Name').Value:=SYSDM.qryQuery.FieldByName('C550_002').Value;
ADataSet.FieldByName('Parent').Value:=0;
SYSDM.qryQuery.Next;
end;
end;
procedure TCshW00_01Form.RefreshAccount;
begin
GetAllAccount(adsLists);
adsLists.First;
cbAccNm.Clear;
while not adsLists.Eof do
begin
cbAccNm.Items.Add(adsLists.FieldByName('Name').AsString);
adsLists.Next;
end;
adsLists.First;
cbAccNm.ItemIndex:=0;
cbAccNmChange(cbAccNm);
end;
procedure TCshW00_01Form.SetInterface;
begin
Caption:=GetDBString('CSHW0001001'); //資金管理平臺
mmiFile.Caption:=GetDBString('CSHW0001077'); //基本資料(&F)
mmiEdit.Caption:=GetDBString('CSHW0001078'); //業務處理(&E)
mmiReport.Caption:=GetDBString('CSHW0001079'); //查詢報表(&R)
mmiHelp.Caption:=GetDBString('CSHW0001080'); //幫助(&H)
ActCshS00.Caption:=GetDBString('CSHW0001002'); //現金管理參數
ActOrd120.Caption:=GetDBString('CSHW0001003'); //地區資料維護
ActOrd150.Caption:=GetDBString('CSHW0001004'); //客戶資料維護
ActHrm100.Caption:=GetDBString('CSHW0001005'); //部門資料維護
ActHrm120.Caption:=GetDBString('CSHW0001006'); //崗位資料維護
ActHrm130.Caption:=GetDBString('CSHW0001007'); //員工狀態維護
ActHrm150.Caption:=GetDBString('CSHW0001008'); //員工資料維護
ActCsh140.Caption:=GetDBString('CSHW0001009'); //業務分類維護
ActCsh150.Caption:=GetDBString('CSHW0001010'); //項目資料維護
ActGld100.Caption:=GetDBString('CSHW0001011'); //幣別資料維護
ActPass.Caption:=GetDBString('CSHW0001012'); //更改登錄密碼(&C)...
ActLongin.Caption:=GetDBString('CSHW0001013'); //更換操作員(&U)...
ActExit.Caption:=GetDBString('CSHW0001014'); //退出(&X)
ActCsh500.Caption:=GetDBString('CSHW0001015'); //資金總帳
ActCsh510.Caption:=GetDBString('CSHW0001016'); //資金帳本
ActCsh550.Caption:=GetDBString('CSHW0001017'); //新建帳戶
ActCsh400.Caption:=GetDBString('CSHW0001019'); //資金預算維護
ActCsh410.Caption:=GetDBString('CSHW0001020'); //資金預算查詢
ActCsh420.Caption:=GetDBString('CSHW0001021'); //資金預算分析
ActCsh700.Caption:=GetDBString('CSHW0001022'); //資金余額查詢
ActCsh710.Caption:=GetDBString('CSHW0001023'); //資金來源查詢
ActCsh720.Caption:=GetDBString('CSHW0001024'); //資金去向查詢
ActCsh800.Caption:=GetDBString('CSHW0001025'); //收支分析報表
ActCsh810.Caption:=GetDBString('CSHW0001026'); //比較分析報表
ActCsh820.Caption:=GetDBString('CSHW0001027'); //資金日報表
ActCsh830.Caption:=GetDBString('CSHW0001028'); //資金周報表
ActCsh840.Caption:=GetDBString('CSHW0001029'); //資金月報表
ActCsh850.Caption:=GetDBString('CSHW0001030'); //資金季報表
ActCsh860.Caption:=GetDBString('CSHW0001031'); //資金年報表
ActContents.Caption:=GetDBString('CSHW0001033'); //幫助主題(&H)
ActEmail.Caption:=GetDBString('CSHW0001034'); //寫信給作者(&E)...
ActHomePage.Caption:=GetDBString('CSHW0001035'); //網上浩暉(&P)...
ActAbout.Caption:=GetDBString('CSHW0001036'); //關于浩暉(&A)...
ActReg.Caption:=GetDBString('CSHW0001037'); //軟件注冊(&R)...
ActUpgrade.Caption:=GetDBString('CSHW0001038'); //在線智能升級(&U)...
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -