Group_01/D7DJqixin
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

20260430

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-04-30 19:07:49 +08:00
parent bb7eda4eba
commit 1ce4511ece
9 changed files with 445 additions and 133 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
打卷检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\琪鑫\打卷检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJqixin\打卷检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

50
打卷检验管理/TradeManage.skincfg Normal file
View File

@ -0,0 +1,50 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinBlack=1
dxSkinBlue=1
dxSkinBlueprint=1
dxSkinCaramel=1
dxSkinCoffee=1
dxSkinDarkRoom=1
dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=1
dxSkinFoggy=1
dxSkinGlassOceans=1
dxSkinHighContrast=1
dxSkiniMaginary=1
dxSkinLilian=1
dxSkinLiquidSky=1
dxSkinLondonLiquidSky=1
dxSkinMcSkin=1
dxSkinMetropolis=1
dxSkinMetropolisDark=1
dxSkinMoneyTwins=1
dxSkinOffice2007Black=1
dxSkinOffice2007Blue=1
dxSkinOffice2007Green=1
dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=1
dxSkinOffice2010Black=1
dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=1
dxSkinOffice2013White=1
dxSkinPumpkin=1
dxSkinSeven=1
dxSkinSevenClassic=1
dxSkinSharp=1
dxSkinSharpPlus=1
dxSkinSilver=1
dxSkinSpringTime=1
dxSkinStardust=1
dxSkinSummer2008=1
dxSkinTheAsphaltWorld=1
dxSkinsDefaultPainters=1
dxSkinValentine=1
dxSkinVS2010=1
dxSkinWhiteprint=1
dxSkinXmas2008Blue=1

16
打卷检验管理/U_DataLink.pas
View File

@ -4,7 +4,21 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs; Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs,
dxSkinsCore, 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, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TMyThread = class(TThread) TMyThread = class(TThread)
protected protected

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

@ -21,8 +21,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1384 Width = 1392
Height = 92 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 119 ButtonWidth = 119
@ -101,28 +101,27 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 0 Top = 0
Caption = #25209#37327#20462#25913#32568#21495 Caption = #25209#37327#20462#25913#32568#21495
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton11Click OnClick = ToolButton11Click
end end
object TBDW: TToolButton object TBDW: TToolButton
Left = 0 Left = 608
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301 Caption = #20462#25913#25968#37327#21333#20301
ImageIndex = 54 ImageIndex = 54
OnClick = TBDWClick OnClick = TBDWClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 111 Left = 719
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968 Caption = #25209#37327#35843#25972#31859#25968
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 222 Left = 830
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20928#37325#36716#38271#24230 Caption = #25209#37327#20928#37325#36716#38271#24230
ImageIndex = 54 ImageIndex = 54
@ -130,23 +129,31 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton13Click OnClick = ToolButton13Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 345 Left = 953
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325 Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton14: TToolButton
Left = 1064
Top = 0
Caption = #25209#37327#20462#25913#33853#33394
ImageIndex = 54
OnClick = ToolButton14Click
end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 456 Left = 1183
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#26631#31614 Caption = #25171#21360#26631#31614
ImageIndex = 96 ImageIndex = 96
Wrap = True
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 543 Left = 0
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25104#21697#25171#21253 Caption = #25104#21697#25171#21253
@ -154,7 +161,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick OnClick = TCPDBClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 630 Left = 87
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
@ -163,25 +170,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 729 Left = 186
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578 Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12 ImageIndex = 12
Wrap = True
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 0 Left = 297
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object Edit3: TEdit object Edit3: TEdit
Left = 63 Left = 360
Top = 60 Top = 30
Width = 68 Width = 68
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -195,8 +201,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress OnKeyPress = Edit3KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 131 Left = 428
Top = 63 Top = 33
Width = 218 Width = 218
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -220,8 +226,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333) #26816#39564#30721#21333)
end end
object Edit4: TEdit object Edit4: TEdit
Left = 349 Left = 646
Top = 60 Top = 30
Width = 121 Width = 121
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -234,32 +240,40 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 470 Left = 767
Top = 60 Top = 30
Caption = #20462#25913#30721#21333 Caption = #20462#25913#30721#21333
ImageIndex = 54 ImageIndex = 54
Visible = False Visible = False
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object ToolButton15: TToolButton
Left = 886
Top = 30
AutoSize = True
Caption = #25209#37327#20462#25913#31995#25968
ImageIndex = 54
OnClick = ToolButton15Click
end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 589 Left = 997
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 676 Left = 1084
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 739 Left = 1147
Top = 60 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
@ -268,8 +282,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 92 Top = 62
Width = 1384 Width = 1392
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -783,9 +797,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 180 Top = 150
Width = 1384 Width = 1392
Height = 538 Height = 576
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -796,7 +810,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -1092,6 +1105,18 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 60 Width = 60
end end
object Tv1ftyStr4: TcxGridDBColumn
Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'ftyStr4'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1fadColor: TcxGridDBColumn
Caption = #33853#33394
DataBinding.FieldName = 'fadColor'
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -12,19 +12,19 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue, cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinscxPCPainter;
type type
TfrmJYOrderCDOne = class(TForm) TfrmJYOrderCDOne = class(TForm)
@ -223,6 +223,10 @@ type
ComboBox3: TComboBox; ComboBox3: TComboBox;
Edit6: TEdit; Edit6: TEdit;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1ftyStr4: TcxGridDBColumn;
Tv1fadColor: TcxGridDBColumn;
ToolButton14: TToolButton;
ToolButton15: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -284,6 +288,8 @@ type
procedure Button8Click(Sender: TObject); procedure Button8Click(Sender: TObject);
procedure Button14Click(Sender: TObject); procedure Button14Click(Sender: TObject);
procedure Button13Click(Sender: TObject); procedure Button13Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure ToolButton15Click(Sender: TObject);
// procedure Edit5Click(Sender: TObject); // procedure Edit5Click(Sender: TObject);
// procedure CheckBox3Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject);
private private
@ -419,6 +425,7 @@ procedure TfrmJYOrderCDOne.InitSum();
var var
sumP, sumLen, sumMZ, sumJZ: double; sumP, sumLen, sumMZ, sumJZ: double;
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
try try
@ -896,12 +903,14 @@ end;
procedure TfrmJYOrderCDOne.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TfrmJYOrderCDOne.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin begin
if Order_Main.IsEmpty = False then if Order_Main.IsEmpty = False then
begin begin
InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp); InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp);
//InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); //InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
//InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp); //InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp);
end; end;
end; end;
procedure TfrmJYOrderCDOne.GetCDSData(); procedure TfrmJYOrderCDOne.GetCDSData();
@ -1517,7 +1526,7 @@ begin
// showmessage(sql.text); // showmessage(sql.text);
ExecSQL; ExecSQL;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(챘路)') or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路)') or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路챘路)') then if (trim(ComboBox1.Text) = '检验码单(毛重)') or (trim(ComboBox1.Text) = '检验码单(净重)') or (trim(ComboBox1.Text) = '检验码单(净重毛重)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1542,7 +1551,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(씐路亶匡멂뵀)') or (trim(ComboBox1.Text) = '쇱駱쯤데(챘路亶匡멂뵀)') or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路챘路亶匡멂뵀)') then if (trim(ComboBox1.Text) = '检验码单(净重英文缸号)') or (trim(ComboBox1.Text) = '检验码单(毛重英文缸号)') or (trim(ComboBox1.Text) = '检验码单(净重毛重英文缸号)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1567,7 +1576,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(운뵀)') then if (trim(ComboBox1.Text) = '检验码单(款号)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1592,7 +1601,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') then if (trim(ComboBox1.Text) = '检验码单') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1617,6 +1626,32 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = '罗马布码单') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMD_LMB ');
// sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(' @DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '检验码单(染色)') or (trim(ComboBox1.Text) = '出库码单(有缸号净重)') or (trim(ComboBox1.Text) = '出库码单(有缸号毛重)') or (trim(ComboBox1.Text) = '出库码单(无缸号净重)') or (trim(ComboBox1.Text) = '出库码单(无缸号毛重)') then if (trim(ComboBox1.Text) = '检验码单(染色)') or (trim(ComboBox1.Text) = '出库码单(有缸号净重)') or (trim(ComboBox1.Text) = '出库码单(有缸号毛重)') or (trim(ComboBox1.Text) = '出库码单(无缸号净重)') or (trim(ComboBox1.Text) = '出库码单(无缸号毛重)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -1895,7 +1930,10 @@ begin
end; end;
procedure TfrmJYOrderCDOne.v1Column22PropertiesChange(Sender: TObject); procedure TfrmJYOrderCDOne.v1Column22PropertiesChange(Sender: TObject);
var
topIndex : Integer;
begin begin
topIndex := tv1.Controller.TopRowIndex;
FID := trim(Order_Main.Fieldbyname('MJID').AsString); FID := trim(Order_Main.Fieldbyname('MJID').AsString);
Order_Main.Edit; Order_Main.Edit;
if Order_Main.FieldByName('ssel').AsBoolean = false then if Order_Main.FieldByName('ssel').AsBoolean = false then
@ -1906,6 +1944,7 @@ begin
Order_Main.FieldByName('ssel').AsBoolean := False; Order_Main.FieldByName('ssel').AsBoolean := False;
InitSum(); InitSum();
tv1.Controller.TopRowIndex := topIndex;
end; end;
procedure TfrmJYOrderCDOne.Image1Click(Sender: TObject); procedure TfrmJYOrderCDOne.Image1Click(Sender: TObject);
@ -2270,5 +2309,91 @@ begin
end; end;
procedure TfrmJYOrderCDOne.ToolButton14Click(Sender: TObject);
var
InputValue: string;
topIndex: Integer;
begin
topIndex := tv1.Controller.TopRowIndex;
if InputQuery('落色修改', '请输入：', InputValue) then
begin
// if InputValue <> '' then
// begin
Order_Main.DisableControls;
Order_Main.First;
while not Order_Main.Eof do
begin
if Order_Main.FieldByName('ssel').AsBoolean then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.add(' update WFB_MJJY set fadColor = ' + QuotedStr(Trim(InputValue)));
SQL.Add(' where MJID = ' + QuotedStr(Trim(Order_Main.fieldByName('MJID').AsString)));
ExecSQL;
end;
end;
Order_Main.Next;
end;
Order_Main.EnableControls;
// end;
end;
tv1.Controller.TopRowIndex := topIndex;
end;
procedure TfrmJYOrderCDOne.ToolButton15Click(Sender: TObject);
var
InputValue: string;
topIndex: Integer;
numValue: Double;
begin
topIndex := tv1.Controller.TopRowIndex;
if InputQuery('系数修改', '请输入：', InputValue) then
begin
if TryStrToFloat(Trim(InputValue), numValue) then
begin
// 保留两位小数
InputValue := FormatFloat('0.00', numValue);
Order_Main.DisableControls;
try
Order_Main.First;
while not Order_Main.Eof do
begin
if Order_Main.FieldByName('ssel').AsBoolean then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add(' update WFB_MJJY set LenXS = ' + InputValue );
SQL.Add(' where MJID = ' + QuotedStr(Trim(Order_Main.FieldByName('MJID').AsString)));
SQL.Add(' update WFB_MJJY set oldLen = MJLen ' );
SQL.Add(' where MJID = ' + QuotedStr(Trim(Order_Main.FieldByName('MJID').AsString)));
SQL.Add('update WFB_MJJY set MJLen = MJQty4* ' + InputValue );
SQL.Add(' where MJID = ' + QuotedStr(Trim(Order_Main.FieldByName('MJID').AsString)));
// ShowMessage(SQL.Text);
ExecSQL;
end;
end;
Order_Main.Next;
end;
finally
Order_Main.EnableControls;
end;
end
else
begin
// 输入不是有效数字时的提示
ShowMessage('请输入有效的数字！');
end;
end;
tv1.Controller.TopRowIndex := topIndex;
end;
end. end.

184
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,8 +1,8 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 413 Left = 817
Top = 170 Top = 467
Width = 1366 Width = 1366
Height = 754 Height = 814
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 214 Width = 214
Height = 628 Height = 696
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -118,6 +118,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Styles.Header = cxStyle5 Styles.Header = cxStyle5
Width = 100 Width = 100
end end
object Tv3ftyStr4: TcxGridDBColumn
Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'ftyStr4'
HeaderAlignmentHorz = taCenter
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = Tv3 GridView = Tv3
@ -126,8 +131,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 633 Left = 633
Top = 87 Top = 87
Width = 717 Width = 725
Height = 628 Height = 696
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -978,7 +983,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 428 Left = 428
Top = 87 Top = 87
Width = 205 Width = 205
Height = 628 Height = 696
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -986,7 +991,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 2 TabOrder = 2
object Label9: TLabel object Label9: TLabel
Left = 152 Left = 152
Top = 78 Top = 109
Width = 15 Width = 15
Height = 22 Height = 22
Caption = 'M' Caption = 'M'
@ -1000,7 +1005,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label3: TLabel object Label3: TLabel
Left = 144 Left = 144
Top = 419 Top = 445
Width = 26 Width = 26
Height = 22 Height = 22
Caption = 'cm' Caption = 'cm'
@ -1013,7 +1018,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label4: TLabel object Label4: TLabel
Left = 152 Left = 152
Top = 185 Top = 212
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1026,7 +1031,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label5: TLabel object Label5: TLabel
Left = 8 Left = 8
Top = 77 Top = 106
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #38271#24230 Caption = #38271#24230
@ -1039,7 +1044,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label6: TLabel object Label6: TLabel
Left = 8 Left = 8
Top = 419 Top = 445
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #24133#23485 Caption = #24133#23485
@ -1052,7 +1057,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label11: TLabel object Label11: TLabel
Left = 8 Left = 8
Top = 185 Top = 212
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #27611#37325 Caption = #27611#37325
@ -1065,7 +1070,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label10: TLabel object Label10: TLabel
Left = 8 Left = 8
Top = 332 Top = 358
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #27491#21697 Caption = #27491#21697
@ -1078,7 +1083,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label12: TLabel object Label12: TLabel
Left = 92 Left = 92
Top = 332 Top = 358
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #27425#21697 Caption = #27425#21697
@ -1118,7 +1123,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label15: TLabel object Label15: TLabel
Left = 4 Left = 4
Top = 206 Top = 242
Width = 5 Width = 5
Height = 22 Height = 22
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1131,7 +1136,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label22: TLabel object Label22: TLabel
Left = 144 Left = 144
Top = 449 Top = 475
Width = 36 Width = 36
Height = 22 Height = 22
Caption = 'g/'#13217 Caption = 'g/'#13217
@ -1144,7 +1149,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label23: TLabel object Label23: TLabel
Left = 8 Left = 8
Top = 448 Top = 474
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20811#37325 Caption = #20811#37325
@ -1157,7 +1162,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label27: TLabel object Label27: TLabel
Left = 4 Left = 4
Top = 248 Top = 275
Width = 20 Width = 20
Height = 40 Height = 40
Caption = #36192#13#10#36865 Caption = #36192#13#10#36865
@ -1170,7 +1175,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label26: TLabel object Label26: TLabel
Left = 8 Left = 8
Top = 375 Top = 401
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20986#32440 Caption = #20986#32440
@ -1197,7 +1202,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label30: TLabel object Label30: TLabel
Left = 8 Left = 8
Top = 113 Top = 141
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #30382#37325 Caption = #30382#37325
@ -1210,7 +1215,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label31: TLabel object Label31: TLabel
Left = 152 Left = 152
Top = 149 Top = 176
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1223,7 +1228,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label32: TLabel object Label32: TLabel
Left = 8 Left = 8
Top = 149 Top = 176
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20928#37325 Caption = #20928#37325
@ -1236,7 +1241,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label33: TLabel object Label33: TLabel
Left = 152 Left = 152
Top = 114 Top = 145
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1249,7 +1254,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label34: TLabel object Label34: TLabel
Left = 90 Left = 90
Top = 378 Top = 404
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #20221#25968 Caption = #20221#25968
@ -1288,7 +1293,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label39: TLabel object Label39: TLabel
Left = 8 Left = 8
Top = 221 Top = 248
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #31995#25968 Caption = #31995#25968
@ -1327,7 +1332,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label28: TLabel object Label28: TLabel
Left = 10 Left = 10
Top = 296 Top = 323
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #21253#21495 Caption = #21253#21495
@ -1339,8 +1344,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label53: TLabel object Label53: TLabel
Left = 8 Left = 88
Top = 479 Top = 663
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #21305#25968 Caption = #21305#25968
@ -1350,10 +1355,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label54: TLabel object Label54: TLabel
Left = 101 Left = 101
Top = 250 Top = 277
Width = 20 Width = 20
Height = 40 Height = 40
Caption = #35753#13#10#37325 Caption = #35753#13#10#37325
@ -1364,9 +1370,36 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label55: TLabel
Left = 8
Top = 73
Width = 84
Height = 20
Caption = #26579#21378#32568#21495
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label56: TLabel
Left = 136
Top = 507
Width = 42
Height = 20
Caption = #33853#33394
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object MJFK: TEdit object MJFK: TEdit
Left = 51 Left = 51
Top = 413 Top = 439
Width = 90 Width = 90
Height = 30 Height = 30
AutoSize = False AutoSize = False
@ -1382,7 +1415,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJLen: TEdit object MJLen: TEdit
Left = 57 Left = 57
Top = 73 Top = 102
Width = 90 Width = 90
Height = 35 Height = 35
AutoSize = False AutoSize = False
@ -1400,7 +1433,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJMaoZ: TEdit object MJMaoZ: TEdit
Left = 57 Left = 57
Top = 181 Top = 208
Width = 90 Width = 90
Height = 35 Height = 35
AutoSize = False AutoSize = False
@ -1417,7 +1450,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object BTPrint: TButton object BTPrint: TButton
Left = 10 Left = 10
Top = 510 Top = 499
Width = 171 Width = 171
Height = 69 Height = 69
Caption = #25552#20132 Caption = #25552#20132
@ -1432,7 +1465,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit3: TEdit object Edit3: TEdit
Left = 52 Left = 52
Top = 326 Top = 352
Width = 39 Width = 39
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1449,7 +1482,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit4: TEdit object Edit4: TEdit
Left = 130 Left = 130
Top = 326 Top = 352
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1482,7 +1515,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
Left = 51 Left = 51
Top = 443 Top = 469
Width = 90 Width = 90
Height = 30 Height = 30
AutoSize = False AutoSize = False
@ -1498,7 +1531,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJQty2: TEdit object MJQty2: TEdit
Left = 25 Left = 25
Top = 253 Top = 280
Width = 76 Width = 76
Height = 35 Height = 35
AutoSize = False AutoSize = False
@ -1516,7 +1549,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit6: TEdit object Edit6: TEdit
Left = 52 Left = 52
Top = 369 Top = 395
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1550,7 +1583,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJQty3: TEdit object MJQty3: TEdit
Left = 57 Left = 57
Top = 109 Top = 137
Width = 90 Width = 90
Height = 35 Height = 35
AutoSize = False AutoSize = False
@ -1568,7 +1601,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJQty4: TEdit object MJQty4: TEdit
Left = 57 Left = 57
Top = 145 Top = 172
Width = 90 Width = 90
Height = 35 Height = 35
AutoSize = False AutoSize = False
@ -1586,7 +1619,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 132 Left = 132
Top = 370 Top = 396
Width = 45 Width = 45
Height = 40 Height = 40
Style = csDropDownList Style = csDropDownList
@ -1609,7 +1642,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJStr4: TEdit object MJStr4: TEdit
Left = 57 Left = 57
Top = 37 Top = 33
Width = 90 Width = 90
Height = 35 Height = 35
AutoSize = False AutoSize = False
@ -1629,7 +1662,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 57 Left = 57
Top = 1 Top = 1
Width = 90 Width = 90
Height = 35 Height = 32
AutoSize = False AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1643,7 +1676,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object kmxs: TEdit object kmxs: TEdit
Left = 57 Left = 57
Top = 217 Top = 244
Width = 90 Width = 90
Height = 35 Height = 35
AutoSize = False AutoSize = False
@ -1676,7 +1709,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object baoNo: TEdit object baoNo: TEdit
Left = 57 Left = 57
Top = 289 Top = 316
Width = 90 Width = 90
Height = 35 Height = 35
AutoSize = False AutoSize = False
@ -1699,7 +1732,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Button7: TButton object Button7: TButton
Left = 10 Left = 10
Top = 582 Top = 570
Width = 171 Width = 171
Height = 53 Height = 53
Caption = #25171#21253#26631#31614 Caption = #25171#21253#26631#31614
@ -1713,8 +1746,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Button7Click OnClick = Button7Click
end end
object Edit13: TEdit object Edit13: TEdit
Left = 51 Left = 131
Top = 474 Top = 658
Width = 90 Width = 90
Height = 35 Height = 35
AutoSize = False AutoSize = False
@ -1725,12 +1758,13 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 21 TabOrder = 21
Visible = False
OnClick = MJXHClick OnClick = MJXHClick
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJqty5: TEdit object MJqty5: TEdit
Left = 124 Left = 124
Top = 253 Top = 280
Width = 74 Width = 74
Height = 36 Height = 36
AutoSize = False AutoSize = False
@ -1746,6 +1780,44 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyDown = MJQty4KeyDown OnKeyDown = MJQty4KeyDown
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object FtyStr4: TEdit
Left = 94
Top = 67
Width = 90
Height = 35
AutoSize = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -28
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 23
OnClick = MJXHClick
OnExit = MJStr4Exit
OnKeyPress = MJstr3KeyPress
end
object fadColor: TEdit
Left = 185
Top = 499
Width = 90
Height = 35
AutoSize = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -28
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 24
Text = 'A'
Visible = False
OnClick = MJXHClick
OnExit = MJStr4Exit
OnKeyPress = MJstr3KeyPress
end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 635 Left = 635
@ -2001,7 +2073,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 214 Left = 214
Top = 87 Top = 87
Width = 214 Width = 214
Height = 628 Height = 696
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2010,7 +2082,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 210 Width = 210
Height = 303 Height = 371
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2118,7 +2190,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 305 Top = 373
Width = 210 Width = 210
Height = 28 Height = 28
Align = alBottom Align = alBottom
@ -2133,7 +2205,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 333 Top = 401
Width = 210 Width = 210
Height = 293 Height = 293
Align = alBottom Align = alBottom
@ -2346,7 +2418,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1350 Width = 1358
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2534,7 +2606,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1350 Width = 1358
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

13
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -266,6 +266,11 @@ type
Edit13: TEdit; Edit13: TEdit;
Label54: TLabel; Label54: TLabel;
MJqty5: TEdit; MJqty5: TEdit;
Label55: TLabel;
FtyStr4: TEdit;
Tv3ftyStr4: TcxGridDBColumn;
Label56: TLabel;
fadColor: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -1033,6 +1038,8 @@ begin
FieldByName('MJBanZu').Value := Trim(FBanZu); FieldByName('MJBanZu').Value := Trim(FBanZu);
FieldByName('MJstr3').Value := Trim(MJstr3.Text); FieldByName('MJstr3').Value := Trim(MJstr3.Text);
FieldByName('MJstr4').Value := Trim(MJstr4.Text); FieldByName('MJstr4').Value := Trim(MJstr4.Text);
FieldByName('Ftystr4').Value := Trim(Ftystr4.Text);
FieldByName('fadColor').Value := Trim(fadColor.Text);
FieldByName('MJstr5').Value := Trim(MJstr5.Text); FieldByName('MJstr5').Value := Trim(MJstr5.Text);
FieldByName('mjxh').Value := Trim(mjxh.Text); FieldByName('mjxh').Value := Trim(mjxh.Text);
// FieldByName('BaoNO').Value := Trim(BaoNO.Text); // FieldByName('BaoNO').Value := Trim(BaoNO.Text);
@ -2617,6 +2624,7 @@ begin
Edit3.Text := '¡Ì'; Edit3.Text := '¡Ì';
Edit4.Text := ''; Edit4.Text := '';
MJStr4.Text := Trim(ADOTmp.fieldbyname('PRTGH').AsString); MJStr4.Text := Trim(ADOTmp.fieldbyname('PRTGH').AsString);
fadColor.Text := 'A';
end end
else else
begin begin
@ -2629,6 +2637,8 @@ begin
FSubId := ''; FSubId := '';
AOrdDefNote1.Text := ''; AOrdDefNote1.Text := '';
MJStr4.Text := ''; MJStr4.Text := '';
ftyStr4.Text := '';
fadColor.Text := 'A';
fRollType := ''; fRollType := '';
Exit; Exit;
end; end;
@ -2847,6 +2857,9 @@ begin
Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString); Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString);
MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString); MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString);
MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString); MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
ftyStr4.Text := Trim(ADOTmp.fieldbyname('ftyStr4').AsString);
fadColor.Text := Trim(ADOTmp.fieldbyname('fadColor').AsString);
MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString); MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString); baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString);
baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString); baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);

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

@ -20,7 +20,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1374
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -187,7 +187,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1366 Width = 1374
Height = 40 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -416,7 +416,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1366 Width = 1374
Height = 333 Height = 333
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -764,8 +764,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 451 Top = 459
Width = 1366 Width = 1374
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -773,8 +773,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 459 Top = 467
Width = 1366 Width = 1374
Height = 256 Height = 256
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
@ -782,7 +782,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 987 Width = 995
Height = 254 Height = 254
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -1097,7 +1097,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 988 Left = 996
Top = 1 Top = 1
Width = 377 Width = 377
Height = 254 Height = 254
@ -1127,7 +1127,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 72 Top = 72
Width = 1366 Width = 1374
Height = 23 Height = 23
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -1140,7 +1140,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1366 ClientRectRight = 1374
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

15
打卷检验管理/U_ProductOrderNewList.pas
View File

@ -12,7 +12,20 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer,
cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu; dxBarBuiltInMenu, dxSkinsCore, 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, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmProductOrderNewList = class(TForm) TfrmProductOrderNewList = class(TForm)