119 lines
4.2 KiB
ObjectPascal
119 lines
4.2 KiB
ObjectPascal
unit U_SalesRanking;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
|
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
|
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
|
|
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
|
|
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
|
|
cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
|
|
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
|
|
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
|
|
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
|
|
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
|
|
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
|
|
IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, Vcl.DBCtrls, dxSkinWXI,
|
|
dxScrollbarAnnotations, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
|
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
|
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
|
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
|
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
|
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
|
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
|
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
|
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
|
|
dxSkinXmas2008Blue, Vcl.OleCtrls, SHDocVw, WebView2, Winapi.ActiveX, Vcl.Edge;
|
|
|
|
type
|
|
TfrmSalesRanking = class(TfrmBaseList)
|
|
ToolBar1: TToolBar;
|
|
TBClose: TToolButton;
|
|
cxgrdpmn1: TcxGridPopupMenu;
|
|
ADOQueryCmd: TADOQuery;
|
|
ADOQueryMain: TADOQuery;
|
|
ADOQueryTemp: TADOQuery;
|
|
DataSource1: TDataSource;
|
|
Order_Main: TClientDataSet;
|
|
ADOQuerySub: TADOQuery;
|
|
DataSource2: TDataSource;
|
|
ADOQueryImage: TADOQuery;
|
|
DSImage: TDataSource;
|
|
IdFTP1: TIdFTP;
|
|
ORDER_SUB: TClientDataSet;
|
|
PopupMenu2: TPopupMenu;
|
|
N3: TMenuItem;
|
|
N4: TMenuItem;
|
|
cxgrdpmn2: TcxGridPopupMenu;
|
|
CDS_WXTS: TClientDataSet;
|
|
PM_1: TPopupMenu;
|
|
N1: TMenuItem;
|
|
N2: TMenuItem;
|
|
GPM_3: TcxGridPopupMenu;
|
|
CDS_3: TClientDataSet;
|
|
DataSource3: TDataSource;
|
|
ADOCmd: TADOQuery;
|
|
ADOQuery1: TADOQuery;
|
|
ADOQuery2: TADOQuery;
|
|
EdgeBrowser1: TEdgeBrowser;
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure TBCloseClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
|
|
private
|
|
DQdate: TDateTime;
|
|
FOrderNo, FCustName, FConNo, FBuyConNo, FC_Code, FC_Name, FHXYS, FCPMC, FKZPZ, FOrdQty, FOrdUnit: string;
|
|
FWidth, FGramWeight, FConPrice, FJGSY: string;
|
|
{ Private declarations }
|
|
public
|
|
FFInt, FCloth: Integer;
|
|
canshu1, canshu2: string;
|
|
fFlileFlag: string;
|
|
FNOTE: string;
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
U_DataLink, U_TradePlanInPut, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TradeInspSet,
|
|
U_AttachmentUpload, U_ZDYHelpSel, U_TradeInspSet_YJ, U_ZDYHelp_P;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmSalesRanking.FormDestroy(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
// frmProductOrderList:=nil;
|
|
end;
|
|
|
|
procedure TfrmSalesRanking.FormShow(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
EdgeBrowser1.Navigate('http://www.rightsoft.top:8090/biaoqi/');
|
|
end;
|
|
|
|
procedure TfrmSalesRanking.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
inherited;
|
|
Action := caFree;
|
|
end;
|
|
|
|
procedure TfrmSalesRanking.TBCloseClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
end.
|
|
|