Group_99/D7DJjiaze
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-28 09:54:24 +08:00
parent 3afd36fac3
commit 36c796ce9a
5 changed files with 114 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
打卷检验管理/U_CKProductJYHZList.dfm
View File

@ -1,6 +1,6 @@
object frmCKProductJYHZList: TfrmCKProductJYHZList object frmCKProductJYHZList: TfrmCKProductJYHZList
Left = 239 Left = 395
Top = 140 Top = 378
Width = 1517 Width = 1517
Height = 511 Height = 511
Caption = #25104#21697#26816#39564#27719#24635#20449#24687 Caption = #25104#21697#26816#39564#27719#24635#20449#24687
@ -20,7 +20,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1501 Width = 1509
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -91,7 +91,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1501 Width = 1509
Height = 68 Height = 68
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -323,8 +323,8 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 101 Top = 101
Width = 1501 Width = 1509
Height = 371 Height = 379
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

51
打卷检验管理/U_CKProductJYHZList.pas
View File

@ -4,14 +4,14 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit, cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; cxCheckBox;
type type
TfrmCKProductJYHZList = class(TForm) TfrmCKProductJYHZList = class(TForm)
@ -95,15 +95,11 @@ type
procedure TBExportClick(Sender: TObject); procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject); procedure MPRTCodeNameChange(Sender: TObject);
procedure v1Column5PropertiesButtonClick(Sender: TObject; procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
procedure PRTColorChange(Sender: TObject); procedure PRTColorChange(Sender: TObject);
procedure Image2Click(Sender: TObject); procedure Image2Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
AShift: TShiftState; var AHandled: Boolean);
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TBPrintClick(Sender: TObject); procedure TBPrintClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
private private
@ -118,6 +114,7 @@ var
frmCKProductJYHZList: TfrmCKProductJYHZList; frmCKProductJYHZList: TfrmCKProductJYHZList;
implementation implementation
uses uses
U_DataLink, U_Fun, U_ZDYHelp, U_JYOrderCDOne; U_DataLink, U_Fun, U_ZDYHelp, U_JYOrderCDOne;
@ -128,8 +125,7 @@ begin
frmCKProductJYHZList := nil; frmCKProductJYHZList := nil;
end; end;
procedure TfrmCKProductJYHZList.FormClose(Sender: TObject; procedure TfrmCKProductJYHZList.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action := caFree; Action := caFree;
end; end;
@ -204,7 +200,8 @@ begin
if Trim(DParameters2) = '¹ÜÀí' then if Trim(DParameters2) = '¹ÜÀí' then
begin begin
//v1Column5.Options.Focusing:=True; //v1Column5.Options.Focusing:=True;
end else end
else
begin begin
//v1Column5.Options.Focusing:=False; //v1Column5.Options.Focusing:=False;
end; end;
@ -213,7 +210,8 @@ end;
procedure TfrmCKProductJYHZList.TBExportClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then exit; if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel('¿â´æ»ã×ÜÁбí', cxGrid2); TcxGridToExcel('¿â´æ»ã×ÜÁбí', cxGrid2);
end; end;
@ -232,8 +230,7 @@ begin
TBFind.Click; TBFind.Click;
end; end;
procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick( procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -273,10 +270,7 @@ begin
Panel4.Visible := False; Panel4.Visible := False;
end; end;
procedure TfrmCKProductJYHZList.Tv1CellDblClick( procedure TfrmCKProductJYHZList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin begin
Panel4.Left := FLeft; Panel4.Left := FLeft;
Panel4.Top := FTop + 110; Panel4.Top := FTop + 110;
@ -286,8 +280,7 @@ begin
application.ProcessMessages; application.ProcessMessages;
end; end;
procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject; procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
FLeft := X; FLeft := X;
FTop := Y; FTop := Y;
@ -300,7 +293,8 @@ end;
procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject); procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject);
begin begin
if cds_main.IsEmpty then Exit; if cds_main.IsEmpty then
Exit;
frmJYOrderCDOne := TfrmJYOrderCDOne.Create(Application); frmJYOrderCDOne := TfrmJYOrderCDOne.Create(Application);
with frmJYOrderCDOne do with frmJYOrderCDOne do
begin begin
@ -316,3 +310,4 @@ begin
end; end;
end. end.

24
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 266 Left = 383
Top = 359 Top = 471
Width = 1400 Width = 1400
Height = 757 Height = 757
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -1193,8 +1193,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object MovePanel2: TMovePanel object MovePanel2: TMovePanel
Left = 416 Left = 456
Top = 192 Top = 240
Width = 289 Width = 289
Height = 49 Height = 49
BevelInner = bvLowered BevelInner = bvLowered
@ -1210,8 +1210,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
end end
object Panel5: TPanel object Panel5: TPanel
Left = 736 Left = 1008
Top = 188 Top = 276
Width = 273 Width = 273
Height = 101 Height = 101
Color = clSkyBlue Color = clSkyBlue
@ -1318,8 +1318,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 503 Left = 863
Top = 203 Top = 443
Width = 231 Width = 231
Height = 216 Height = 216
TabOrder = 6 TabOrder = 6
@ -1418,8 +1418,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object Panel7: TPanel object Panel7: TPanel
Left = 409 Left = 281
Top = 207 Top = 287
Width = 231 Width = 231
Height = 170 Height = 170
TabOrder = 7 TabOrder = 7
@ -1652,8 +1652,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object Panel_SMCK: TPanel object Panel_SMCK: TPanel
Left = 412 Left = 420
Top = 180 Top = 532
Width = 317 Width = 317
Height = 97 Height = 97
Color = clSkyBlue Color = clSkyBlue

4
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -375,7 +375,7 @@ end;
procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject); procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
WriteCxGrid('检验报告JF', Tv1, '检验管理'); WriteCxGrid('检验报告JF', Tv1, '检验管理报告');
end; end;
procedure TfrmJYOrderCDOne.InitGrid(); procedure TfrmJYOrderCDOne.InitGrid();
@ -466,7 +466,7 @@ procedure TfrmJYOrderCDOne.InitForm();
var var
fsj, Strmd: string; fsj, Strmd: string;
begin begin
ReadCxGrid('检验报告JF', Tv1, '检验管理'); ReadCxGrid('检验报告JF', Tv1, '检验管理报告');
fsj := 'select distinct(Filler) name from WFB_MJJY '; fsj := 'select distinct(Filler) name from WFB_MJJY ';
Strmd := 'select distinct(text) name,index1 from A_MaDan order by index1 '; Strmd := 'select distinct(text) name,index1 from A_MaDan order by index1 ';
SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj); SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj);

48
打卷检验管理/U_ProductOrderNewList.dfm
View File

@ -21,6 +21,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1357 Width = 1357
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -109,66 +110,67 @@ object frmProductOrderNewList: TfrmProductOrderNewList
AutoSize = True AutoSize = True
Caption = #35746#21333#23436#25104 Caption = #35746#21333#23436#25104
ImageIndex = 41 ImageIndex = 41
Wrap = True
OnClick = TWCClick OnClick = TWCClick
end end
object TNoWC: TToolButton object TNoWC: TToolButton
Left = 591 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
ImageIndex = 86 ImageIndex = 86
OnClick = TNoWCClick OnClick = TNoWCClick
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 678 Left = 87
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TFJ: TToolButton object TFJ: TToolButton
Left = 741 Left = 150
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25351#31034#21333#38468#20214 Caption = #25351#31034#21333#38468#20214
ImageIndex = 57 ImageIndex = 57
OnClick = TFJClick OnClick = TFJClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 840 Left = 249
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 903 Left = 312
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 990 Left = 399
Top = 0 Top = 30
Caption = #30133#28857#31649#29702 Caption = #30133#28857#31649#29702
ImageIndex = 132 ImageIndex = 132
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 1085 Left = 494
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
ImageIndex = 72 ImageIndex = 72
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 1148 Left = 557
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #37325#36830 Caption = #37325#36830
ImageIndex = 73 ImageIndex = 73
@ -176,8 +178,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1211 Left = 620
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
@ -186,7 +188,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 62
Width = 1357 Width = 1357
Height = 40 Height = 40
Align = alTop Align = alTop
@ -415,7 +417,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 125
Width = 1357 Width = 1357
Height = 370 Height = 370
Align = alTop Align = alTop
@ -782,7 +784,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 465 Top = 495
Width = 1357 Width = 1357
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
@ -791,7 +793,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 473 Top = 503
Width = 1357 Width = 1357
Height = 256 Height = 256
Align = alBottom Align = alBottom
@ -1144,7 +1146,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 72 Top = 102
Width = 1357 Width = 1357
Height = 23 Height = 23
Align = alTop Align = alTop