hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '9abf05a513'
${ noResults }
DONGSHENG6/集团报表/u_rp_no_total_com.pas

1071 lines
36 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_rp_no_total_com;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, ExtCtrls, ComCtrls, bsSkinTabs, DB, ADODB,
dxExEdtr, dxDBTLCl, dxGrClms, dxDBGrid, dxTL, dxDBCtrl, dxCntner, Menus,
StdCtrls, Grids, DBGrids, kbmMemTable, wwdbdatetimepicker, RxLookup;
type
Tfrm_rp_no_total_com = class(TForm)
Panel1: TPanel;
bsSkinPanel2: TbsSkinPanel;
bsSkinButton10: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
p_total: TADOStoredProc;
p_total1: TDataSource;
p_total_client1: TDataSource;
p_total_client: TADOStoredProc;
p_total_sales: TADOStoredProc;
p_total_sales1: TDataSource;
SaveDialog: TSaveDialog;
bsSkinPageControl4: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGridMaskColumn95: TdxDBGridMaskColumn;
dxDBGrid1Column23: TdxDBGridColumn;
dxDBGridColumn17: TdxDBGridColumn;
dxDBGridColumn18: TdxDBGridColumn;
dxDBGridColumn19: TdxDBGridColumn;
dxDBGridColumn20: TdxDBGridColumn;
dxDBGridColumn21: TdxDBGridColumn;
dxDBGridColumn22: TdxDBGridColumn;
dxDBGridColumn23: TdxDBGridColumn;
dxDBGridColumn24: TdxDBGridColumn;
dxDBGridColumn25: TdxDBGridColumn;
dxDBGridColumn26: TdxDBGridColumn;
dxDBGridColumn27: TdxDBGridColumn;
dxDBGridColumn28: TdxDBGridColumn;
dxDBGridColumn29: TdxDBGridColumn;
dxDBGridColumn30: TdxDBGridColumn;
dxDBGridColumn31: TdxDBGridColumn;
dxDBGridColumn32: TdxDBGridColumn;
dxDBGridColumn33: TdxDBGridColumn;
dxDBGridColumn34: TdxDBGridColumn;
dxDBGridColumn35: TdxDBGridColumn;
dxDBGridColumn36: TdxDBGridColumn;
dxDBGridColumn37: TdxDBGridColumn;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn96: TdxDBGridMaskColumn;
dxDBGrid2Column23: TdxDBGridColumn;
dxDBGridColumn38: TdxDBGridColumn;
dxDBGridColumn39: TdxDBGridColumn;
dxDBGridColumn40: TdxDBGridColumn;
dxDBGridColumn41: TdxDBGridColumn;
dxDBGridColumn42: TdxDBGridColumn;
dxDBGridColumn43: TdxDBGridColumn;
dxDBGridColumn44: TdxDBGridColumn;
dxDBGridColumn45: TdxDBGridColumn;
dxDBGridColumn46: TdxDBGridColumn;
dxDBGridColumn47: TdxDBGridColumn;
dxDBGridColumn48: TdxDBGridColumn;
dxDBGridColumn49: TdxDBGridColumn;
dxDBGridColumn50: TdxDBGridColumn;
dxDBGridColumn51: TdxDBGridColumn;
dxDBGridColumn52: TdxDBGridColumn;
dxDBGridColumn53: TdxDBGridColumn;
dxDBGridColumn54: TdxDBGridColumn;
dxDBGridColumn55: TdxDBGridColumn;
dxDBGridColumn56: TdxDBGridColumn;
dxDBGridColumn57: TdxDBGridColumn;
dxDBGridColumn58: TdxDBGridColumn;
bsSkinTabSheet4: TbsSkinTabSheet;
bsSkinTabSheet5: TbsSkinTabSheet;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinTabSheet7: TbsSkinTabSheet;
p_accept_bill1: TDataSource;
p_accept_fee: TADOStoredProc;
p_accept_fee1: TDataSource;
p_pay_bill: TADOStoredProc;
p_pay_bill1: TDataSource;
p_pay_fee: TADOStoredProc;
p_pay_fee1: TDataSource;
dxDBGrid4: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column54: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
dxDBGrid1Column10: TdxDBGridColumn;
dxDBGrid1Column61: TdxDBGridColumn;
dxDBGrid5: TdxDBGrid;
dxDBGrid3Column1: TdxDBGridMaskColumn;
dxDBGrid3Column2: TdxDBGridMaskColumn;
dxDBGrid3Column3: TdxDBGridMaskColumn;
dxDBGrid3Column4: TdxDBGridMaskColumn;
dxDBGrid3Column5: TdxDBGridMaskColumn;
dxDBGrid3Column6: TdxDBGridMaskColumn;
dxDBGrid3Column7: TdxDBGridMaskColumn;
dxDBGrid3Column8: TdxDBGridColumn;
dxDBGrid3Column9: TdxDBGridColumn;
dxDBGrid3Column10: TdxDBGridColumn;
dxDBGrid3Column11: TdxDBGridDateColumn;
dxDBGrid3Column59: TdxDBGridColumn;
dxDBGrid3Column12: TdxDBGridMaskColumn;
dxDBGrid3Column13: TdxDBGridMaskColumn;
dxDBGrid3Column15: TdxDBGridMaskColumn;
dxDBGrid3Column16: TdxDBGridMaskColumn;
dxDBGrid3Column18: TdxDBGridMaskColumn;
dxDBGrid3Column17: TdxDBGridMaskColumn;
dxDBGrid3Column19: TdxDBGridDateColumn;
dxDBGrid3Column20: TdxDBGridMaskColumn;
dxDBGrid3Column21: TdxDBGridMaskColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGrid3Column23: TdxDBGridMaskColumn;
dxDBGrid3Column24: TdxDBGridMaskColumn;
dxDBGrid3Column25: TdxDBGridColumn;
dxDBGrid3Column26: TdxDBGridColumn;
dxDBGrid31: TdxDBGridMaskColumn;
dxDBGrid32: TdxDBGridMaskColumn;
dxDBGrid33: TdxDBGridMaskColumn;
dxDBGrid34: TdxDBGridMaskColumn;
dxDBGrid35: TdxDBGridMaskColumn;
dxDBGrid36: TdxDBGridMaskColumn;
dxDBGrid37: TdxDBGridMaskColumn;
dxDBGrid38: TdxDBGridMaskColumn;
dxDBGrid39: TdxDBGridMaskColumn;
dxDBGrid310: TdxDBGridMaskColumn;
dxDBGrid3Column47: TdxDBGridMaskColumn;
dxDBGrid3TEU: TdxDBGridMaskColumn;
dxDBGrid3Column49: TdxDBGridMaskColumn;
dxDBGrid3Column50: TdxDBGridMaskColumn;
dxDBGrid3Column51: TdxDBGridMaskColumn;
dxDBGrid3Column52: TdxDBGridMaskColumn;
dxDBGrid3Column53: TdxDBGridMaskColumn;
dxDBGrid3Column54: TdxDBGridMaskColumn;
dxDBGrid3Column55: TdxDBGridMaskColumn;
dxDBGrid3Column56: TdxDBGridMaskColumn;
dxDBGrid3Column57: TdxDBGridColumn;
dxDBGrid3Column58: TdxDBGridColumn;
dxDBGrid3Column60: TdxDBGridColumn;
dxDBGrid3Column61: TdxDBGridColumn;
dxDBGrid3Column62: TdxDBGridColumn;
dxDBGrid3Column63: TdxDBGridColumn;
dxDBGrid3Column64: TdxDBGridColumn;
dxDBGrid3Column65: TdxDBGridColumn;
dxDBGrid6: TdxDBGrid;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridColumn5: TdxDBGridColumn;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGridColumn8: TdxDBGridColumn;
dxDBGridColumn9: TdxDBGridColumn;
dxDBGridColumn10: TdxDBGridColumn;
dxDBGridColumn11: TdxDBGridColumn;
dxDBGridColumn80: TdxDBGridColumn;
dxDBGridColumn81: TdxDBGridColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridColumn82: TdxDBGridColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
dxDBGridColumn83: TdxDBGridColumn;
dxDBGridColumn84: TdxDBGridColumn;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
dxDBGridColumn85: TdxDBGridColumn;
dxDBGridColumn86: TdxDBGridColumn;
dxDBGridColumn87: TdxDBGridColumn;
dxDBGridColumn88: TdxDBGridColumn;
dxDBGrid7: TdxDBGrid;
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
dxDBGridColumn12: TdxDBGridColumn;
dxDBGridColumn13: TdxDBGridColumn;
dxDBGridColumn14: TdxDBGridColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGrid5Column58: TdxDBGridColumn;
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridMaskColumn60: TdxDBGridMaskColumn;
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
dxDBGridColumn15: TdxDBGridColumn;
dxDBGridColumn16: TdxDBGridColumn;
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
dxDBGridMaskColumn85: TdxDBGridMaskColumn;
dxDBGridMaskColumn86: TdxDBGridMaskColumn;
dxDBGridMaskColumn87: TdxDBGridMaskColumn;
dxDBGridMaskColumn88: TdxDBGridMaskColumn;
dxDBGridMaskColumn89: TdxDBGridMaskColumn;
dxDBGridMaskColumn90: TdxDBGridMaskColumn;
dxDBGridMaskColumn91: TdxDBGridMaskColumn;
dxDBGridMaskColumn92: TdxDBGridMaskColumn;
dxDBGridMaskColumn93: TdxDBGridMaskColumn;
dxDBGridMaskColumn94: TdxDBGridMaskColumn;
dxDBGrid5Column56: TdxDBGridColumn;
dxDBGrid5Column57: TdxDBGridColumn;
dxDBGrid5Column49: TdxDBGridColumn;
dxDBGrid5Column50: TdxDBGridColumn;
dxDBGrid5Column51: TdxDBGridColumn;
dxDBGrid5Column52: TdxDBGridColumn;
dxDBGrid5Column53: TdxDBGridColumn;
dxDBGrid5Column54: TdxDBGridColumn;
dxDBGrid5Column55: TdxDBGridColumn;
dxDBGrid6Column55: TdxDBGridColumn;
dxDBGrid7Column55: TdxDBGridColumn;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
dxDBGrid5Column59: TdxDBGridColumn;
dxDBGrid6Column56: TdxDBGridColumn;
dxDBGrid7Column56: TdxDBGridColumn;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
dxDBGrid5Column60: TdxDBGridColumn;
dxDBGrid5Column61: TdxDBGridColumn;
dxDBGrid6Column57: TdxDBGridColumn;
dxDBGrid6Column58: TdxDBGridColumn;
dxDBGrid7Column57: TdxDBGridColumn;
dxDBGrid7Column58: TdxDBGridColumn;
dxDBGrid5Column62: TdxDBGridColumn;
dxDBGrid6Column59: TdxDBGridColumn;
dxDBGrid7Column59: TdxDBGridColumn;
dxDBGrid5Column63: TdxDBGridColumn;
dxDBGrid6Column60: TdxDBGridColumn;
dxDBGrid7Column60: TdxDBGridColumn;
dxDBGrid5Column64: TdxDBGridColumn;
dxDBGrid6Column61: TdxDBGridColumn;
dxDBGrid7Column61: TdxDBGridColumn;
p_accept_bill: TADOQuery;
p_accept_billDSDesigner: TStringField;
p_accept_billDSDesigner2: TStringField;
p_accept_billUSD: TBCDField;
p_accept_billUSD2: TBCDField;
p_accept_billUSD3: TBCDField;
p_accept_billRMB: TBCDField;
p_accept_billRMB2: TBCDField;
p_accept_billRMB3: TBCDField;
p_accept_billDSDesigner3: TBCDField;
p_accept_billDSDesigner4: TBCDField;
p_accept_billDSDesigner5: TBCDField;
p_accept_billDSDesigner6: TStringField;
p_accept_billDSDesigner7: TDateTimeField;
p_accept_billDSDesigner8: TStringField;
p_accept_billDSDesigner9: TStringField;
p_accept_billDSDesigner10: TStringField;
p_accept_billDSDesigner11: TStringField;
p_accept_billDSDesigner12: TStringField;
p_accept_billDSDesigner13: TStringField;
p_accept_billDSDesigner14: TStringField;
p_accept_billDSDesigner15: TStringField;
p_accept_billDSDesigner16: TStringField;
p_accept_billDSDesigner17: TStringField;
p_accept_billDSDesigner18: TStringField;
p_accept_billDSDesigner19: TStringField;
p_accept_billDSDesigner20: TStringField;
p_accept_billDSDesigner21: TDateTimeField;
p_accept_billDSDesigner22: TStringField;
p_accept_billDSDesigner23: TStringField;
p_accept_billDSDesigner24: TStringField;
p_accept_billDSDesigner25: TIntegerField;
p_accept_billDSDesigner26: TBCDField;
p_accept_billDSDesigner27: TBCDField;
p_accept_billDSDesigner1: TIntegerField;
p_accept_billDSDesigner28: TIntegerField;
p_accept_billDSDesigner32: TIntegerField;
p_accept_billDSDesigner42: TIntegerField;
p_accept_billDSDesigner52: TIntegerField;
p_accept_billDSDesigner62: TIntegerField;
p_accept_billDSDesigner72: TIntegerField;
p_accept_billDSDesigner82: TIntegerField;
p_accept_billDSDesigner92: TIntegerField;
p_accept_billDSDesigner102: TIntegerField;
p_accept_billDSDesigner29: TIntegerField;
p_accept_billTEU: TIntegerField;
p_accept_billDSDesigner30: TStringField;
p_accept_billDSDesigner31: TStringField;
p_accept_billDSDesigner33: TStringField;
p_accept_billDSDesigner34: TStringField;
p_accept_billDSDesigner35: TStringField;
p_accept_billDSDesigner36: TStringField;
p_accept_billDSDesigner37: TStringField;
p_accept_billDSDesigner38: TStringField;
p_accept_billDSDesigner39: TStringField;
p_accept_billDSDesigner40: TStringField;
p_accept_billDSDesigner41: TStringField;
p_accept_billDSDesigner43: TStringField;
p_accept_billDSDesigner44: TStringField;
p_accept_billDSDesigner45: TIntegerField;
p_accept_billDSDesigner46: TIntegerField;
p_accept_billDSDesigner47: TBCDField;
ADOQueryINV: TADOQuery;
ADOQueryINVDSDesigner: TStringField;
ADOQueryINVDSDesigner2: TStringField;
ADOQueryINVUSD: TStringField;
ADOQueryINVusd2: TBCDField;
ADOQueryINVRMB: TStringField;
ADOQueryINVRMB2: TBCDField;
memtblDetail: TkbmMemTable;
p_accept_billUSD4: TStringField;
p_accept_billUSD5: TFloatField;
p_accept_billRMB4: TStringField;
p_accept_billRMB5: TFloatField;
p_accept_billField: TIntegerField;
dxDBGrid5Column65: TdxDBGridColumn;
dxDBGrid6Column62: TdxDBGridColumn;
p_accept_billField2: TStringField;
dxDBGrid6Column63: TdxDBGridColumn;
p_accept_billField3: TStringField;
dxDBGrid5Column66: TdxDBGridColumn;
dxDBGrid5Column67: TdxDBGridColumn;
dxDBGrid7Column62: TdxDBGridColumn;
dxDBGrid7Column63: TdxDBGridColumn;
dxDBGrid5Column68: TdxDBGridColumn;
dxDBGrid5Column69: TdxDBGridColumn;
dxDBGrid5Column70: TdxDBGridColumn;
dxDBGrid5Column71: TdxDBGridColumn;
dxDBGrid7Column64: TdxDBGridColumn;
dxDBGrid7Column65: TdxDBGridColumn;
dxDBGrid7Column66: TdxDBGridColumn;
dxDBGrid7Column67: TdxDBGridColumn;
dxDBGrid5Column72: TdxDBGridColumn;
bsSkinPanel1: TbsSkinPanel;
Label13: TLabel;
RxDBLookupCombo5: TRxDBLookupCombo;
Label40: TLabel;
RxDBLookupCombo15: TRxDBLookupCombo;
Label10: TLabel;
Label5: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBDateTimePicker2: TwwDBDateTimePicker;
ADOQuerySelect: TADOQuery;
dbsub: TADOConnection;
dxDBGrid4Column9: TdxDBGridColumn;
dxDBGrid4Column10: TdxDBGridColumn;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Panel1Resize(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid3ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid5DblClick(Sender: TObject);
procedure dxDBGrid6DblClick(Sender: TObject);
procedure dxDBGrid7DblClick(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure p_totalAfterOpen(DataSet: TDataSet);
procedure dxDBGrid4ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid5ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid6ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid7ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure bsSkinPageControl4Change(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure dxDBGrid5Column61CustomDraw(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 dxDBGrid6Column58CustomDraw(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 dxDBGrid7Column58CustomDraw(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 bsSkinButton10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure GetNoFee_items(ADOQuerySelect:TAdoquery);
procedure Creatememtbl;
end;
var
frm_rp_no_total_com: Tfrm_rp_no_total_com;
implementation
uses u_main,my_sys_function, u_data_share, u_sys_progress;
{$R *.dfm}
procedure Tfrm_rp_no_total_com.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_rp_no_total_com.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption+'1');
savereggrid(dxdbgrid2,caption+'2');
savereggrid(dxdbgrid4,caption+'4');
savereggrid(dxdbgrid5,caption+'5');
savereggrid(dxdbgrid6,caption+'6');
savereggrid(dxdbgrid7,caption+'7');
frm_rp_no_total_com.Hide;
frm_rp_no_total_com.ManualFloat(frm_rp_no_total_com.BoundsRect );
frm_main.freeTabs('frm_rp_no_total_com');
action:=cafree;
frm_rp_no_total_com:=nil;
end;
procedure Tfrm_rp_no_total_com.Panel1Resize(Sender: TObject);
var
i:integer;
begin
i:=round(bsSkinPanel2.Width/10);
bsSkinCheckRadioBox1.Width:=i;
bsSkinCheckRadioBox2.Width:=i;
bsSkinCheckRadioBox3.Width:=i;
bsSkinCheckRadioBox4.Width:=i;
bsSkinCheckRadioBox5.Width:=i;
bsSkinCheckRadioBox6.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton1.Width:=i;
end;
procedure Tfrm_rp_no_total_com.bsSkinButton1Click(Sender: TObject);
begin
with SaveDialog do
begin
DefaultExt :='xls';
Filter := '(*.xls)|*.xls';
if Execute then
begin
if bsSkinTabSheet1.Showing then
dxDBGrid1.SaveToXLS(FileName,true)
else if bsSkinTabSheet2.Showing then
dxDBGrid2.SaveToXLS(FileName,true)
else if bsSkinTabSheet4.Showing then
dxDBGrid4.SaveToXLS(FileName,true)
else if bsSkinTabSheet5.Showing then
dxDBGrid5.SaveToXLS(FileName,true)
else if bsSkinTabSheet6.Showing then
dxDBGrid6.SaveToXLS(FileName,true)
else if bsSkinTabSheet7.Showing then
dxDBGrid7.SaveToXLS(FileName,true);
end;
end;
end;
procedure Tfrm_rp_no_total_com.bsSkinButton9Click(Sender: TObject);
begin
sys_print('Ƿ<><C7B7><EFBFBD>ۺϷ<DBBA><CFB7><EFBFBD>',2,nil,nil,nil,nil,p_accept_bill1,p_accept_fee1,p_pay_bill1,p_pay_fee1,p_total_client1,p_total_sales1,p_total1);
end;
procedure Tfrm_rp_no_total_com.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_total_client,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_no_total_com.dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_total_sales,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_no_total_com.dxDBGrid3ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_total,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_no_total_com.dxDBGrid5DblClick(Sender: TObject);
begin
fee_view(p_accept_fee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_rp_no_total_com.dxDBGrid6DblClick(Sender: TObject);
begin
fee_view(p_pay_bill.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_rp_no_total_com.dxDBGrid7DblClick(Sender: TObject);
begin
fee_view(p_pay_fee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_rp_no_total_com.N10Click(Sender: TObject);
begin
if bsSkinTabSheet1.showing then
begin
update_grid_view_no(dxdbgrid1);
exit;
end;
if bsSkinTabSheet2.showing then
begin
update_grid_view_no(dxdbgrid2);
exit;
end;
if bsSkinTabSheet4.showing then
begin
update_grid_view_no(dxdbgrid4);
exit;
end;
if bsSkinTabSheet5.showing then
begin
update_grid_view_no(dxdbgrid5);
exit;
end;
if bsSkinTabSheet6.showing then
begin
update_grid_view_no(dxdbgrid6);
exit;
end;
if bsSkinTabSheet7.showing then
begin
update_grid_view_no(dxdbgrid7);
exit;
end;
end;
procedure Tfrm_rp_no_total_com.N14Click(Sender: TObject);
begin
if bsSkinTabSheet1.showing then
begin
update_grid_view_all(dxdbgrid1);
exit;
end;
if bsSkinTabSheet2.showing then
begin
update_grid_view_all(dxdbgrid2);
exit;
end;
if bsSkinTabSheet4.showing then
begin
update_grid_view_all(dxdbgrid4);
exit;
end;
if bsSkinTabSheet5.showing then
begin
update_grid_view_all(dxdbgrid5);
exit;
end;
if bsSkinTabSheet6.showing then
begin
update_grid_view_all(dxdbgrid6);
exit;
end;
if bsSkinTabSheet7.showing then
begin
update_grid_view_all(dxdbgrid7);
exit;
end;
end;
procedure Tfrm_rp_no_total_com.N12Click(Sender: TObject);
begin
if bsSkinTabSheet1.showing then
begin
update_grid(dxdbgrid1,123);
exit;
end;
if bsSkinTabSheet2.showing then
begin
update_grid(dxdbgrid2,124);
exit;
end;
if bsSkinTabSheet4.showing then
begin
update_grid(dxdbgrid4,126);
exit;
end;
if bsSkinTabSheet5.showing then
begin
update_grid(dxdbgrid5,127);
exit;
end;
if bsSkinTabSheet6.showing then
begin
update_grid(dxdbgrid6,128);
exit;
end;
if bsSkinTabSheet7.showing then
begin
update_grid(dxdbgrid7,129);
exit;
end;
end;
procedure Tfrm_rp_no_total_com.N16Click(Sender: TObject);
begin
if bsSkinTabSheet1.showing then
begin
grid_save_xls(dxdbgrid1);
exit;
end;
if bsSkinTabSheet2.showing then
begin
grid_save_xls(dxdbgrid2);
exit;
end;
if bsSkinTabSheet4.showing then
begin
grid_save_xls(dxdbgrid4);
exit;
end;
if bsSkinTabSheet5.showing then
begin
grid_save_xls(dxdbgrid5);
exit;
end;
if bsSkinTabSheet6.showing then
begin
grid_save_xls(dxdbgrid6);
exit;
end;
if bsSkinTabSheet7.showing then
begin
grid_save_xls(dxdbgrid7);
exit;
end;
end;
procedure Tfrm_rp_no_total_com.FormShow(Sender: TObject);
begin
wwDBDateTimePicker1.Date:=Date;
wwDBDateTimePicker2.Date:=Date;
loadreggrid(dxdbgrid1,true,caption+'1');
loadreggrid(dxdbgrid2,true,caption+'2');
loadreggrid(dxdbgrid4,true,caption+'4');
loadreggrid(dxdbgrid5,true,caption+'5');
loadreggrid(dxdbgrid6,true,caption+'6');
loadreggrid(dxdbgrid7,true,caption+'7');
bsSkinTabSheet4.TabVisible:=EmpDr;
bsSkinTabSheet5.TabVisible:=EmpDr;
bsSkinTabSheet6.TabVisible:=EmpCr;
bsSkinTabSheet7.TabVisible:=EmpCr;
bsSkinTabSheet1.TabVisible:=EmpProfit;
bsSkinTabSheet2.TabVisible:=EmpProfit;
bsSkinTabSheet4.TabVisible:=True;
bsSkinTabSheet5.TabVisible:=False;
bsSkinTabSheet6.TabVisible:=False;
bsSkinTabSheet7.TabVisible:=False;
bsSkinTabSheet1.TabVisible:=False;
bsSkinTabSheet2.TabVisible:=False;
end;
procedure Tfrm_rp_no_total_com.p_totalAfterOpen(DataSet: TDataSet);
begin
AdoFormatdxDBGrid(DataSet);
end;
procedure Tfrm_rp_no_total_com.dxDBGrid4ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,p_accept_bill,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_no_total_com.dxDBGrid5ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_accept_fee,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_no_total_com.dxDBGrid6ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_pay_bill,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_no_total_com.dxDBGrid7ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_pay_fee,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_no_total_com.bsSkinPageControl4Change(Sender: TObject);
begin
// bsSkinPageControl4.Refresh;
end;
procedure Tfrm_rp_no_total_com.N3Click(Sender: TObject);
begin
if bsSkinTabSheet1.showing then
begin
dxdbgrid1.FullExpand;
exit;
end;
if bsSkinTabSheet2.showing then
begin
dxdbgrid2.FullExpand;
exit;
end;
if bsSkinTabSheet4.showing then
begin
dxdbgrid4.FullExpand;
exit;
end;
if bsSkinTabSheet5.showing then
begin
dxdbgrid5.FullExpand;
exit;
end;
if bsSkinTabSheet6.showing then
begin
dxdbgrid6.FullExpand;
exit;
end;
if bsSkinTabSheet7.showing then
begin
dxdbgrid7.FullExpand;
exit;
end;
end;
procedure Tfrm_rp_no_total_com.N4Click(Sender: TObject);
begin
if bsSkinTabSheet1.showing then
begin
dxdbgrid1.FullCollapse;
exit;
end;
if bsSkinTabSheet2.showing then
begin
dxdbgrid2.FullCollapse;
exit;
end;
if bsSkinTabSheet4.showing then
begin
dxdbgrid4.FullCollapse;
exit;
end;
if bsSkinTabSheet5.showing then
begin
dxdbgrid5.FullCollapse;
exit;
end;
if bsSkinTabSheet6.showing then
begin
dxdbgrid6.FullCollapse;
exit;
end;
if bsSkinTabSheet7.showing then
begin
dxdbgrid7.FullCollapse;
exit;
end;
end;
procedure Tfrm_rp_no_total_com.dxDBGrid5Column61CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid5Column61.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_rp_no_total_com.dxDBGrid6Column58CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid6Column58.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_rp_no_total_com.dxDBGrid7Column58CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid7Column58.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_rp_no_total_com.Creatememtbl;
var
aDate,aToDate:TDate;
sDate,aYear,aMonth:String;
aColumn:TdxDBTreeListColumn;
aBand:TdxTreeListBand;
i:integer;
begin
memtblDetail.Close;
memtblDetail.EmptyTable;
memtblDetail.Fields.Clear;
memtblDetail.FieldDefs.Clear;
memtblDetail.FieldDefs.Add('<27><><EFBFBD><EFBFBD>', ftString, 20, false);
memtblDetail.FieldDefs.Add('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>', ftString, 20, false);
memtblDetail.FieldDefs.Add('ί<>б<EFBFBD><D0B1><EFBFBD>', ftString, 20, false);
memtblDetail.FieldDefs.Add('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>', ftString, 20, false);
memtblDetail.FieldDefs.Add('δ<><CEB4>RMB',ftFloat, 0, false);
memtblDetail.FieldDefs.Add('δ<><CEB4>USD',ftFloat, 0, false);
memtblDetail.FieldDefs.Add('δ<><CEB4>USD<53>ϼ<EFBFBD>',ftFloat, 0, false);
memtblDetail.FieldDefs.Add('δ<>պϼ<D5BA>',ftFloat, 0, false);
memtblDetail.FieldDefs.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', ftString, 20, false);
memtblDetail.FieldDefs.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', ftString, 20, false);
memtblDetail.FieldDefs.Add('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>', ftString, 20, false);
memtblDetail.CreateTable;
memtblDetail.Open;
end;
procedure Tfrm_rp_no_total_com.GetNoFee_items(ADOQuerySelect:TAdoquery);
var
aDate,aToDate:TDate;
strdate,stredate,sDate:String;
i:integer;
// S:TChartSeries;
begin
try
memtblDetail.DisableControls;
with ADOQuerySelect do begin
aDate:=wwDBDateTimePicker1.Date;
aToDate:=wwDBDateTimePicker2.Date;
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(application);
frm_sys_progress.Show;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
stredate:=FormatDateTime('YYYY-MM-DD',aDate);
strdate:=FormatDateTime('YYYY-MM-DD',aToDate);
CLOSE;
SQL.Clear;
SQL.Add('Select t_ch_fee.<2E><><EFBFBD><EFBFBD>,t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> ');
SQL.Add(',v_op_bscard_all.ί<>б<EFBFBD><D0B1><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
SQL.Add(',sum(case t_ch_fee.<2E><><EFBFBD><EFBFBD> when ''<27><>'' then (case t_ch_fee.<2E>ұ<EFBFBD> when ''USD'' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) else 0 end) as δ<><CEB4>USD');
SQL.Add(',sum(case t_ch_fee.<2E><><EFBFBD><EFBFBD> when ''<27><>'' then (case t_ch_fee.<2E>ұ<EFBFBD> when ''RMB'' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) else 0 end) as δ<><CEB4>RMB');
SQL.Add(',sum(case t_ch_fee.<2E><><EFBFBD><EFBFBD> when ''<27><>'' then (case t_ch_fee.<2E>ұ<EFBFBD> when ''USD'' then (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) else 0 end) as δ<><CEB4>USD<53>ϼ<EFBFBD>');
SQL.Add(',sum(case t_ch_fee.<2E><><EFBFBD><EFBFBD> when ''<27><>'' then (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as δ<>պϼ<D5BA>');
SQL.Add('from t_ch_fee');
SQL.Add('Left join v_op_bscard_all on t_ch_fee.<2E><><EFBFBD><EFBFBD>=v_op_bscard_all.<2E><><EFBFBD><EFBFBD>');
SQL.Add('where t_ch_fee.<2E><><EFBFBD><EFBFBD><>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> and t_ch_fee.<2E><><EFBFBD><EFBFBD><>0 and t_ch_fee.<2E><><EFBFBD><EFBFBD>=''<27><>''');
SQL.Add('and v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+stredate+''' and v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='''+strdate+'''');
if RxDBLookupCombo5.DisplayValues[1]<>'' then
SQL.Add(' and t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+RxDBLookupCombo5.DisplayValues[1]+'''');
SQL.Add('Group by t_ch_fee.<2E><><EFBFBD><EFBFBD>,t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
SQL.Add(',v_op_bscard_all.ί<>б<EFBFBD><D0B1><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
Open;First;
if not ADOQuerySelect.IsEmpty then
frm_sys_progress.bsSkinGauge1.MaxValue:=ADOQuerySelect.RecordCount
else frm_sys_progress.bsSkinGauge1.MaxValue:=1;
while not eof do begin
memtblDetail.Insert;
memtblDetail.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldbyName('<27><><EFBFBD><EFBFBD>').AsString;
memtblDetail.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString:=FieldbyName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
memtblDetail.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=FieldbyName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
memtblDetail.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=FieldbyName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
memtblDetail.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=FormatDateTime('YYYY-MM-DD',FieldbyName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
memtblDetail.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=FieldbyName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
memtblDetail.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString:=FieldbyName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString;
memtblDetail.FieldByName('δ<><CEB4>USD').AsString:=FormatFloat('0.00;-0.00;0',FieldbyName('δ<><CEB4>USD').AsFloat);
memtblDetail.FieldByName('δ<><CEB4>USD').AsString:=FormatFloat('0.00;-0.00;0',FieldbyName('δ<><CEB4>USD').AsFloat);
memtblDetail.FieldByName('δ<><CEB4>RMB').AsString:=FormatFloat('0.00;-0.00;0',FieldbyName('δ<><CEB4>RMB').AsFloat);
memtblDetail.FieldByName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsString:=FormatFloat('0.00;-0.00;0',FieldbyName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsFloat);
memtblDetail.FieldByName('δ<>պϼ<D5BA>').AsString:=FormatFloat('0.00;-0.00;0',FieldbyName('δ<>պϼ<D5BA>').AsFloat);
memtblDetail.Post;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
Next;
end;
end;
finally
freeAndNil(frm_sys_progress);
memtblDetail.EnableControls;
end;
end;
{ if memtblDetail.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',FieldbyName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,[]) then begin
memtblDetail.Edit;
memtblDetail.FieldByName('δ<><CEB4>USD').AsFloat:=memtblDetail.FieldByName('δ<><CEB4>USD').AsFloat+FieldbyName('δ<><CEB4>USD').AsFloat;
memtblDetail.FieldByName('δ<><CEB4>RMB').AsFloat:=memtblDetail.FieldByName('δ<><CEB4>RMB').AsFloat+FieldbyName('δ<><CEB4>RMB').AsFloat;
memtblDetail.FieldByName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsFloat:=memtblDetail.FieldByName('δ<><CEB4>USD<53>ϼ<EFBFBD>B').AsFloat+FieldbyName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsFloat;
memtblDetail.FieldByName('δ<>պϼ<D5BA>').AsFloat:=memtblDetail.FieldByName('δ<>պϼ<D5BA>').AsFloat+FieldbyName('δ<>պϼ<D5BA>').AsFloat;
memtblDetail.Post;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end else begin
memtblDetail.Insert;
memtblDetail.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString:=FieldbyName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
memtblDetail.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=FieldbyName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
memtblDetail.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=FormatDateTime('YYYY-MM-DD',FieldbyName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
memtblDetail.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=FieldbyName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
memtblDetail.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString:=FieldbyName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString;
memtblDetail.FieldByName('δ<><CEB4>USD').AsFloat:=FieldbyName('δ<><CEB4>USD').AsFloat;
memtblDetail.FieldByName('δ<><CEB4>USD').AsFloat:=FieldbyName('δ<><CEB4>USD').AsFloat;
memtblDetail.FieldByName('δ<><CEB4>RMB').AsFloat:=FieldbyName('δ<><CEB4>RMB').AsFloat;
memtblDetail.FieldByName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsFloat:=FieldbyName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsFloat;
memtblDetail.FieldByName('δ<>պϼ<D5BA>').AsFloat:=FieldbyName('δ<>պϼ<D5BA>').AsFloat;
memtblDetail.Post;
}
procedure Tfrm_rp_no_total_com.bsSkinButton10Click(Sender: TObject);
var connstr:String;
begin
Creatememtbl;
if RxDBLookupCombo15.DisplayValues[0]='' then
begin
ShowMessage('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>');
exit;
end;
connstr:='';
if RxDBLookupCombo15.DisplayValue<>'<27>ܹ<EFBFBD>˾' then
begin
if frm_data_share.t_code_subcomp.Locate('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo15.DisplayValue,[]) then
begin
connstr:=frm_data_share.t_code_subcomp.FieldByName('<27><><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>').AsString;
end;
if connstr<>'' then
begin
try
dbsub.Close;
dbsub.ConnectionString:=connstr;
dbsub.Close;
dbsub.Open;
GetNoFee_items(ADOQuerySelect)
except
on E: Exception do
begin
ShowMessage(e.Message);
end;
end;
end;
end
else
begin
with frm_data_share.t_code_subcomp do
begin
First;
while not eof do
begin
connstr:=frm_data_share.t_code_subcomp.FieldByName('<27><><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>').AsString;
if connstr<>'' then
begin
try
ADOQuerySelect.Close;
dbsub.Close;
dbsub.ConnectionString:=connstr;
dbsub.Close;
dbsub.Open;
except
on E: Exception do
begin
ShowMessage(e.Message);
end;
end;
GetNoFee_items(ADOQuerySelect);
end;
Next;
end;
end;
end;
end;
end.