加一个指示单号 过滤条件，匹数汇总注脚加下
This commit is contained in:
parent
e07d994b64
commit
cc41975176
|
|
@ -79,7 +79,7 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
Left = 0
|
||||
Top = 31
|
||||
Width = 1306
|
||||
Height = 38
|
||||
Height = 42
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -92,13 +92,6 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
Height = 12
|
||||
Caption = #21697#21517
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 510
|
||||
Top = 45
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20986#24211#21333#21495
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 22
|
||||
Top = 13
|
||||
|
|
@ -134,6 +127,13 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
Height = 12
|
||||
Caption = #25351#31034#21333#21495
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 510
|
||||
Top = 45
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20986#24211#21333#21495
|
||||
end
|
||||
object MPRTCodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 726
|
||||
|
|
@ -143,15 +143,6 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
TabOrder = 0
|
||||
OnChange = MPRTCodeNameChange
|
||||
end
|
||||
object OrderNo: TEdit
|
||||
Tag = 2
|
||||
Left = 558
|
||||
Top = 41
|
||||
Width = 120
|
||||
Height = 20
|
||||
TabOrder = 1
|
||||
OnChange = OrderNoChange
|
||||
end
|
||||
object begdate: TDateTimePicker
|
||||
Left = 72
|
||||
Top = 9
|
||||
|
|
@ -160,7 +151,7 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
Date = 41256.918237847230000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 41256.918237847230000000
|
||||
TabOrder = 2
|
||||
TabOrder = 1
|
||||
end
|
||||
object Enddate: TDateTimePicker
|
||||
Left = 182
|
||||
|
|
@ -170,7 +161,7 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
Date = 41256.918237847230000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 41256.918237847230000000
|
||||
TabOrder = 3
|
||||
TabOrder = 2
|
||||
end
|
||||
object OrdDefNote3: TComboBox
|
||||
Tag = 1
|
||||
|
|
@ -179,7 +170,7 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
Width = 145
|
||||
Height = 20
|
||||
ItemHeight = 12
|
||||
TabOrder = 4
|
||||
TabOrder = 3
|
||||
OnChange = MPRTCodeNameChange
|
||||
Items.Strings = (
|
||||
#24050#20132#21333
|
||||
|
|
@ -197,26 +188,25 @@ object frmYSMXlist: TfrmYSMXlist
|
|||
Top = 9
|
||||
Width = 120
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
TabOrder = 4
|
||||
OnChange = MPRTCodeNameChange
|
||||
OnKeyPress = factoryNameKeyPress
|
||||
end
|
||||
object Edit1: TEdit
|
||||
object OrderNo: TEdit
|
||||
Tag = 2
|
||||
Left = 556
|
||||
Left = 557
|
||||
Top = 9
|
||||
Width = 120
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = MPRTCodeNameChange
|
||||
OnKeyPress = factoryNameKeyPress
|
||||
TabOrder = 5
|
||||
OnChange = OrderNoChange
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 69
|
||||
Top = 73
|
||||
Width = 1306
|
||||
Height = 459
|
||||
Height = 455
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object TV1: TcxGridDBBandedTableView
|
||||
|
|
|
|||
|
|
@ -5,30 +5,28 @@ interface
|
|||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
|
||||
StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
||||
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
||||
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
|
||||
cxButtonEdit, cxTextEdit, cxDropDownEdit, RM_e_Xls,
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
dxSkinscxPCPainter, cxCurrencyEdit, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
|
||||
cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, cxCurrencyEdit,
|
||||
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, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue;
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
|
||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||||
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||||
|
||||
type
|
||||
TfrmYSMXlist = class(TForm)
|
||||
|
|
@ -43,8 +41,6 @@ type
|
|||
MPRTCodeName: TEdit;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ToolButton1: TToolButton;
|
||||
Label3: TLabel;
|
||||
OrderNo: TEdit;
|
||||
cxGrid2: TcxGrid;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
Label2: TLabel;
|
||||
|
|
@ -84,7 +80,8 @@ type
|
|||
TV1Column1: TcxGridDBBandedColumn;
|
||||
TV1Column3: TcxGridDBBandedColumn;
|
||||
Label7: TLabel;
|
||||
Edit1: TEdit;
|
||||
OrderNo: TEdit;
|
||||
Label3: TLabel;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -102,28 +99,25 @@ type
|
|||
{ Private declarations }
|
||||
|
||||
procedure InitGrid();
|
||||
|
||||
public
|
||||
{ Public declarations }
|
||||
RKFlag,FCYID:String;
|
||||
RKFlag, FCYID: string;
|
||||
fType: string;
|
||||
|
||||
end;
|
||||
|
||||
var
|
||||
frmYSMXlist: TfrmYSMXlist;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun, U_ZDYHelp, U_ProductOrderNewList;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
|
||||
procedure TfrmYSMXlist.InitGrid();
|
||||
begin
|
||||
IF trim(factoryName.Text)='' then
|
||||
if trim(factoryName.Text) = '' then
|
||||
begin
|
||||
application.MessageBox('请输入客户，以便提高查询速度！', '提示信息', MB_ICONERROR);
|
||||
exit;
|
||||
|
|
@ -157,7 +151,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmYSMXlist.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmYSMXlist := nil;
|
||||
|
|
@ -173,6 +166,7 @@ begin
|
|||
WriteCxBandedGrid(self.Caption + '2', Tv1, '财务管理1');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmYSMXlist.FormShow(Sender: TObject);
|
||||
begin
|
||||
readCxBandedGrid(self.Caption + '2', Tv1, '财务管理1');
|
||||
|
|
@ -202,13 +196,15 @@ end;
|
|||
|
||||
procedure TfrmYSMXlist.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then Exit;
|
||||
if ADOQueryMain.IsEmpty then
|
||||
Exit;
|
||||
TcxGridToExcel(self.Caption, cxgrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmYSMXlist.OrderNoChange(Sender: TObject);
|
||||
begin
|
||||
if Length(Trim(OrderNo.Text))<3 then Exit;
|
||||
if Length(Trim(OrderNo.Text)) < 3 then
|
||||
Exit;
|
||||
ToolButton2.Click;
|
||||
end;
|
||||
|
||||
|
|
@ -229,9 +225,10 @@ var
|
|||
filepath: string;
|
||||
mBegdate, mEnddate: string;
|
||||
begin
|
||||
mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date);
|
||||
menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date);
|
||||
if CDS_HZ.IsEmpty then exit;
|
||||
mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
|
||||
mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
|
||||
if CDS_HZ.IsEmpty then
|
||||
exit;
|
||||
|
||||
|
||||
{ with ADOQueryPrint do
|
||||
|
|
@ -322,7 +319,6 @@ begin
|
|||
//
|
||||
//end;
|
||||
|
||||
|
||||
procedure TfrmYSMXlist.factoryNameKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
|
|
@ -336,3 +332,4 @@ begin
|
|||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user