码单
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
efea4acbf2
commit
2fe33b33ec
|
|
@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1392
|
Width = 1384
|
||||||
Height = 92
|
Height = 92
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
|
|
@ -285,7 +285,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 92
|
Top = 92
|
||||||
Width = 1392
|
Width = 1384
|
||||||
Height = 88
|
Height = 88
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
@ -801,8 +801,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 180
|
Top = 180
|
||||||
Width = 1392
|
Width = 1384
|
||||||
Height = 546
|
Height = 538
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PopupMenu1
|
PopupMenu = PopupMenu1
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
|
|
|
||||||
|
|
@ -1700,7 +1700,7 @@ begin
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.add('exec P_Do_PrintMd_HZ ');
|
sql.add('exec P_Do_PrintMd_HZ ');
|
||||||
sql.add('@mainID=' + quotedstr(Trim('')));
|
sql.add('@mainID=' + quotedstr(Trim('')));
|
||||||
sql.add(',@DName=' + quotedstr(Trim(DCode)));
|
sql.add(',@DName=' + quotedstr(Trim(DCode)));
|
||||||
sql.add(',@flag=''2'' ');
|
sql.add(',@flag=''2'' ');
|
||||||
|
|
|
||||||
|
|
@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 87
|
Top = 87
|
||||||
Width = 214
|
Width = 214
|
||||||
Height = 706
|
Height = 698
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object Tv3: TcxGridDBTableView
|
object Tv3: TcxGridDBTableView
|
||||||
|
|
@ -125,8 +125,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
object ScrollBox1: TScrollBox
|
object ScrollBox1: TScrollBox
|
||||||
Left = 633
|
Left = 633
|
||||||
Top = 87
|
Top = 87
|
||||||
Width = 725
|
Width = 717
|
||||||
Height = 706
|
Height = 698
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Color = clWhite
|
Color = clWhite
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
|
|
@ -977,7 +977,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
Left = 394
|
Left = 394
|
||||||
Top = 87
|
Top = 87
|
||||||
Width = 239
|
Width = 239
|
||||||
Height = 706
|
Height = 698
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
BevelOuter = bvLowered
|
BevelOuter = bvLowered
|
||||||
|
|
@ -2091,7 +2091,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
Left = 214
|
Left = 214
|
||||||
Top = 87
|
Top = 87
|
||||||
Width = 180
|
Width = 180
|
||||||
Height = 706
|
Height = 698
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
BevelOuter = bvLowered
|
BevelOuter = bvLowered
|
||||||
|
|
@ -2100,7 +2100,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
Left = 2
|
Left = 2
|
||||||
Top = 2
|
Top = 2
|
||||||
Width = 176
|
Width = 176
|
||||||
Height = 385
|
Height = 377
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object Tv2: TcxGridDBTableView
|
object Tv2: TcxGridDBTableView
|
||||||
|
|
@ -2208,7 +2208,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
end
|
end
|
||||||
object Panel8: TPanel
|
object Panel8: TPanel
|
||||||
Left = 2
|
Left = 2
|
||||||
Top = 387
|
Top = 379
|
||||||
Width = 176
|
Width = 176
|
||||||
Height = 28
|
Height = 28
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
|
|
@ -2223,7 +2223,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
end
|
end
|
||||||
object AOrdDefNote1: TRichEdit
|
object AOrdDefNote1: TRichEdit
|
||||||
Left = 2
|
Left = 2
|
||||||
Top = 656
|
Top = 648
|
||||||
Width = 176
|
Width = 176
|
||||||
Height = 48
|
Height = 48
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
|
|
@ -2239,7 +2239,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
end
|
end
|
||||||
object Panel5: TPanel
|
object Panel5: TPanel
|
||||||
Left = 2
|
Left = 2
|
||||||
Top = 415
|
Top = 407
|
||||||
Width = 176
|
Width = 176
|
||||||
Height = 241
|
Height = 241
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
|
|
@ -2515,7 +2515,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1358
|
Width = 1350
|
||||||
Height = 30
|
Height = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
|
|
@ -2688,7 +2688,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
object Panel6: TPanel
|
object Panel6: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 30
|
Top = 30
|
||||||
Width = 1358
|
Width = 1350
|
||||||
Height = 57
|
Height = 57
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
|
||||||
|
|
@ -3824,9 +3824,9 @@ begin
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.add('exec P_Do_PrintMd30_ban ');
|
sql.add('exec P_Do_PrintMd_ban ');
|
||||||
sql.add('@DName=' + quotedstr(Trim(DCode)));
|
sql.add('@DName=' + quotedstr(Trim(DCode)));
|
||||||
//SQL.Add(',@JTType=' + QuotedStr(SCXFlag));
|
SQL.Add(',@JTType=' + QuotedStr(SCXFlag));
|
||||||
// ShowMessage(SQL.text);
|
// ShowMessage(SQL.text);
|
||||||
sql.add('update WFB_MJJY set banflag= 1 from WFB_MJJY A ');
|
sql.add('update WFB_MJJY set banflag= 1 from WFB_MJJY A ');
|
||||||
SQL.Add(' where A.banno=''' + trim(Banno.Text) + ''' and A.mainID=''' + trim(fMainID) + '''');
|
SQL.Add(' where A.banno=''' + trim(Banno.Text) + ''' and A.mainID=''' + trim(fMainID) + '''');
|
||||||
|
|
@ -3853,9 +3853,9 @@ begin
|
||||||
begin
|
begin
|
||||||
Application.MessageBox('取板条码最大号失败！', '提示', 0);
|
Application.MessageBox('取板条码最大号失败！', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
BanID.Text := trim(FBanid);
|
BanID.Text := trim(FBanid);
|
||||||
|
|
||||||
ExportFtErpFile('板标签.rmf', ADOCmd);
|
ExportFtErpFile('板标签.rmf', ADOCmd);
|
||||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\板标签.rmf';
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\板标签.rmf';
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1817,6 +1817,12 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 60
|
Width = 60
|
||||||
end
|
end
|
||||||
|
object Tv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #21333#20215
|
||||||
|
DataBinding.FieldName = 'price'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 50
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
|
|
|
||||||
|
|
@ -192,6 +192,7 @@ type
|
||||||
ToolButton4: TToolButton;
|
ToolButton4: TToolButton;
|
||||||
QryCheckNet: TADOQuery;
|
QryCheckNet: TADOQuery;
|
||||||
Tv1Column1: TcxGridDBColumn;
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure TBSaveClick(Sender: TObject);
|
procedure TBSaveClick(Sender: TObject);
|
||||||
|
|
|
||||||
524
打卷检验管理/U_YFHZ_EMX.dfm
Normal file
524
打卷检验管理/U_YFHZ_EMX.dfm
Normal file
|
|
@ -0,0 +1,524 @@
|
||||||
|
object frmYFHZ_EMX: TfrmYFHZ_EMX
|
||||||
|
Left = 440
|
||||||
|
Top = 228
|
||||||
|
Width = 1031
|
||||||
|
Height = 645
|
||||||
|
Caption = #20108#32423#36153#29992#26126#32454
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnDestroy = FormDestroy
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ToolBar1: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1015
|
||||||
|
Height = 31
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 107
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clSkyBlue
|
||||||
|
DisabledImages = DataLink_YSYF.ThreeImgList
|
||||||
|
Flat = True
|
||||||
|
Images = DataLink_YSYF.ThreeImgList
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object TBRafresh: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 9
|
||||||
|
OnClick = TBRafreshClick
|
||||||
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #36807#28388
|
||||||
|
ImageIndex = 59
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
end
|
||||||
|
object TCK: TToolButton
|
||||||
|
Left = 126
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #26597#30475#20184#27454#26126#32454
|
||||||
|
ImageIndex = 57
|
||||||
|
OnClick = TCKClick
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 237
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23548#20986
|
||||||
|
ImageIndex = 53
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 300
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 55
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 31
|
||||||
|
Width = 1015
|
||||||
|
Height = 59
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clSkyBlue
|
||||||
|
TabOrder = 1
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 446
|
||||||
|
Top = 5
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #23545#26041#21333#20301
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 280
|
||||||
|
Top = 5
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #26597#35810#26085#26399
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 522
|
||||||
|
Top = 62
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #25903#20184#21488#22836
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 17
|
||||||
|
Width = 72
|
||||||
|
Height = 12
|
||||||
|
Caption = #20108#32423#36153#29992#21517#31216
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 577
|
||||||
|
Top = 58
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #20184#27454#25260#22836
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 658
|
||||||
|
Top = 28
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #21697' '#21517
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 658
|
||||||
|
Top = 5
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #24320#31080#31867#22411
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 820
|
||||||
|
Top = 5
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #20184#27454#31867#22411
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object begdate: TDateTimePicker
|
||||||
|
Left = 330
|
||||||
|
Top = 1
|
||||||
|
Width = 96
|
||||||
|
Height = 20
|
||||||
|
Date = 41256.918237847230000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 41256.918237847230000000
|
||||||
|
TabOrder = 0
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Enddate: TDateTimePicker
|
||||||
|
Left = 330
|
||||||
|
Top = 25
|
||||||
|
Width = 96
|
||||||
|
Height = 20
|
||||||
|
Date = 41256.918237847230000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 41256.918237847230000000
|
||||||
|
TabOrder = 1
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object YFName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 112
|
||||||
|
Top = 13
|
||||||
|
Width = 136
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = FactoryNameChange
|
||||||
|
end
|
||||||
|
object FKTaitou: TEdit
|
||||||
|
Left = 629
|
||||||
|
Top = 54
|
||||||
|
Width = 90
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
OnChange = FactoryNameChange
|
||||||
|
end
|
||||||
|
object FactoryName: TComboBox
|
||||||
|
Left = 496
|
||||||
|
Top = 1
|
||||||
|
Width = 136
|
||||||
|
Height = 20
|
||||||
|
ItemHeight = 12
|
||||||
|
TabOrder = 4
|
||||||
|
Visible = False
|
||||||
|
OnChange = FactoryNameChange
|
||||||
|
end
|
||||||
|
object P_Codename: TEdit
|
||||||
|
Left = 709
|
||||||
|
Top = 24
|
||||||
|
Width = 94
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 5
|
||||||
|
Visible = False
|
||||||
|
OnChange = FactoryNameChange
|
||||||
|
end
|
||||||
|
object KPType: TEdit
|
||||||
|
Left = 709
|
||||||
|
Top = 1
|
||||||
|
Width = 94
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 6
|
||||||
|
Visible = False
|
||||||
|
OnChange = FactoryNameChange
|
||||||
|
end
|
||||||
|
object PayMent: TEdit
|
||||||
|
Left = 870
|
||||||
|
Top = 1
|
||||||
|
Width = 95
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 7
|
||||||
|
Visible = False
|
||||||
|
OnChange = FactoryNameChange
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 90
|
||||||
|
Width = 1015
|
||||||
|
Height = 439
|
||||||
|
Align = alTop
|
||||||
|
TabOrder = 2
|
||||||
|
object Tv2: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
Navigator.Buttons.Delete.Enabled = False
|
||||||
|
Navigator.Buttons.Delete.Visible = False
|
||||||
|
OnCellDblClick = Tv2CellDblClick
|
||||||
|
DataController.DataSource = DS_HZ
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
Column = v2Qty
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2Qty
|
||||||
|
end>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2yfk
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2fk
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2Qty
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2YFName
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2KPType
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2PayMent
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2FKNo
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2Price
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv2Column1
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv2Column2
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2Column10
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv2Column3
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2yfkye
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsData.Deleting = False
|
||||||
|
OptionsData.DeletingConfirmation = False
|
||||||
|
OptionsData.Editing = False
|
||||||
|
OptionsSelection.CellSelect = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
Styles.Inactive = DataLink_YSYF.SHuangSe
|
||||||
|
Styles.IncSearch = DataLink_YSYF.SHuangSe
|
||||||
|
Styles.Selection = DataLink_YSYF.SHuangSe
|
||||||
|
Styles.Header = DataLink_YSYF.FonePurple
|
||||||
|
object v2Column2: TcxGridDBColumn
|
||||||
|
Caption = #19968#32423#36153#29992#21517#31216
|
||||||
|
DataBinding.FieldName = 'SQType'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Sorting = False
|
||||||
|
SortIndex = 0
|
||||||
|
SortOrder = soAscending
|
||||||
|
Width = 126
|
||||||
|
end
|
||||||
|
object v2Column1: TcxGridDBColumn
|
||||||
|
Caption = #20108#32423#36153#29992#21517#31216
|
||||||
|
DataBinding.FieldName = 'YFName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 104
|
||||||
|
end
|
||||||
|
object v2YFName: TcxGridDBColumn
|
||||||
|
Caption = '1'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M1'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v2KPType: TcxGridDBColumn
|
||||||
|
Caption = '2'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M2'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v2PayMent: TcxGridDBColumn
|
||||||
|
Caption = '3'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M3'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v2FKNo: TcxGridDBColumn
|
||||||
|
Caption = '4'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M4'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v2Qty: TcxGridDBColumn
|
||||||
|
Caption = '5'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M5'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v2Price: TcxGridDBColumn
|
||||||
|
Caption = '6'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M6'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v2yfk: TcxGridDBColumn
|
||||||
|
Caption = '7'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M7'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v2fk: TcxGridDBColumn
|
||||||
|
Caption = '8'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M8'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object Tv2Column1: TcxGridDBColumn
|
||||||
|
Caption = '9'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M9'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object Tv2Column2: TcxGridDBColumn
|
||||||
|
Caption = '10'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M10'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v2Column10: TcxGridDBColumn
|
||||||
|
Caption = '11'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M11'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object Tv2Column3: TcxGridDBColumn
|
||||||
|
Caption = '12'#26376#20221
|
||||||
|
DataBinding.FieldName = 'M12'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v2yfkye: TcxGridDBColumn
|
||||||
|
Caption = #24180#21512#35745
|
||||||
|
DataBinding.FieldName = 'M_Total'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Sorting = False
|
||||||
|
Styles.Content = DataLink_YSYF.FontBlue
|
||||||
|
Styles.Footer = DataLink_YSYF.FontBlue
|
||||||
|
Styles.Header = DataLink_YSYF.FontBlue
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel1: TcxGridLevel
|
||||||
|
GridView = Tv2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_YSYF.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 789
|
||||||
|
Top = 9
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_YSYF.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 829
|
||||||
|
Top = 1
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_YSYF.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 379
|
||||||
|
Top = 208
|
||||||
|
end
|
||||||
|
object RM1: TRMGridReport
|
||||||
|
ThreadPrepareReport = True
|
||||||
|
InitialZoom = pzDefault
|
||||||
|
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||||
|
DefaultCollate = False
|
||||||
|
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||||
|
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||||
|
PreviewOptions.RulerVisible = False
|
||||||
|
PreviewOptions.DrawBorder = False
|
||||||
|
PreviewOptions.BorderPen.Color = clGray
|
||||||
|
PreviewOptions.BorderPen.Style = psDash
|
||||||
|
Dataset = RMDB_Main
|
||||||
|
CompressLevel = rmzcFastest
|
||||||
|
CompressThread = False
|
||||||
|
LaterBuildEvents = True
|
||||||
|
OnlyOwnerDataSet = False
|
||||||
|
Left = 443
|
||||||
|
Top = 208
|
||||||
|
ReportData = {}
|
||||||
|
end
|
||||||
|
object RMDB_Main: TRMDBDataSet
|
||||||
|
Visible = True
|
||||||
|
Left = 411
|
||||||
|
Top = 208
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid2
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 510
|
||||||
|
Top = 209
|
||||||
|
end
|
||||||
|
object DS_HZ: TDataSource
|
||||||
|
DataSet = CDS_HZ
|
||||||
|
Left = 543
|
||||||
|
Top = 208
|
||||||
|
end
|
||||||
|
object CDS_HZ: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 477
|
||||||
|
Top = 207
|
||||||
|
end
|
||||||
|
end
|
||||||
216
打卷检验管理/U_YFHZ_EMX.pas
Normal file
216
打卷检验管理/U_YFHZ_EMX.pas
Normal file
|
|
@ -0,0 +1,216 @@
|
||||||
|
unit U_YFHZ_EMX;
|
||||||
|
|
||||||
|
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,
|
||||||
|
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, cxLookAndFeels, cxLookAndFeelPainters, 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, cxNavigator;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmYFHZ_EMX = class(TForm)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
Panel1: TPanel;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
RM1: TRMGridReport;
|
||||||
|
RMDB_Main: TRMDBDataSet;
|
||||||
|
Label3: TLabel;
|
||||||
|
cxGrid2: TcxGrid;
|
||||||
|
Tv2: TcxGridDBTableView;
|
||||||
|
cxGridLevel1: TcxGridLevel;
|
||||||
|
Label2: TLabel;
|
||||||
|
begdate: TDateTimePicker;
|
||||||
|
Enddate: TDateTimePicker;
|
||||||
|
cxGridPopupMenu2: TcxGridPopupMenu;
|
||||||
|
DS_HZ: TDataSource;
|
||||||
|
CDS_HZ: TClientDataSet;
|
||||||
|
Label1: TLabel;
|
||||||
|
v2Column1: TcxGridDBColumn;
|
||||||
|
v2Column2: TcxGridDBColumn;
|
||||||
|
v2Qty: TcxGridDBColumn;
|
||||||
|
v2Price: TcxGridDBColumn;
|
||||||
|
v2yfk: TcxGridDBColumn;
|
||||||
|
v2fk: TcxGridDBColumn;
|
||||||
|
v2Column10: TcxGridDBColumn;
|
||||||
|
v2yfkye: TcxGridDBColumn;
|
||||||
|
v2YFName: TcxGridDBColumn;
|
||||||
|
Label5: TLabel;
|
||||||
|
YFName: TEdit;
|
||||||
|
Label7: TLabel;
|
||||||
|
FKTaitou: TEdit;
|
||||||
|
FactoryName: TComboBox;
|
||||||
|
Label6: TLabel;
|
||||||
|
P_Codename: TEdit;
|
||||||
|
v2KPType: TcxGridDBColumn;
|
||||||
|
v2PayMent: TcxGridDBColumn;
|
||||||
|
Label4: TLabel;
|
||||||
|
KPType: TEdit;
|
||||||
|
Label8: TLabel;
|
||||||
|
PayMent: TEdit;
|
||||||
|
v2FKNo: TcxGridDBColumn;
|
||||||
|
Tv2Column1: TcxGridDBColumn;
|
||||||
|
Tv2Column2: TcxGridDBColumn;
|
||||||
|
Tv2Column3: TcxGridDBColumn;
|
||||||
|
TCK: TToolButton;
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
|
procedure FactoryNameChange(Sender: TObject);
|
||||||
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure TCKClick(Sender: TObject);
|
||||||
|
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
procedure InitGrid();
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
RKFlag, FCYID, FSQType, Fyear: string;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmYFHZ_EMX: TfrmYFHZ_EMX;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_Fun, U_ZDYHelp, U_YFHZ_MX;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.InitGrid();
|
||||||
|
var
|
||||||
|
FMoney: double;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('exec P_FK_HZ_M_E @year=''' + Trim(Fyear) + '''');
|
||||||
|
sql.Add(',@SQType=''' + FSQType + '''');
|
||||||
|
// ShowMessage(SQL.text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
||||||
|
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
||||||
|
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frmYFHZ_EMX := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(self.Caption, Tv2, '랗섬롤痰츠玖');
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.FormShow(Sender: TObject);
|
||||||
|
var
|
||||||
|
fsj: string;
|
||||||
|
begin
|
||||||
|
ReadCxGrid(self.Caption, Tv2, '랗섬롤痰츠玖');
|
||||||
|
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
|
||||||
|
begdate.DateTime := Enddate.DateTime - 7;
|
||||||
|
// fsj:='select distinct (A.FactoryName) name from YF_Money_CR A where A.CRType=''壇마운되션'' ';
|
||||||
|
// SInitComBoxBySql(ADOQueryCmd,FactoryName,False,fsj);
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.TBRafreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.ToolButton2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
// initgrid();
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
||||||
|
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.FactoryNameChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ToolButton2.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
TcxGridToExcel(self.Caption, cxgrid2);
|
||||||
|
// SelExportData(Tv2,ADOQueryMain,'壇마운마운固셕죗깊');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cxGrid2.Align := AlClient;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.TCKClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frmYFHZ_MX := TfrmYFHZ_MX.Create(self);
|
||||||
|
with frmYFHZ_MX do
|
||||||
|
begin
|
||||||
|
Fyear := Trim(FormatDateTime('yyyy', self.BegDate.Date));
|
||||||
|
FSQType := Trim(Self.CDS_HZ.fieldbyname('SQType').AsString);
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmYFHZ_EMX.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||||
|
begin
|
||||||
|
TCK.Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user