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