This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-13 13:18:40 +08:00
parent e04395b1b8
commit 19ebd6eb13
251 changed files with 1400 additions and 1343 deletions

View File

@ -1,13 +1,13 @@
object frmYMTRKList: TfrmYMTRKList
Left = 267
Top = 100
Width = 1370
Height = 700
Width = 1470
Height = 823
Caption = #38754#26009#22238#20179#30331#35760
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
@ -15,12 +15,12 @@ object frmYMTRKList: TfrmYMTRKList
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
PixelsPerInch = 120
TextHeight = 15
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1362
Width = 1462
Height = 33
ButtonHeight = 30
ButtonWidth = 107
@ -105,13 +105,15 @@ object frmYMTRKList: TfrmYMTRKList
object ToolButton1: TToolButton
Left = 552
Top = 0
AutoSize = True
Caption = #39044#35272#25171#21360
ImageIndex = 4
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 659
Left = 639
Top = 0
AutoSize = True
Caption = #24555#36895#25171#21360
ImageIndex = 4
OnClick = ToolButton2Click
@ -120,119 +122,119 @@ object frmYMTRKList: TfrmYMTRKList
object Panel1: TPanel
Left = 0
Top = 33
Width = 1362
Height = 72
Width = 1462
Height = 90
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 28
Top = 12
Width = 48
Height = 12
Left = 35
Top = 15
Width = 60
Height = 15
Caption = #26597#35810#26102#38388
end
object Label2: TLabel
Left = 64
Top = 36
Width = 12
Height = 12
Left = 80
Top = 45
Width = 15
Height = 15
Caption = #33267
end
object Label3: TLabel
Left = 318
Top = 12
Width = 24
Height = 12
Left = 398
Top = 15
Width = 30
Height = 15
Caption = #21697#21517
end
object Label4: TLabel
Left = 435
Top = 12
Width = 36
Height = 12
Left = 544
Top = 15
Width = 45
Height = 15
Caption = #21152#24037#21378
end
object Label5: TLabel
Left = 178
Top = 12
Width = 48
Height = 12
Left = 223
Top = 15
Width = 60
Height = 15
Caption = #20837#24211#21333#21495
end
object Label8: TLabel
Left = 318
Top = 36
Width = 24
Height = 12
Left = 398
Top = 45
Width = 30
Height = 15
Caption = #35268#26684
end
object Label6: TLabel
Left = 435
Top = 36
Width = 36
Height = 12
Left = 544
Top = 45
Width = 46
Height = 15
Caption = #25104' '#20998
end
object Label7: TLabel
Left = 561
Top = 36
Width = 48
Height = 12
Left = 701
Top = 45
Width = 61
Height = 15
Caption = #35746' '#21333' '#21495
end
object Label9: TLabel
Left = 561
Top = 12
Width = 48
Height = 12
Left = 701
Top = 15
Width = 60
Height = 15
Caption = #23384#25918#24037#21378
end
object Label12: TLabel
Left = 178
Top = 36
Width = 48
Height = 12
Left = 223
Top = 45
Width = 60
Height = 15
Caption = #20837#24211#31867#22411
end
object Label11: TLabel
Left = 823
Top = 37
Width = 48
Height = 12
Left = 1029
Top = 46
Width = 60
Height = 15
Caption = #26579#21378#32568#21495
end
object Label13: TLabel
Left = 704
Top = 12
Width = 24
Height = 12
Left = 880
Top = 15
Width = 30
Height = 15
Caption = #39068#33394
end
object Label15: TLabel
Left = 704
Top = 37
Width = 24
Height = 12
Left = 880
Top = 46
Width = 30
Height = 15
Caption = #33457#22411
end
object BegDate: TDateTimePicker
Left = 77
Top = 9
Width = 87
Height = 20
Left = 96
Top = 11
Width = 109
Height = 23
Date = 40768.458268587970000000
Time = 40768.458268587970000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 77
Top = 32
Width = 87
Height = 20
Left = 96
Top = 40
Width = 109
Height = 23
Date = 40768.458268587970000000
Time = 40768.458268587970000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -240,9 +242,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object SPName: TEdit
Tag = 2
Left = 345
Top = 9
Width = 80
Left = 431
Top = 11
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 2
@ -250,9 +252,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object FactoryName: TEdit
Tag = 2
Left = 472
Top = 9
Width = 80
Left = 590
Top = 11
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 3
@ -260,9 +262,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object SPID: TEdit
Tag = 2
Left = 228
Top = 9
Width = 80
Left = 285
Top = 11
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
@ -270,9 +272,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object SPSpec: TEdit
Tag = 2
Left = 345
Top = 32
Width = 80
Left = 431
Top = 40
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 9
@ -280,9 +282,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object SPCF: TEdit
Tag = 2
Left = 472
Top = 32
Width = 80
Left = 590
Top = 40
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 10
@ -290,9 +292,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object OrderNo: TEdit
Tag = 2
Left = 612
Top = 33
Width = 80
Left = 765
Top = 41
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 11
@ -300,9 +302,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object ToFactoryName: TEdit
Tag = 2
Left = 612
Top = 9
Width = 80
Left = 765
Top = 11
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 4
@ -310,13 +312,13 @@ object frmYMTRKList: TfrmYMTRKList
end
object CRType: TComboBox
Tag = 2
Left = 228
Top = 32
Width = 80
Height = 20
Left = 285
Top = 40
Width = 100
Height = 23
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
ItemHeight = 15
TabOrder = 8
OnChange = TBFindClick
Items.Strings = (
@ -331,9 +333,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object RCGangNo: TEdit
Tag = 2
Left = 874
Top = 34
Width = 80
Left = 1093
Top = 43
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 12
@ -341,9 +343,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object SPColor: TEdit
Tag = 2
Left = 729
Top = 9
Width = 80
Left = 911
Top = 11
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 5
@ -351,9 +353,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object SPHX: TEdit
Tag = 2
Left = 729
Top = 34
Width = 80
Left = 911
Top = 43
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 6
@ -362,9 +364,9 @@ object frmYMTRKList: TfrmYMTRKList
end
object cxGrid2: TcxGrid
Left = 0
Top = 105
Width = 1078
Height = 564
Top = 123
Width = 1107
Height = 663
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
@ -658,18 +660,18 @@ object frmYMTRKList: TfrmYMTRKList
end
end
object Panel2: TPanel
Left = 1078
Top = 105
Width = 284
Height = 564
Left = 1107
Top = 123
Width = 355
Height = 663
Align = alRight
Caption = 'Panel2'
TabOrder = 3
object cxGrid1: TcxGrid
Left = 1
Top = 71
Width = 282
Height = 492
Top = 82
Width = 353
Height = 580
Align = alClient
TabOrder = 0
object TvMX: TcxGridDBTableView
@ -730,7 +732,7 @@ object frmYMTRKList: TfrmYMTRKList
end
object TvMXMXQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'MXQty'
DataBinding.FieldName = 'MQty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -750,11 +752,11 @@ object frmYMTRKList: TfrmYMTRKList
end
object ToolBar2: TToolBar
Left = 1
Top = 42
Width = 282
Top = 53
Width = 353
Height = 29
ButtonHeight = 30
ButtonWidth = 71
ButtonWidth = 80
Caption = 'ToolBar2'
Images = DataLink_YXYMT.ThreeImgList
List = True
@ -769,7 +771,7 @@ object frmYMTRKList: TfrmYMTRKList
OnClick = TbAddRowClick
end
object TbDeleteRow: TToolButton
Left = 75
Left = 84
Top = 2
AutoSize = True
Caption = #21024#34892
@ -780,30 +782,30 @@ object frmYMTRKList: TfrmYMTRKList
object Panel3: TPanel
Left = 1
Top = 1
Width = 282
Height = 41
Width = 353
Height = 52
Align = alTop
TabOrder = 2
object Label17: TLabel
Left = 6
Top = 12
Width = 36
Height = 12
Left = 8
Top = 15
Width = 45
Height = 15
Caption = #22686#34892#25968
Layout = tlCenter
end
object AddNum: TEdit
Left = 47
Top = 10
Width = 41
Left = 59
Top = 13
Width = 51
Height = 20
TabOrder = 0
end
object Button1: TButton
Left = 98
Top = 4
Width = 75
Height = 30
Left = 123
Top = 5
Width = 93
Height = 38
Caption = #24555#36895#22686#34892
TabOrder = 1
OnClick = Button1Click
@ -811,41 +813,41 @@ object frmYMTRKList: TfrmYMTRKList
end
end
object Panel4: TPanel
Left = 560
Top = 140
Width = 234
Height = 125
Left = 684
Top = 175
Width = 293
Height = 156
Color = clSkyBlue
TabOrder = 4
Visible = False
object Label25: TLabel
Left = 38
Top = 34
Width = 24
Height = 12
Left = 48
Top = 43
Width = 30
Height = 15
Caption = #24211#20301
end
object btnChk: TButton
Left = 28
Top = 81
Width = 60
Height = 25
Left = 35
Top = 101
Width = 75
Height = 32
Caption = #30830#35748
TabOrder = 0
OnClick = btnChkClick
end
object btn1: TButton
Left = 160
Top = 80
Width = 60
Height = 25
Left = 200
Top = 100
Width = 75
Height = 31
Caption = #20851#38381
TabOrder = 1
OnClick = btn1Click
end
object KuWei: TcxButtonEdit
Left = 75
Top = 27
Left = 94
Top = 34
ParentFont = False
Properties.Buttons = <
item
@ -855,12 +857,12 @@ object frmYMTRKList: TfrmYMTRKList
Properties.OnButtonClick = KuWeiPropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -19
Style.Font.Height = -23
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 2
Width = 121
Width = 151
end
end
object ADOQueryCmd: TADOQuery

File diff suppressed because it is too large Load Diff

View File

@ -1,13 +1,13 @@
object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
Left = 599
Top = 280
Left = 220
Top = 72
Width = 1044
Height = 781
Caption = #21152#24037#30721#21333#30331#35760
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
@ -15,8 +15,8 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
PixelsPerInch = 120
TextHeight = 15
object ToolBar1: TToolBar
Left = 0
Top = 0
@ -111,9 +111,9 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
end
object cxGrid1: TcxGrid
Left = 0
Top = 98
Top = 115
Width = 1036
Height = 652
Height = 629
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@ -364,151 +364,151 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
Left = 0
Top = 32
Width = 1036
Height = 66
Height = 83
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label34: TLabel
Left = 207
Top = 13
Width = 66
Height = 15
Left = 259
Top = 16
Width = 77
Height = 18
Caption = #21152' '#24037' '#21378
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 15
Top = 13
Width = 32
Height = 15
Left = 19
Top = 16
Width = 38
Height = 18
Caption = #21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 15
Top = 40
Width = 32
Height = 15
Left = 19
Top = 50
Width = 38
Height = 18
Caption = #22791#27880
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 207
Top = 40
Width = 64
Height = 15
Left = 259
Top = 50
Width = 76
Height = 18
Caption = #25910#36135#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 451
Top = 13
Width = 48
Height = 15
Left = 564
Top = 16
Width = 57
Height = 18
Caption = #21046#20316#20154
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 451
Top = 40
Width = 50
Height = 15
Left = 564
Top = 50
Width = 58
Height = 18
Caption = #31867' '#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 626
Top = 13
Width = 64
Height = 15
Left = 783
Top = 16
Width = 76
Height = 18
Caption = #25351#31034#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 626
Top = 40
Width = 68
Height = 15
Left = 783
Top = 50
Width = 78
Height = 18
Caption = #23458' '#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 806
Top = 40
Width = 80
Height = 15
Left = 1008
Top = 50
Width = 95
Height = 18
Caption = #22383#24067#32852#31995#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 806
Top = 11
Width = 77
Height = 15
Left = 1008
Top = 14
Width = 88
Height = 18
Caption = #39068' '#33394
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object KHNameHZ: TEdit
Tag = 2
Left = 275
Top = 9
Width = 158
Left = 344
Top = 11
Width = 197
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -516,30 +516,30 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnChange = CustomerNoNameChange
end
object BegDate: TDateTimePicker
Left = 1085
Top = 9
Width = 127
Height = 23
Left = 1356
Top = 11
Width = 159
Height = 26
Date = 40768.458268587970000000
Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object EndDate: TDateTimePicker
Left = 1085
Top = 36
Width = 127
Height = 23
Left = 1356
Top = 45
Width = 159
Height = 26
Date = 40768.458268587970000000
Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -547,13 +547,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
end
object MYName: TEdit
Tag = 2
Left = 49
Top = 9
Width = 141
Left = 61
Top = 11
Width = 177
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -562,13 +562,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
end
object Note: TEdit
Tag = 2
Left = 49
Top = 36
Width = 141
Left = 61
Top = 45
Width = 177
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -576,15 +576,15 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnChange = CustomerNoNameChange
end
object CheckBox1: TCheckBox
Left = 999
Top = 12
Width = 82
Height = 16
Left = 1249
Top = 15
Width = 102
Height = 20
Caption = #26597#35810#26085#26399
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -594,13 +594,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
end
object JCDanWeiJC: TEdit
Tag = 2
Left = 275
Top = 36
Width = 158
Left = 344
Top = 45
Width = 197
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -609,13 +609,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
end
object filler: TEdit
Tag = 2
Left = 503
Top = 9
Width = 103
Left = 629
Top = 11
Width = 129
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -624,31 +624,31 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
end
object MYTypeFlag: TComboBox
Tag = 1
Left = 504
Top = 36
Width = 104
Height = 23
Left = 630
Top = 45
Width = 130
Height = 26
Style = csDropDownList
DropDownCount = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 15
ItemHeight = 18
ParentFont = False
TabOrder = 8
OnChange = CustomerNoNameChange
end
object MLOrderNo: TEdit
Tag = 2
Left = 691
Top = 8
Width = 95
Left = 864
Top = 10
Width = 119
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -657,13 +657,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
end
object KHNameHZZ: TEdit
Tag = 2
Left = 691
Top = 36
Width = 95
Left = 864
Top = 45
Width = 119
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -672,13 +672,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
end
object PBBatchNo: TEdit
Tag = 2
Left = 883
Top = 36
Width = 110
Left = 1104
Top = 45
Width = 137
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -687,13 +687,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
end
object MYColor: TEdit
Tag = 2
Left = 883
Top = 7
Width = 109
Left = 1104
Top = 9
Width = 136
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -702,21 +702,21 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
end
end
object Panel2: TPanel
Left = 276
Top = 126
Width = 509
Height = 379
Left = 345
Top = 158
Width = 636
Height = 473
Color = clSkyBlue
TabOrder = 3
Visible = False
object SpeedButton1: TSpeedButton
Left = 36
Top = 22
Width = 100
Height = 53
Left = 45
Top = 28
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -724,13 +724,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 196
Top = 22
Width = 100
Height = 53
Left = 245
Top = 28
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -738,13 +738,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton3: TSpeedButton
Left = 372
Top = 22
Width = 100
Height = 53
Left = 465
Top = 28
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -752,13 +752,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton4: TSpeedButton
Left = 36
Top = 94
Width = 100
Height = 53
Left = 45
Top = 118
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -766,13 +766,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton5: TSpeedButton
Left = 196
Top = 94
Width = 100
Height = 53
Left = 245
Top = 118
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -780,13 +780,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton6: TSpeedButton
Left = 372
Top = 94
Width = 100
Height = 53
Left = 465
Top = 118
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -794,13 +794,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton7: TSpeedButton
Left = 36
Top = 166
Width = 100
Height = 53
Left = 45
Top = 208
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -808,13 +808,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton8: TSpeedButton
Left = 196
Top = 166
Width = 100
Height = 53
Left = 245
Top = 208
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -822,13 +822,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton9: TSpeedButton
Left = 372
Top = 166
Width = 100
Height = 53
Left = 465
Top = 208
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -836,13 +836,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton10: TSpeedButton
Left = 36
Top = 238
Width = 100
Height = 53
Left = 45
Top = 298
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -850,13 +850,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton11: TSpeedButton
Left = 196
Top = 238
Width = 100
Height = 53
Left = 245
Top = 298
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -864,13 +864,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton12: TSpeedButton
Left = 372
Top = 238
Width = 100
Height = 53
Left = 465
Top = 298
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -878,13 +878,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton13: TSpeedButton
Left = 36
Top = 310
Width = 100
Height = 53
Left = 45
Top = 388
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -892,13 +892,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton14: TSpeedButton
Left = 196
Top = 310
Width = 100
Height = 53
Left = 245
Top = 388
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -906,13 +906,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object SpeedButton15: TSpeedButton
Left = 372
Top = 310
Width = 100
Height = 53
Left = 465
Top = 388
Width = 125
Height = 66
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -920,10 +920,10 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ
OnClick = SpeedButton1Click
end
object Image2: TImage
Left = 487
Top = 3
Width = 22
Height = 16
Left = 609
Top = 4
Width = 27
Height = 20
ParentShowHint = False
Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500

View File

@ -17858,7 +17858,7 @@ object DataLink_Wage: TDataLink_Wage
object ThreeColorBase: TcxStyleRepository
Left = 147
Top = 80
PixelsPerInch = 96
PixelsPerInch = 120
object SHuangSe: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 4707838

View File

@ -4,7 +4,8 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses;
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
dxSkinsDefaultPainters;
var
DConString: string; {全局连接字符串}

View File

@ -64,7 +64,7 @@ begin
user := 'sa';
pswd := 'rightsoft@123';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DConString := DataBaseStr;
DConString := DataBaseStr;
// DName := '周高祥';
//DParameters1:='高权限';
//DParameters3:='1';

File diff suppressed because it is too large Load Diff

View File

@ -9,7 +9,8 @@ uses
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit,
CheckLst;
CheckLst, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters;
type
TfrmXHGZInPut = class(TForm)

View File

@ -7,7 +7,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
@ -15,8 +15,8 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
PixelsPerInch = 120
TextHeight = 15
object ToolBar1: TToolBar
Left = 0
Top = 0
@ -58,12 +58,13 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
object ToolButton2: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #21592#24037#20135#37327#30331#35760
ImageIndex = 24
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 289
Left = 277
Top = 0
AutoSize = True
Caption = #21592#24037#33457#21517#20876
@ -71,7 +72,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
OnClick = ToolButton3Click
end
object ToolButton5: TToolButton
Left = 408
Left = 396
Top = 0
AutoSize = True
Caption = #22870#21169#34917#36148
@ -79,7 +80,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
OnClick = ToolButton5Click
end
object ToolButton6: TToolButton
Left = 511
Left = 499
Top = 0
AutoSize = True
Caption = #38468#20214
@ -87,7 +88,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
OnClick = ToolButton6Click
end
object ToolButton8: TToolButton
Left = 582
Left = 570
Top = 0
AutoSize = True
Caption = #32483#33457#24037#24037#36164#29983#25104
@ -95,7 +96,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
OnClick = ToolButton8Click
end
object ToolButton1: TToolButton
Left = 733
Left = 721
Top = 0
AutoSize = True
Caption = #24037#36164#26465
@ -103,7 +104,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
OnClick = ToolButton1Click
end
object ToolButton7: TToolButton
Left = 820
Left = 808
Top = 0
AutoSize = True
Caption = #20840#24180#24037#36164
@ -111,7 +112,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
OnClick = ToolButton7Click
end
object ToolButton4: TToolButton
Left = 923
Left = 911
Top = 0
AutoSize = True
Caption = #24037#36164#26126#32454
@ -119,7 +120,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
OnClick = ToolButton4Click
end
object TBExport: TToolButton
Left = 1026
Left = 1014
Top = 0
AutoSize = True
Caption = #23548#20986
@ -127,7 +128,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 1097
Left = 1085
Top = 0
AutoSize = True
Caption = #20851#38381
@ -139,87 +140,87 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
Left = 0
Top = 33
Width = 1342
Height = 74
Height = 93
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 20
Top = 12
Width = 32
Height = 15
Left = 25
Top = 15
Width = 38
Height = 18
Caption = #26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 36
Top = 39
Width = 16
Height = 15
Left = 45
Top = 49
Width = 19
Height = 18
Caption = #33267
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 191
Top = 12
Width = 50
Height = 15
Left = 239
Top = 15
Width = 58
Height = 18
Caption = #22995' '#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 191
Top = 39
Width = 50
Height = 15
Left = 239
Top = 49
Width = 58
Height = 18
Caption = #24037' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 363
Top = 12
Width = 32
Height = 15
Left = 454
Top = 15
Width = 38
Height = 18
Caption = #24037#31181
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 61
Top = 8
Width = 115
Height = 23
Left = 76
Top = 10
Width = 144
Height = 26
Date = 40768.458268587970000000
Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -227,15 +228,15 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 61
Top = 35
Width = 113
Height = 23
Left = 76
Top = 44
Width = 142
Height = 26
Date = 40768.458268587970000000
Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -244,13 +245,13 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
end
object YGName: TEdit
Tag = 2
Left = 246
Top = 8
Width = 97
Left = 308
Top = 10
Width = 121
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -260,13 +261,13 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
end
object YGCode: TEdit
Tag = 2
Left = 246
Top = 35
Width = 97
Left = 308
Top = 44
Width = 121
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -276,13 +277,13 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
end
object Edit1: TEdit
Tag = 2
Left = 402
Top = 8
Width = 97
Left = 503
Top = 10
Width = 121
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -293,9 +294,9 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
end
object cxGrid2: TcxGrid
Left = 0
Top = 133
Top = 158
Width = 1342
Height = 513
Height = 482
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@ -451,13 +452,13 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 107
Top = 126
Width = 1342
Height = 26
Height = 32
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
@ -479,9 +480,9 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
' 11'#26376' '
' 12'#26376' ')
OnChange = cxTabControl1Change
ClientRectBottom = 28
ClientRectBottom = 34
ClientRectRight = 1342
ClientRectTop = 28
ClientRectTop = 34
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Wage.ADOLink
@ -579,7 +580,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew
object cxStyleRepository1: TcxStyleRepository
Left = 744
Top = 48
PixelsPerInch = 96
PixelsPerInch = 120
object cxStyle1: TcxStyle
end
end

View File

@ -12,7 +12,7 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
DateUtils, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu;
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
type
TfrmXHGZListHZNew = class(TForm)

View File

@ -8,34 +8,34 @@ object frmXHGZListInPut: TfrmXHGZListInPut
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
PixelsPerInch = 120
TextHeight = 15
object Panel2: TPanel
Left = 0
Top = 0
Width = 533
Height = 629
Width = 666
Height = 630
Align = alLeft
Caption = 'Panel2'
TabOrder = 0
object cxGrid2: TcxGrid
Left = 1
Top = 150
Width = 531
Height = 478
Top = 180
Width = 664
Height = 449
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
object TV2: TcxGridDBTableView
OnMouseDown = TV2MouseDown
NavigatorButtons.ConfirmDelete = False
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@ -141,47 +141,47 @@ object frmXHGZListInPut: TfrmXHGZListInPut
object ScrollBox1: TScrollBox
Left = 1
Top = 1
Width = 531
Height = 120
Width = 664
Height = 150
Align = alTop
TabOrder = 1
object Label1: TLabel
Left = 27
Top = 12
Width = 32
Height = 15
Left = 34
Top = 15
Width = 38
Height = 18
Caption = #26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 229
Top = 7
Width = 32
Height = 15
Left = 286
Top = 9
Width = 38
Height = 18
Caption = #24037#36164
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CRTime: TDateTimePicker
Tag = 2
Left = 61
Top = 8
Width = 117
Height = 23
Left = 76
Top = 10
Width = 147
Height = 26
Date = 40768.458268587970000000
Time = 40768.458268587970000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -191,13 +191,13 @@ object frmXHGZListInPut: TfrmXHGZListInPut
end
object ZJJE: TEdit
Tag = 2
Left = 265
Top = 7
Width = 117
Left = 331
Top = 9
Width = 147
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
@ -205,23 +205,23 @@ object frmXHGZListInPut: TfrmXHGZListInPut
TabOrder = 1
end
object Panel4: TPanel
Left = 59
Top = 54
Width = 185
Height = 41
Left = 74
Top = 68
Width = 231
Height = 51
Caption = 'Panel4'
TabOrder = 2
object lblBC: TLabel
Left = 1
Top = 1
Width = 183
Height = 39
Width = 229
Height = 49
Align = alClient
Alignment = taCenter
Caption = #30333#29677
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -234,8 +234,8 @@ object frmXHGZListInPut: TfrmXHGZListInPut
end
object ToolBar2: TToolBar
Left = 1
Top = 121
Width = 531
Top = 151
Width = 664
Height = 29
ButtonHeight = 30
ButtonWidth = 99
@ -282,22 +282,22 @@ object frmXHGZListInPut: TfrmXHGZListInPut
end
end
object Panel1: TPanel
Left = 533
Left = 666
Top = 0
Width = 738
Height = 629
Width = 613
Height = 630
Align = alClient
Caption = 'Panel1'
TabOrder = 1
object cxGrid1: TcxGrid
Left = 1
Top = 106
Width = 736
Height = 522
Top = 125
Width = 611
Height = 504
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@ -503,8 +503,8 @@ object frmXHGZListInPut: TfrmXHGZListInPut
end
object ToolBar3: TToolBar
Left = 1
Top = 77
Width = 736
Top = 96
Width = 611
Height = 29
ButtonHeight = 30
ButtonWidth = 99
@ -576,31 +576,31 @@ object frmXHGZListInPut: TfrmXHGZListInPut
object Panel3: TPanel
Left = 1
Top = 1
Width = 736
Height = 76
Width = 611
Height = 95
Align = alTop
TabOrder = 2
object lblYGName: TLabel
Left = 113
Top = 8
Width = 29
Height = 56
Left = 141
Top = 10
Width = 37
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -56
Font.Height = -72
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Button2: TButton
Left = 672
Top = 18
Width = 129
Height = 42
Left = 840
Top = 23
Width = 161
Height = 52
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -646,6 +646,7 @@ object frmXHGZListInPut: TfrmXHGZListInPut
end
object ThreeColorBase: TcxStyleRepository
Left = 595
PixelsPerInch = 120
object SHuangSe: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 4707838

View File

@ -9,7 +9,9 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxContainer,
cxLabel, StdCtrls, cxCheckBox, ExtCtrls, Menus;
cxLabel, StdCtrls, cxCheckBox, ExtCtrls, Menus, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter, cxNavigator;
type
TfrmXHGZListInPut = class(TForm)

View File

@ -1,13 +1,13 @@
object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel
Left = 346
Top = 132
Width = 1111
Height = 628
Left = 276
Top = 131
Width = 1253
Height = 758
Caption = #20135#21697#36164#26009#31649#29702
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
@ -15,15 +15,15 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
PixelsPerInch = 120
TextHeight = 15
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1095
Width = 1245
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
ButtonWidth = 65
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_Wage.ThreeImgList
@ -42,7 +42,7 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 63
Left = 69
Top = 0
AutoSize = True
Caption = #36807#28388
@ -50,7 +50,7 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 126
Left = 138
Top = 0
AutoSize = True
Caption = #20851#38381
@ -61,81 +61,88 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel
object Panel1: TPanel
Left = 0
Top = 32
Width = 1095
Height = 41
Width = 1245
Height = 51
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label3: TLabel
Left = 210
Top = 13
Width = 48
Height = 12
Left = 228
Top = 16
Width = 60
Height = 15
Caption = #33457#22411#21517#31216
end
object Label1: TLabel
Left = 34
Top = 13
Width = 48
Height = 12
Left = 43
Top = 16
Width = 60
Height = 15
Caption = #33457#22411#32534#21495
end
object Label2: TLabel
Left = 369
Top = 57
Width = 24
Height = 12
Left = 461
Top = 71
Width = 30
Height = 15
Caption = #31867#22411
end
object Label4: TLabel
Left = 394
Top = 13
Width = 48
Height = 12
Left = 433
Top = 16
Width = 60
Height = 15
Caption = #33457#22411#25551#36848
end
object Label5: TLabel
Left = 578
Top = 13
Width = 24
Height = 12
Left = 641
Top = 16
Width = 30
Height = 15
Caption = #23458#25143
end
object Label6: TLabel
Left = 571
Top = 53
Width = 48
Height = 12
Left = 714
Top = 66
Width = 60
Height = 15
Caption = #23458#25143#31616#31216
end
object Label7: TLabel
Left = 824
Top = 16
Width = 30
Height = 15
Caption = #22836#36317
end
object ZdyName: TEdit
Tag = 2
Left = 260
Top = 9
Width = 100
Left = 290
Top = 13
Width = 125
Height = 20
TabOrder = 1
OnChange = ZdyNameChange
end
object ZdyCode: TEdit
Tag = 2
Left = 83
Top = 9
Width = 89
Left = 104
Top = 13
Width = 111
Height = 20
TabOrder = 0
OnChange = ZdyNameChange
end
object DEFstr5: TComboBox
Tag = 1
Left = 394
Top = 52
Width = 81
Height = 20
Left = 493
Top = 65
Width = 101
Height = 23
Style = csDropDownList
ItemHeight = 12
ItemHeight = 15
TabOrder = 2
OnChange = ZdyNameChange
Items.Strings = (
@ -145,43 +152,52 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel
end
object defNote1: TEdit
Tag = 2
Left = 444
Top = 9
Width = 100
Left = 495
Top = 13
Width = 125
Height = 20
TabOrder = 3
OnChange = ZdyNameChange
end
object defnote2: TEdit
Tag = 2
Left = 604
Top = 9
Width = 100
Left = 673
Top = 13
Width = 125
Height = 20
TabOrder = 4
OnChange = ZdyNameChange
end
object zjm: TEdit
Tag = 2
Left = 621
Top = 49
Width = 100
Left = 776
Top = 61
Width = 125
Height = 20
TabOrder = 5
OnChange = ZdyNameChange
end
object defstr2: TEdit
Tag = 1
Left = 856
Top = 13
Width = 65
Height = 20
TabOrder = 6
OnChange = ZdyNameChange
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 73
Width = 1095
Height = 517
Top = 83
Width = 1245
Height = 638
Align = alClient
TabOrder = 2
object Tv2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DS_HZ
DataController.Summary.DefaultGroupSummaryItems = <>
@ -348,7 +364,7 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel
Top = 204
end
object OpenDialog1: TOpenDialog
Left = 936
Top = 41
Left = 992
Top = 17
end
end

View File

@ -12,7 +12,8 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, Menus, cxLookAndFeelPainters, cxButtons;
cxTextEdit, Menus, cxLookAndFeelPainters, cxButtons, cxLookAndFeels,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, cxNavigator;
type
FdDy = record
@ -61,6 +62,8 @@ type
v2Column7: TcxGridDBColumn;
zjm: TEdit;
Label6: TLabel;
Label7: TLabel;
defstr2: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\马国钢开发代码\项目代码\云翔\工资管理(Wage.dll)\testDll.exe
HostApplication=D:\马国钢开发代码\项目代码\D7WMyunxiang\工资管理(Wage.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

Some files were not shown because too many files have changed in this diff Show More