📄 addconform.dfm
字号:
object AddContract: TAddContract
Left = 284
Top = 118
Width = 628
Height = 452
BorderIcons = [biSystemMenu]
Caption = #28155#21152#21512#21516
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 8
Top = 1
Width = 601
Height = 49
Caption = #20998#31867
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
object Label7: TLabel
Left = 16
Top = 19
Width = 60
Height = 13
AutoSize = False
Caption = #21512#21516#31867#22411#65306
end
object Label8: TLabel
Left = 288
Top = 19
Width = 60
Height = 13
Caption = #21512#21516#23567#31867#65306
end
object ComboBox1: TComboBox
Left = 80
Top = 15
Width = 185
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = ComboBox1Change
end
object ComboBox2: TComboBox
Left = 384
Top = 15
Width = 153
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 50
Width = 601
Height = 311
Caption = #39033#30446
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 27
Width = 70
Height = 13
AutoSize = False
Caption = #39033#30446#21517#31216#65306
end
object Label2: TLabel
Left = 16
Top = 69
Width = 60
Height = 13
Caption = #26045#24037#21333#20301#65306
end
object Label3: TLabel
Left = 16
Top = 112
Width = 60
Height = 13
Caption = #21512#21516#32534#21495#65306
end
object Label9: TLabel
Left = 16
Top = 226
Width = 60
Height = 13
Caption = #21512#21516#22791#27880#65306
end
object Label13: TLabel
Left = 296
Top = 113
Width = 84
Height = 13
Caption = #24037#31243#26159#21542#39564#25910#65306
end
object Label14: TLabel
Left = 296
Top = 158
Width = 84
Height = 13
Caption = #39033#30446#25253#23457#24773#20917#65306
end
object Label15: TLabel
Left = 296
Top = 68
Width = 60
Height = 13
Caption = #31614#35746#26102#38388#65306
OnClick = Label15Click
end
object Label4: TLabel
Left = 296
Top = 24
Width = 60
Height = 13
Caption = #32852' '#31995' '#20154#65306
end
object Label5: TLabel
Left = 16
Top = 155
Width = 60
Height = 13
Caption = #24231#33853#20301#32622#65306
end
object Label6: TLabel
Left = 16
Top = 189
Width = 60
Height = 13
AutoSize = False
Caption = #32852#31995#30005#35805#65306
end
object Edit1: TEdit
Left = 80
Top = 24
Width = 185
Height = 19
TabOrder = 0
end
object Edit2: TEdit
Left = 80
Top = 109
Width = 185
Height = 19
TabOrder = 1
end
object ComboBox4: TComboBox
Left = 384
Top = 107
Width = 153
Height = 21
ItemHeight = 13
TabOrder = 2
Text = #26410#23436#24037
Items.Strings = (
#24050#39564#25910
#26410#23436#24037
#26410#39564#25910
#24050#23436#24037)
end
object DateTimePicker1: TDateTimePicker
Left = 384
Top = 63
Width = 153
Height = 21
Date = 38889.864185463000000000
Time = 38889.864185463000000000
DateMode = dmUpDown
TabOrder = 3
end
object Memo1: TMemo
Left = 80
Top = 224
Width = 457
Height = 73
Lines.Strings = (
#26242#26080)
ScrollBars = ssVertical
TabOrder = 4
end
object ComboBox5: TComboBox
Left = 384
Top = 152
Width = 153
Height = 21
ItemHeight = 13
TabOrder = 5
Text = #21253#27515
Items.Strings = (
#21253#27515
#25253#23457
#26410#25253#23457
#39044#25253#23457)
end
object RzComboBox1: TRzComboBox
Left = 80
Top = 66
Width = 185
Height = 21
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
TabOrder = 6
OnDropDown = RzComboBox1DropDown
end
object Edit8: TEdit
Left = 384
Top = 19
Width = 153
Height = 19
TabOrder = 7
end
object Edit9: TEdit
Left = 80
Top = 152
Width = 185
Height = 19
TabOrder = 8
end
object Edit3: TEdit
Left = 80
Top = 184
Width = 185
Height = 19
TabOrder = 9
Text = #26242#26080
end
end
object GroupBox4: TGroupBox
Left = 8
Top = 368
Width = 601
Height = 49
Ctl3D = False
ParentCtl3D = False
TabOrder = 2
object BitBtn1: TBitBtn
Left = 228
Top = 15
Width = 75
Height = 25
Caption = #20445#23384
TabOrder = 0
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 308
Top = 15
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 1
OnClick = BitBtn2Click
end
object CheckBox1: TCheckBox
Left = 6
Top = 19
Width = 83
Height = 17
Caption = #36830#32493#28155#21152
Ctl3D = False
ParentCtl3D = False
TabOrder = 2
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left = 390
Top = 19
Width = 75
Height = 17
Hint = #26412#21512#21516#30340#36130#21153#35760#24405#22312#36873#25321#30340#21512#21516#20013
Caption = #35760#24080#36873#25321
Ctl3D = False
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = CheckBox2Click
end
object RzComboBox2: TRzComboBox
Left = 477
Top = 15
Width = 113
Height = 21
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
TabOrder = 4
Visible = False
OnDropDown = RzComboBox2DropDown
end
object Button1: TButton
Left = 160
Top = 16
Width = 59
Height = 25
Caption = #19979#19968#26465
TabOrder = 5
Visible = False
OnClick = Button1Click
end
object Button2: TButton
Left = 104
Top = 16
Width = 57
Height = 25
Caption = #19978#19968#26465
TabOrder = 6
Visible = False
OnClick = Button2Click
end
end
object ComboxGrid2: TComboxGrid
Ado = True
DisplayField.Strings = (
'DepName'
'ConPerson'
'Tel')
DisplayText.Strings = (
#26045#24037#21333#20301#21517#31216
#32852#31995#20154
#32852#31995#30005#35805)
Displaywidth.Strings = (
'140'
'45'
'45')
LinkControl = RzComboBox1
ShowInsterBtn = True
RFieldName1 = 'DepName'
RFieldName2 = 'ConPerson'
SQL.Strings = (
'Select * from ConstructUnit ')
ADOConnection = DM.POSADOConn
Active = True
GridTileFont.Charset = DEFAULT_CHARSET
GridTileFont.Color = clWindowText
GridTileFont.Height = -11
GridTileFont.Name = 'MS Sans Serif'
GridTileFont.Style = []
GridFont.Charset = DEFAULT_CHARSET
GridFont.Color = clWindowText
GridFont.Height = -11
GridFont.Name = 'MS Sans Serif'
GridFont.Style = []
RowLine = False
TileColor = clGreen
GridColor = clWindow
ClickReturn = False
TileAlignment = taCenter
WidthAsColumn = False
ShowFilter = True
FilterFieldName = 'DepName'
StringGrid = True
SgOptions = [goFixedVertLine, goFixedHorzLine, goVertLine, goTabs, goRowSelect]
Left = 315
Top = 88
end
object ComboxGrid1: TComboxGrid
Ado = True
DisplayField.Strings = (
'ConstructUnit'
'connumber')
DisplayText.Strings = (
#26045#24037#21333#20301#21517#31216
#21512#21516#32534#21495)
Displaywidth.Strings = (
'80'
'45')
LinkControl = RzComboBox2
ShowInsterBtn = True
RFieldName1 = 'ConstructUnit'
RFieldName2 = 'connumber'
SQL.Strings = (
'Select * from contract')
ADOConnection = DM.POSADOConn
Active = True
GridTileFont.Charset = DEFAULT_CHARSET
GridTileFont.Color = clWindowText
GridTileFont.Height = -11
GridTileFont.Name = 'MS Sans Serif'
GridTileFont.Style = []
GridFont.Charset = DEFAULT_CHARSET
GridFont.Color = clWindowText
GridFont.Height = -11
GridFont.Name = 'MS Sans Serif'
GridFont.Style = []
RowLine = False
TileColor = clGreen
GridColor = clWindow
ClickReturn = False
TileAlignment = taCenter
WidthAsColumn = False
ShowFilter = True
FilterFieldName = 'ConstructUnit'
StringGrid = True
SgOptions = [goFixedVertLine, goFixedHorzLine, goVertLine, goTabs, goRowSelect]
Left = 555
Top = 328
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -