392 lines
9.5 KiB
ObjectPascal
392 lines
9.5 KiB
ObjectPascal
unit U_CW_Money_LL;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||
cxEdit, DB, cxDBData, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||
cxPC, StdCtrls, ComCtrls, ExtCtrls, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||
cxGrid, ToolWin, cxCalendar, cxCurrencyEdit, cxTextEdit, cxLookAndFeels,
|
||
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
|
||
dxSkinsDefaultPainters, dxDateRanges, U_BaseList;
|
||
|
||
type
|
||
TfrmMoney_LL = class(TfrmBaseList)
|
||
ToolBar1: TToolBar;
|
||
TINIT: TToolButton;
|
||
TGLV: TToolButton;
|
||
TADD: TToolButton;
|
||
TUPDATE: TToolButton;
|
||
TDEL: TToolButton;
|
||
TSELECT: TToolButton;
|
||
Texcel: TToolButton;
|
||
TCLOSE: TToolButton;
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
Label4: TLabel;
|
||
Label2: TLabel;
|
||
CRType: TEdit;
|
||
BegDate: TDateTimePicker;
|
||
EndDate: TDateTimePicker;
|
||
CRZY: TEdit;
|
||
cxGrid1: TcxGrid;
|
||
TV1: TcxGridDBTableView;
|
||
V1CRTime: TcxGridDBColumn;
|
||
V1CRType: TcxGridDBColumn;
|
||
V1InMoney: TcxGridDBColumn;
|
||
V1NOTE: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
DataSource1: TDataSource;
|
||
AdoQueryTmp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
CDS_Main: TClientDataSet;
|
||
TZDY: TToolButton;
|
||
cxTabControl1: TcxTabControl;
|
||
V1CRZY: TcxGridDBColumn;
|
||
V1OutMoney: TcxGridDBColumn;
|
||
V1YEMoney: TcxGridDBColumn;
|
||
Label3: TLabel;
|
||
V1Column1: TcxGridDBColumn;
|
||
TofactoryName: TEdit;
|
||
Label5: TLabel;
|
||
V1Column2: TcxGridDBColumn;
|
||
V1Column3: TcxGridDBColumn;
|
||
Label8: TLabel;
|
||
BLID: TEdit;
|
||
V1Column4: TcxGridDBColumn;
|
||
V1Column5: TcxGridDBColumn;
|
||
V1Column8: TcxGridDBColumn;
|
||
V1Column9: TcxGridDBColumn;
|
||
CDS_Bank: TClientDataSet;
|
||
TV1Column1: TcxGridDBColumn;
|
||
TV1Column3: TcxGridDBColumn;
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TCLOSEClick(Sender: TObject);
|
||
procedure TADDClick(Sender: TObject);
|
||
procedure TINITClick(Sender: TObject);
|
||
procedure TGLVClick(Sender: TObject);
|
||
procedure TUPDATEClick(Sender: TObject);
|
||
procedure TSELECTClick(Sender: TObject);
|
||
procedure TexcelClick(Sender: TObject);
|
||
procedure TDELClick(Sender: TObject);
|
||
procedure TZDYClick(Sender: TObject);
|
||
procedure CRTypeChange(Sender: TObject);
|
||
procedure cxTabControl1Change(Sender: TObject);
|
||
private
|
||
FBKID, FBKName: string;
|
||
procedure initGrid();
|
||
procedure SetTab();
|
||
procedure GetCurTab();
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmMoney_LL: TfrmMoney_LL;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun, U_CWLLInput, U_BankList;
|
||
|
||
{$R *.dfm}
|
||
procedure TfrmMoney_LL.GetCurTab();
|
||
begin
|
||
CDS_Bank.Locate('BKName', Trim(cxTabControl1.Tabs.Strings[cxTabControl1.TabIndex]), []);
|
||
FBKID := Trim(CDS_Bank.FieldByName('BKID').AsString);
|
||
FBKName := Trim(CDS_Bank.FieldByName('BKName').AsString);
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.SetTab();
|
||
begin
|
||
cxTabControl1.OnChange := nil;
|
||
|
||
cxTabControl1.Tabs.Clear;
|
||
with ADOQueryTmp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from CW_Bank order by BKXH ');
|
||
open;
|
||
|
||
end;
|
||
SCreateCDS(ADOQueryTmp, CDS_Bank);
|
||
SInitCDSData(ADOQueryTmp, CDS_Bank);
|
||
with CDS_Bank do
|
||
begin
|
||
if not CDS_Bank.isempty then
|
||
begin
|
||
while not eof do
|
||
begin
|
||
cxTabControl1.Tabs.Add(trim(fieldbyname('BKName').AsString));
|
||
next;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
if cxTabControl1.Tabs.Count < 1 then
|
||
cxTabControl1.Tabs.Add('<27><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>');
|
||
// cxTabControl1.TabIndex:=0;
|
||
cxTabControl1.OnChange := cxTabControl1Change;
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.InitGrid();
|
||
begin
|
||
if Trim(cxTabControl1.Tabs.Strings[cxTabControl1.TabIndex]) = '' then
|
||
Exit;
|
||
|
||
GetCurTab();
|
||
with AdoQueryTmp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,YEMoney=dbo.F_CWLS_Get_Ye(A.BLID,A.CRTime,A.BKID) ');
|
||
sql.Add('from CW_Bank_LS A ');
|
||
sql.Add('where CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
|
||
sql.Add('and CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
|
||
|
||
sql.Add('and BKID=' + quotedstr(Trim(FBKID)));
|
||
SQL.Add('order by A.CRTime,BLID');
|
||
open;
|
||
|
||
end;
|
||
SCreateCDS(ADOQueryTmp, CDS_Main);
|
||
SInitCDSData(ADOQueryTmp, CDS_Main);
|
||
CDS_Main.Last;
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.FormCreate(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
cxgrid1.Align := alclient;
|
||
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.FormShow(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
ReadCxGrid(self.Caption + tv1.Name, Tv1);
|
||
enddate.datetime := SGetServerDateTime(ADOQueryTmp);
|
||
begdate.datetime := strtodate(formatdateTime('yyyy-MM', enddate.DateTime) + '-01');
|
||
SetTab();
|
||
cxTabControl1.Refresh;
|
||
initGrid();
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.FormDestroy(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
frmMoney_LL := nil;
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
writeCxGrid(self.Caption + tv1.Name, Tv1);
|
||
Action := cafree;
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.TCLOSEClick(Sender: TObject);
|
||
begin
|
||
close;
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.TADDClick(Sender: TObject);
|
||
begin
|
||
GetCurTab();
|
||
try
|
||
frmCWLLInput := TfrmCWLLInput.Create(Application);
|
||
with frmCWLLInput do
|
||
begin
|
||
BKName.TxtCode := FBKID;
|
||
BKName.text := FBKName;
|
||
Fkeyno := '';
|
||
if ShowModal = 1 then
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
end;
|
||
finally
|
||
frmCWLLInput.free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.TINITClick(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.TGLVClick(Sender: TObject);
|
||
begin
|
||
SDofilter(AdoQueryTmp, SGetFilters(Panel1, 1, 0));
|
||
SCreateCDS(AdoQueryTmp, CDS_Main);
|
||
SInitCDSData(AdoQueryTmp, CDS_Main);
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.TUPDATEClick(Sender: TObject);
|
||
begin
|
||
if CDS_Main.IsEmpty then
|
||
Exit;
|
||
if Trim(CDS_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||
begin
|
||
application.messagebox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
|
||
if Trim(CDS_Main.fieldbyname('fromBLID').AsString) <> '' then
|
||
begin
|
||
application.messagebox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
if Trim(CDS_Main.fieldbyname('fromCWID').AsString) <> '' then
|
||
begin
|
||
application.messagebox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
|
||
try
|
||
frmCWLLInput := TfrmCWLLInput.Create(Application);
|
||
with frmCWLLInput do
|
||
begin
|
||
FStatus := '<27><EFBFBD>';
|
||
Fkeyno := trim(Self.CDS_Main.fieldbyname('BLID').asstring);
|
||
if ShowModal = 1 then
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
end;
|
||
finally
|
||
frmCWLLInput.free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.TSELECTClick(Sender: TObject);
|
||
begin
|
||
if CDS_Main.IsEmpty then
|
||
Exit;
|
||
try
|
||
frmCWLLInput := TfrmCWLLInput.Create(Application);
|
||
with frmCWLLInput do
|
||
begin
|
||
Fkeyno := trim(Self.CDS_Main.fieldbyname('BLID').asstring);
|
||
TSave.Visible := False;
|
||
panel1.Enabled := False;
|
||
if ShowModal = 1 then
|
||
begin
|
||
// InitGrid();
|
||
end;
|
||
end;
|
||
finally
|
||
;
|
||
frmCWLLInput.free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.TexcelClick(Sender: TObject);
|
||
begin
|
||
if CDS_Main.IsEmpty then
|
||
Exit;
|
||
TcxGridToExcel(Trim(cxTabControl1.Tabs.Strings[cxTabControl1.TabIndex]), cxGrid1);
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.TDELClick(Sender: TObject);
|
||
var
|
||
FBLID: string;
|
||
begin
|
||
if CDS_Main.IsEmpty then
|
||
exit;
|
||
|
||
FBLID := trim(CDS_Main.fieldbyname('BLID').AsString);
|
||
if CDS_Main.fieldbyname('fromBLID').AsString <> '' then
|
||
begin
|
||
application.messagebox('<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB>ɾ<EFBFBD><C9BE>!', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
if Trim(CDS_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||
begin
|
||
application.messagebox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
if Trim(CDS_Main.fieldbyname('fromCWID').AsString) <> '' then
|
||
begin
|
||
application.messagebox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
if application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 1) = 2 then
|
||
exit;
|
||
try
|
||
ADOQuerycmd.Connection.BeginTrans;
|
||
with ADOQuerycmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('delete from CW_Bank_LS where BLID=''' + FBLID + '''');
|
||
sql.Add('delete from CW_Bank_LS where fromBLID=''' + FBLID + '''');
|
||
sql.Add('delete from CW_Money_CR where ISNULL(FromDataID1,''<27><>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>ɾ'')=''' + FBLID + '''');
|
||
execsql;
|
||
end;
|
||
ADOQuerycmd.Connection.CommitTrans;
|
||
|
||
with AdoQueryTmp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select A.BLID from CW_Bank_LS A');
|
||
sql.Add('where ISNULL(fromBLID,'''')<>'''' ');
|
||
sql.Add('and not exists(select X.BLID from CW_Bank_LS X WHERE X.BLID=A.fromBLID)');
|
||
open;
|
||
|
||
end;
|
||
if AdoQueryTmp.IsEmpty = False then
|
||
begin
|
||
Application.MessageBox('<27><>ˮ<EFBFBD><CBAE><EFBFBD><EFBFBD><EFBFBD>쳣!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
|
||
initGrid();
|
||
except
|
||
ADOQuerycmd.connection.rollbackTrans;
|
||
application.messagebox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ʧ<EFBFBD><CAA7>', '<27><>ʾ', 0);
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.TZDYClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmBankList := TfrmBankList.Create(self);
|
||
with frmBankList do
|
||
begin
|
||
if showmodal = 1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmBankList.Free;
|
||
end;
|
||
SetTab();
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.CRTypeChange(Sender: TObject);
|
||
begin
|
||
SDofilter(AdoQueryTmp, SGetFilters(Panel1, 1, 0));
|
||
SCreateCDS(AdoQueryTmp, CDS_Main);
|
||
SInitCDSData(AdoQueryTmp, CDS_Main);
|
||
end;
|
||
|
||
procedure TfrmMoney_LL.cxTabControl1Change(Sender: TObject);
|
||
begin
|
||
initGrid();
|
||
end;
|
||
|
||
end.
|
||
|