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

File diff suppressed because it is too large Load Diff

View File

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

View File

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

View File

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

View File

@ -64,7 +64,7 @@ begin
user := 'sa'; user := 'sa';
pswd := 'rightsoft@123'; pswd := 'rightsoft@123';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DConString := DataBaseStr; DConString := DataBaseStr;
// DName := '周高祥'; // DName := '周高祥';
//DParameters1:='高权限'; //DParameters1:='高权限';
//DParameters3:='1'; //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, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit,
CheckLst; CheckLst, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters;
type type
TfrmXHGZInPut = class(TForm) TfrmXHGZInPut = class(TForm)

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

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