~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
ee8bcc930c
commit
c4a251ad82
|
|
@ -111,7 +111,7 @@ begin
|
||||||
////////////////////
|
////////////////////
|
||||||
/////////////////////
|
/////////////////////
|
||||||
//调用子模块窗口
|
//调用子模块窗口
|
||||||
case FormID of
|
case FormID of
|
||||||
201: //生产指示单
|
201: //生产指示单
|
||||||
begin
|
begin
|
||||||
if frmProductOrderNewList = nil then
|
if frmProductOrderNewList = nil then
|
||||||
|
|
@ -141,7 +141,7 @@ begin
|
||||||
begin
|
begin
|
||||||
caption := Trim(Title);
|
caption := Trim(Title);
|
||||||
fdatabase := trim(DataBase);
|
fdatabase := trim(DataBase);
|
||||||
// fdatabase:=trim('²éѯ');
|
// fdatabase:=trim('²éѯ');
|
||||||
FormStyle := mstyle;
|
FormStyle := mstyle;
|
||||||
windowState := mstate;
|
windowState := mstate;
|
||||||
BorderStyle := mborderstyle;
|
BorderStyle := mborderstyle;
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
Left = 322
|
Left = 322
|
||||||
Top = 165
|
Top = 165
|
||||||
Width = 1366
|
Width = 1534
|
||||||
Height = 754
|
Height = 754
|
||||||
Caption = #25104#21697#26816#39564
|
Caption = #25104#21697#26816#39564
|
||||||
Color = clBtnFace
|
Color = clBtnFace
|
||||||
|
|
@ -125,7 +125,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
object ScrollBox1: TScrollBox
|
object ScrollBox1: TScrollBox
|
||||||
Left = 633
|
Left = 633
|
||||||
Top = 87
|
Top = 87
|
||||||
Width = 717
|
Width = 885
|
||||||
Height = 628
|
Height = 628
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Color = clWhite
|
Color = clWhite
|
||||||
|
|
@ -972,6 +972,410 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
Visible = False
|
Visible = False
|
||||||
OnClick = SpeedButton13Click
|
OnClick = SpeedButton13Click
|
||||||
end
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = -12
|
||||||
|
Top = 91
|
||||||
|
Width = 413
|
||||||
|
Height = 483
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clSkyBlue
|
||||||
|
TabOrder = 0
|
||||||
|
Visible = False
|
||||||
|
object SpeedButton48: TSpeedButton
|
||||||
|
Left = 249
|
||||||
|
Top = 10
|
||||||
|
Width = 69
|
||||||
|
Height = 72
|
||||||
|
Caption = 'D'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton58: TSpeedButton
|
||||||
|
Left = 330
|
||||||
|
Top = 10
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'E'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton67: TSpeedButton
|
||||||
|
Left = 168
|
||||||
|
Top = 87
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'H'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton76: TSpeedButton
|
||||||
|
Left = 6
|
||||||
|
Top = 10
|
||||||
|
Width = 69
|
||||||
|
Height = 72
|
||||||
|
Caption = 'A'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton83: TSpeedButton
|
||||||
|
Left = 86
|
||||||
|
Top = 10
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'B'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton84: TSpeedButton
|
||||||
|
Left = 168
|
||||||
|
Top = 10
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'C'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton86: TSpeedButton
|
||||||
|
Left = 87
|
||||||
|
Top = 397
|
||||||
|
Width = 150
|
||||||
|
Height = 72
|
||||||
|
Caption = #8592
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton12Click
|
||||||
|
end
|
||||||
|
object SpeedButton87: TSpeedButton
|
||||||
|
Tag = 9
|
||||||
|
Left = 252
|
||||||
|
Top = 397
|
||||||
|
Width = 146
|
||||||
|
Height = 69
|
||||||
|
Caption = #38544#34255
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -28
|
||||||
|
Font.Name = #26999#20307'_GB2312'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton87Click
|
||||||
|
end
|
||||||
|
object SpeedButton21: TSpeedButton
|
||||||
|
Left = 249
|
||||||
|
Top = 87
|
||||||
|
Width = 69
|
||||||
|
Height = 72
|
||||||
|
Caption = 'I'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton30: TSpeedButton
|
||||||
|
Left = 330
|
||||||
|
Top = 87
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'J'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton39: TSpeedButton
|
||||||
|
Left = 86
|
||||||
|
Top = 165
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'L'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton44: TSpeedButton
|
||||||
|
Left = 86
|
||||||
|
Top = 242
|
||||||
|
Width = 69
|
||||||
|
Height = 72
|
||||||
|
Caption = 'Q'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton85: TSpeedButton
|
||||||
|
Left = 168
|
||||||
|
Top = 165
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'M'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton88: TSpeedButton
|
||||||
|
Left = 249
|
||||||
|
Top = 165
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'N'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton89: TSpeedButton
|
||||||
|
Left = 330
|
||||||
|
Top = 165
|
||||||
|
Width = 69
|
||||||
|
Height = 72
|
||||||
|
Caption = 'O'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton90: TSpeedButton
|
||||||
|
Left = 168
|
||||||
|
Top = 242
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'R'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton91: TSpeedButton
|
||||||
|
Left = 249
|
||||||
|
Top = 242
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'S'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton92: TSpeedButton
|
||||||
|
Left = 5
|
||||||
|
Top = 320
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'U'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton93: TSpeedButton
|
||||||
|
Left = 86
|
||||||
|
Top = 320
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'V'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton94: TSpeedButton
|
||||||
|
Left = 168
|
||||||
|
Top = 320
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'W'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton95: TSpeedButton
|
||||||
|
Left = 330
|
||||||
|
Top = 242
|
||||||
|
Width = 69
|
||||||
|
Height = 72
|
||||||
|
Caption = 'T'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton96: TSpeedButton
|
||||||
|
Left = 250
|
||||||
|
Top = 320
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'X'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton97: TSpeedButton
|
||||||
|
Left = 5
|
||||||
|
Top = 87
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'F'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton98: TSpeedButton
|
||||||
|
Left = 5
|
||||||
|
Top = 242
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'P'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton99: TSpeedButton
|
||||||
|
Left = 5
|
||||||
|
Top = 165
|
||||||
|
Width = 69
|
||||||
|
Height = 72
|
||||||
|
Caption = 'K'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton100: TSpeedButton
|
||||||
|
Left = 5
|
||||||
|
Top = 397
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'Z'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnDblClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton101: TSpeedButton
|
||||||
|
Left = 330
|
||||||
|
Top = 320
|
||||||
|
Width = 69
|
||||||
|
Height = 72
|
||||||
|
Caption = 'Y'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton102: TSpeedButton
|
||||||
|
Left = 86
|
||||||
|
Top = 87
|
||||||
|
Width = 70
|
||||||
|
Height = 72
|
||||||
|
Caption = 'G'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object Panel2: TPanel
|
object Panel2: TPanel
|
||||||
Left = 428
|
Left = 428
|
||||||
|
|
@ -1674,6 +2078,29 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
TabOrder = 20
|
TabOrder = 20
|
||||||
OnClick = Button7Click
|
OnClick = Button7Click
|
||||||
end
|
end
|
||||||
|
object ComboBox3: TComboBox
|
||||||
|
Left = 153
|
||||||
|
Top = 247
|
||||||
|
Width = 45
|
||||||
|
Height = 40
|
||||||
|
Style = csDropDownList
|
||||||
|
Font.Charset = ANSI_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -28
|
||||||
|
Font.Name = 'Times New Roman'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
ItemHeight = 32
|
||||||
|
ItemIndex = 0
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 21
|
||||||
|
Text = '1'
|
||||||
|
Items.Strings = (
|
||||||
|
'1'
|
||||||
|
'2'
|
||||||
|
'3'
|
||||||
|
'4')
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object MovePanel1: TMovePanel
|
object MovePanel1: TMovePanel
|
||||||
Left = 634
|
Left = 634
|
||||||
|
|
@ -2258,9 +2685,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
object SpeedButton49: TSpeedButton
|
object SpeedButton49: TSpeedButton
|
||||||
Tag = 9
|
Tag = 9
|
||||||
Left = 278
|
Left = 278
|
||||||
Top = 90
|
Top = 168
|
||||||
Width = 70
|
Width = 70
|
||||||
Height = 237
|
Height = 159
|
||||||
Caption = #38544#34255
|
Caption = #38544#34255
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
|
|
@ -2270,11 +2697,25 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
OnClick = SpeedButton49Click
|
OnClick = SpeedButton49Click
|
||||||
end
|
end
|
||||||
|
object SpeedButton19: TSpeedButton
|
||||||
|
Left = 277
|
||||||
|
Top = 86
|
||||||
|
Width = 71
|
||||||
|
Height = 72
|
||||||
|
Caption = #33521#25991
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -37
|
||||||
|
Font.Name = #40657#20307
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
OnClick = SpeedButton19Click
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object ToolBar1: TToolBar
|
object ToolBar1: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1350
|
Width = 1518
|
||||||
Height = 30
|
Height = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
|
|
@ -2462,7 +2903,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
object Panel6: TPanel
|
object Panel6: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 30
|
Top = 30
|
||||||
Width = 1350
|
Width = 1518
|
||||||
Height = 57
|
Height = 57
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
unit U_MJManageNewFDNew;
|
unit U_MJManageNewFDNew;
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
|
Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
|
||||||
Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||||
|
|
@ -10,7 +10,20 @@ uses
|
||||||
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
|
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
|
||||||
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
|
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||||
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
|
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
|
||||||
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI;
|
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
|
||||||
|
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
|
||||||
TfrmMJManageNewFDNewSF = class(TForm)
|
TfrmMJManageNewFDNewSF = class(TForm)
|
||||||
|
|
@ -249,6 +262,37 @@ type
|
||||||
RM3: TRMGridReport;
|
RM3: TRMGridReport;
|
||||||
Edit5: TEdit;
|
Edit5: TEdit;
|
||||||
Label43: TLabel;
|
Label43: TLabel;
|
||||||
|
SpeedButton19: TSpeedButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
SpeedButton48: TSpeedButton;
|
||||||
|
SpeedButton58: TSpeedButton;
|
||||||
|
SpeedButton67: TSpeedButton;
|
||||||
|
SpeedButton76: TSpeedButton;
|
||||||
|
SpeedButton83: TSpeedButton;
|
||||||
|
SpeedButton84: TSpeedButton;
|
||||||
|
SpeedButton86: TSpeedButton;
|
||||||
|
SpeedButton87: TSpeedButton;
|
||||||
|
SpeedButton21: TSpeedButton;
|
||||||
|
SpeedButton30: TSpeedButton;
|
||||||
|
SpeedButton39: TSpeedButton;
|
||||||
|
SpeedButton44: TSpeedButton;
|
||||||
|
SpeedButton85: TSpeedButton;
|
||||||
|
SpeedButton88: TSpeedButton;
|
||||||
|
SpeedButton89: TSpeedButton;
|
||||||
|
SpeedButton90: TSpeedButton;
|
||||||
|
SpeedButton91: TSpeedButton;
|
||||||
|
SpeedButton92: TSpeedButton;
|
||||||
|
SpeedButton93: TSpeedButton;
|
||||||
|
SpeedButton94: TSpeedButton;
|
||||||
|
SpeedButton95: TSpeedButton;
|
||||||
|
SpeedButton96: TSpeedButton;
|
||||||
|
SpeedButton97: TSpeedButton;
|
||||||
|
SpeedButton98: TSpeedButton;
|
||||||
|
SpeedButton99: TSpeedButton;
|
||||||
|
SpeedButton100: TSpeedButton;
|
||||||
|
SpeedButton101: TSpeedButton;
|
||||||
|
SpeedButton102: TSpeedButton;
|
||||||
|
ComboBox3: TComboBox;
|
||||||
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);
|
||||||
|
|
@ -307,6 +351,8 @@ type
|
||||||
procedure Timer1Timer(Sender: TObject);
|
procedure Timer1Timer(Sender: TObject);
|
||||||
procedure TBCDClick(Sender: TObject);
|
procedure TBCDClick(Sender: TObject);
|
||||||
procedure Edit5Click(Sender: TObject);
|
procedure Edit5Click(Sender: TObject);
|
||||||
|
procedure SpeedButton19Click(Sender: TObject);
|
||||||
|
procedure SpeedButton87Click(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
|
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
|
||||||
|
|
@ -427,11 +473,11 @@ begin
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if FileExists(fPrintFile) then
|
if FileExists(fPrintFile) then
|
||||||
begin
|
begin
|
||||||
RMVariables['QRBARCODE'] := fImagePath;
|
RMVariables['QRBARCODE'] := fImagePath;
|
||||||
RM2.LoadFromFile(fPrintFile);
|
RM2.LoadFromFile(fPrintFile);
|
||||||
RM2.DefaultCopies := 1;
|
RM2.DefaultCopies := strtointdef(trim(ComboBox3.Text), 1);
|
||||||
//RM2.ShowReport;
|
//RM2.ShowReport;
|
||||||
RM2.printReport;
|
RM2.printReport;
|
||||||
end;
|
end;
|
||||||
|
|
@ -1568,13 +1614,13 @@ var
|
||||||
begin
|
begin
|
||||||
with ADOCmd do
|
with ADOCmd do
|
||||||
begin
|
begin
|
||||||
close;
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('SELECT ISNULL(sum(mjlen) , 0) as cc,A.PRTOrderQty FROM WFB_MJJY b ');
|
sql.Add('SELECT ISNULL(sum(mjlen) , 0) as cc,A.PRTOrderQty FROM WFB_MJJY b ');
|
||||||
SQL.Add('RIGHT join JYOrder_Sub A on A.Subid= b.subid ');
|
SQL.Add('RIGHT join JYOrder_Sub A on A.Subid= b.subid ');
|
||||||
sql.Add('where a.Subid=''' + Trim(FSubId) + ''' ');
|
sql.Add('where a.Subid=''' + Trim(FSubId) + ''' ');
|
||||||
SQL.Add('group by PRTOrderQty ');
|
SQL.Add('group by PRTOrderQty ');
|
||||||
// ShowMessage(SQL.Text );
|
// ShowMessage(SQL.Text );
|
||||||
open;
|
open;
|
||||||
end;
|
end;
|
||||||
zc := strtofloatdef(Trim(ADOCmd.fieldbyname('cc').AsString), 0);
|
zc := strtofloatdef(Trim(ADOCmd.fieldbyname('cc').AsString), 0);
|
||||||
|
|
@ -1761,7 +1807,7 @@ var
|
||||||
Txt, fImagePath: string;
|
Txt, fImagePath: string;
|
||||||
Moudle: THandle;
|
Moudle: THandle;
|
||||||
Makebar: TMakebar;
|
Makebar: TMakebar;
|
||||||
Mixtext: TMixtext;
|
Mixtext: TMixtext;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
with ADOQueryPrint do
|
with ADOQueryPrint do
|
||||||
|
|
@ -2243,6 +2289,18 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Panel1.Visible := false;
|
||||||
|
with Panel1 do
|
||||||
|
begin
|
||||||
|
for i := 0 to ControlCount - 1 do
|
||||||
|
begin
|
||||||
|
if Controls[i] is TSpeedButton then
|
||||||
|
begin
|
||||||
|
TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmMJManageNewFDNewSF.Edit2Change(Sender: TObject);
|
procedure TfrmMJManageNewFDNewSF.Edit2Change(Sender: TObject);
|
||||||
|
|
@ -2467,16 +2525,16 @@ begin
|
||||||
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
|
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
|
||||||
FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat;
|
FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat;
|
||||||
FJC := ADOTmp.fieldbyname('jiachang').AsFloat;
|
FJC := ADOTmp.fieldbyname('jiachang').AsFloat;
|
||||||
FDC := StrToFloatDef(ADOTmp.fieldbyname('DC').asstring, 0);
|
FDC := StrToFloatDef(ADOTmp.fieldbyname('DC').asstring, 0);
|
||||||
fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString);
|
fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString);
|
||||||
fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString);
|
fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString);
|
||||||
if FDC <> 0 then
|
if FDC <> 0 then
|
||||||
begin
|
begin
|
||||||
Edit12.Visible := True;
|
Edit12.Visible := True;
|
||||||
Label51.Visible := True;
|
Label51.Visible := True;
|
||||||
Edit12.Text := '¡Ì';
|
Edit12.Text := '¡Ì';
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
Edit12.Visible := False;
|
Edit12.Visible := False;
|
||||||
Label51.Visible := False;
|
Label51.Visible := False;
|
||||||
|
|
@ -2504,7 +2562,7 @@ begin
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
baoid.Text := FBaoID;
|
baoid.Text := FBaoID;
|
||||||
Edit3.Text := '¡Ì';
|
Edit3.Text := '¡Ì';
|
||||||
Edit4.Text := '';
|
Edit4.Text := '';
|
||||||
MJStr4.Text := Trim(ADOTmp.fieldbyname('PRTgh').AsString);
|
MJStr4.Text := Trim(ADOTmp.fieldbyname('PRTgh').AsString);
|
||||||
end
|
end
|
||||||
|
|
@ -2580,6 +2638,18 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Panel1.Visible := false;
|
||||||
|
with Panel1 do
|
||||||
|
begin
|
||||||
|
for i := 0 to ControlCount - 1 do
|
||||||
|
begin
|
||||||
|
if Controls[i] is TSpeedButton then
|
||||||
|
begin
|
||||||
|
TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject);
|
procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject);
|
||||||
|
|
@ -2895,7 +2965,7 @@ begin
|
||||||
begin
|
begin
|
||||||
RMVariables['QRBARCODE'] := fImagePath;
|
RMVariables['QRBARCODE'] := fImagePath;
|
||||||
RM2.LoadFromFile(fPrintFile);
|
RM2.LoadFromFile(fPrintFile);
|
||||||
RM2.DefaultCopies := 1;
|
RM2.DefaultCopies := strtointdef(trim(ComboBox3.Text), 1);
|
||||||
//RM2.ShowReport;
|
//RM2.ShowReport;
|
||||||
RM2.printReport;
|
RM2.printReport;
|
||||||
end;
|
end;
|
||||||
|
|
@ -2995,5 +3065,16 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMJManageNewFDNewSF.SpeedButton19Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Panel3.Visible := False;
|
||||||
|
Panel1.Visible := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMJManageNewFDNewSF.SpeedButton87Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Panel1.Visible := False;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1849,6 +1849,12 @@ object frmOrderInPut: TfrmOrderInPut
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 60
|
Width = 60
|
||||||
end
|
end
|
||||||
|
object Tv1Column8: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143#32568#21495
|
||||||
|
DataBinding.FieldName = 'KHGH'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
unit U_OrderInPut;
|
unit U_OrderInPut;
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
|
@ -12,7 +12,20 @@ uses
|
||||||
cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit,
|
cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit,
|
||||||
cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator,
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator,
|
||||||
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview,
|
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview,
|
||||||
RM_DsgGridReport, RM_e_Graphic, RM_e_bmp;
|
RM_DsgGridReport, RM_e_Graphic, RM_e_bmp, 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
|
||||||
TfrmOrderInPut = class(TForm)
|
TfrmOrderInPut = class(TForm)
|
||||||
|
|
@ -185,6 +198,7 @@ type
|
||||||
Tv1Column5: TcxGridDBColumn;
|
Tv1Column5: TcxGridDBColumn;
|
||||||
Tv1Column6: TcxGridDBColumn;
|
Tv1Column6: TcxGridDBColumn;
|
||||||
Tv1Column7: TcxGridDBColumn;
|
Tv1Column7: TcxGridDBColumn;
|
||||||
|
Tv1Column8: 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);
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user