1
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
3afd36fac3
commit
36c796ce9a
|
|
@ -1,6 +1,6 @@
|
|||
object frmCKProductJYHZList: TfrmCKProductJYHZList
|
||||
Left = 239
|
||||
Top = 140
|
||||
Left = 395
|
||||
Top = 378
|
||||
Width = 1517
|
||||
Height = 511
|
||||
Caption = #25104#21697#26816#39564#27719#24635#20449#24687
|
||||
|
|
@ -20,7 +20,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1501
|
||||
Width = 1509
|
||||
Height = 33
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
|
|
@ -91,7 +91,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 1501
|
||||
Width = 1509
|
||||
Height = 68
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -323,8 +323,8 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
|
|||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 101
|
||||
Width = 1501
|
||||
Height = 371
|
||||
Width = 1509
|
||||
Height = 379
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
|
|
|
|||
|
|
@ -4,14 +4,14 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit,
|
||||
cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||
cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
cxCheckBox;
|
||||
|
||||
type
|
||||
TfrmCKProductJYHZList = class(TForm)
|
||||
|
|
@ -95,15 +95,11 @@ type
|
|||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
procedure MPRTCodeNameChange(Sender: TObject);
|
||||
procedure v1Column5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure PRTColorChange(Sender: TObject);
|
||||
procedure Image2Click(Sender: TObject);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
procedure TBPrintClick(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
private
|
||||
|
|
@ -118,6 +114,7 @@ var
|
|||
frmCKProductJYHZList: TfrmCKProductJYHZList;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun, U_ZDYHelp, U_JYOrderCDOne;
|
||||
|
||||
|
|
@ -128,8 +125,7 @@ begin
|
|||
frmCKProductJYHZList := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
procedure TfrmCKProductJYHZList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := caFree;
|
||||
end;
|
||||
|
|
@ -204,7 +200,8 @@ begin
|
|||
if Trim(DParameters2) = '¹ÜÀí' then
|
||||
begin
|
||||
//v1Column5.Options.Focusing:=True;
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
//v1Column5.Options.Focusing:=False;
|
||||
end;
|
||||
|
|
@ -213,7 +210,8 @@ end;
|
|||
|
||||
procedure TfrmCKProductJYHZList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
if ADOQueryMain.IsEmpty then
|
||||
exit;
|
||||
TcxGridToExcel('¿â´æ»ã×ÜÁбí', cxGrid2);
|
||||
end;
|
||||
|
||||
|
|
@ -232,8 +230,7 @@ begin
|
|||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
|
|
@ -273,10 +270,7 @@ begin
|
|||
Panel4.Visible := False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.Tv1CellDblClick(
|
||||
Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure TfrmCKProductJYHZList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
Panel4.Left := FLeft;
|
||||
Panel4.Top := FTop + 110;
|
||||
|
|
@ -286,8 +280,7 @@ begin
|
|||
application.ProcessMessages;
|
||||
end;
|
||||
|
||||
procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
FLeft := X;
|
||||
FTop := Y;
|
||||
|
|
@ -300,7 +293,8 @@ end;
|
|||
|
||||
procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
if cds_main.IsEmpty then Exit;
|
||||
if cds_main.IsEmpty then
|
||||
Exit;
|
||||
frmJYOrderCDOne := TfrmJYOrderCDOne.Create(Application);
|
||||
with frmJYOrderCDOne do
|
||||
begin
|
||||
|
|
@ -316,3 +310,4 @@ begin
|
|||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||
Left = 266
|
||||
Top = 359
|
||||
Left = 383
|
||||
Top = 471
|
||||
Width = 1400
|
||||
Height = 757
|
||||
Caption = #26816#39564#25253#21578
|
||||
|
|
@ -1193,8 +1193,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object MovePanel2: TMovePanel
|
||||
Left = 416
|
||||
Top = 192
|
||||
Left = 456
|
||||
Top = 240
|
||||
Width = 289
|
||||
Height = 49
|
||||
BevelInner = bvLowered
|
||||
|
|
@ -1210,8 +1210,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Visible = False
|
||||
end
|
||||
object Panel5: TPanel
|
||||
Left = 736
|
||||
Top = 188
|
||||
Left = 1008
|
||||
Top = 276
|
||||
Width = 273
|
||||
Height = 101
|
||||
Color = clSkyBlue
|
||||
|
|
@ -1318,8 +1318,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object Panel3: TPanel
|
||||
Left = 503
|
||||
Top = 203
|
||||
Left = 863
|
||||
Top = 443
|
||||
Width = 231
|
||||
Height = 216
|
||||
TabOrder = 6
|
||||
|
|
@ -1418,8 +1418,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object Panel7: TPanel
|
||||
Left = 409
|
||||
Top = 207
|
||||
Left = 281
|
||||
Top = 287
|
||||
Width = 231
|
||||
Height = 170
|
||||
TabOrder = 7
|
||||
|
|
@ -1652,8 +1652,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object Panel_SMCK: TPanel
|
||||
Left = 412
|
||||
Top = 180
|
||||
Left = 420
|
||||
Top = 532
|
||||
Width = 317
|
||||
Height = 97
|
||||
Color = clSkyBlue
|
||||
|
|
|
|||
|
|
@ -375,7 +375,7 @@ end;
|
|||
procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
WriteCxGrid('检验报告JF', Tv1, '检验管理');
|
||||
WriteCxGrid('检验报告JF', Tv1, '检验管理报告');
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.InitGrid();
|
||||
|
|
@ -466,7 +466,7 @@ procedure TfrmJYOrderCDOne.InitForm();
|
|||
var
|
||||
fsj, Strmd: string;
|
||||
begin
|
||||
ReadCxGrid('检验报告JF', Tv1, '检验管理');
|
||||
ReadCxGrid('检验报告JF', Tv1, '检验管理报告');
|
||||
fsj := 'select distinct(Filler) name from WFB_MJJY ';
|
||||
Strmd := 'select distinct(text) name,index1 from A_MaDan order by index1 ';
|
||||
SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj);
|
||||
|
|
|
|||
|
|
@ -21,6 +21,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 1357
|
||||
Height = 62
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 95
|
||||
|
|
@ -109,66 +110,67 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
AutoSize = True
|
||||
Caption = #35746#21333#23436#25104
|
||||
ImageIndex = 41
|
||||
Wrap = True
|
||||
OnClick = TWCClick
|
||||
end
|
||||
object TNoWC: TToolButton
|
||||
Left = 591
|
||||
Top = 0
|
||||
Left = 0
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#23436#25104
|
||||
ImageIndex = 86
|
||||
OnClick = TNoWCClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 678
|
||||
Top = 0
|
||||
Left = 87
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TFJ: TToolButton
|
||||
Left = 741
|
||||
Top = 0
|
||||
Left = 150
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25351#31034#21333#38468#20214
|
||||
ImageIndex = 57
|
||||
OnClick = TFJClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 840
|
||||
Top = 0
|
||||
Left = 249
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 903
|
||||
Top = 0
|
||||
Left = 312
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #24322#24120#25968#25454
|
||||
ImageIndex = 2
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 990
|
||||
Top = 0
|
||||
Left = 399
|
||||
Top = 30
|
||||
Caption = #30133#28857#31649#29702
|
||||
ImageIndex = 132
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton6: TToolButton
|
||||
Left = 1085
|
||||
Top = 0
|
||||
Left = 494
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #26085#24535
|
||||
ImageIndex = 72
|
||||
OnClick = ToolButton6Click
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 1148
|
||||
Top = 0
|
||||
Left = 557
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #37325#36830
|
||||
ImageIndex = 73
|
||||
|
|
@ -176,8 +178,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
OnClick = ToolButton7Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 1211
|
||||
Top = 0
|
||||
Left = 620
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
|
|
@ -186,7 +188,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Top = 62
|
||||
Width = 1357
|
||||
Height = 40
|
||||
Align = alTop
|
||||
|
|
@ -415,7 +417,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 95
|
||||
Top = 125
|
||||
Width = 1357
|
||||
Height = 370
|
||||
Align = alTop
|
||||
|
|
@ -782,7 +784,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
end
|
||||
object cxSplitter1: TcxSplitter
|
||||
Left = 0
|
||||
Top = 465
|
||||
Top = 495
|
||||
Width = 1357
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
|
|
@ -791,7 +793,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 473
|
||||
Top = 503
|
||||
Width = 1357
|
||||
Height = 256
|
||||
Align = alBottom
|
||||
|
|
@ -1144,7 +1146,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
end
|
||||
object cxTabControl1: TcxTabControl
|
||||
Left = 0
|
||||
Top = 72
|
||||
Top = 102
|
||||
Width = 1357
|
||||
Height = 23
|
||||
Align = alTop
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user