📄 ywgl_khqj_qjform.dfm
字号:
AutoSize = True
AutoStretch = False
Caption = 'QRLabel30'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
end
object TitleBand1: TQRBand
Left = 38
Top = 38
Width = 718
Height = 60
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
158.75
1899.70833333333)
BandType = rbTitle
object QRLabel1: TQRLabel
Left = 264
Top = 1
Width = 97
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
66.1458333333333
698.5
2.64583333333333
256.645833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsUnderline]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 18
end
object QRLabel2: TQRLabel
Left = 608
Top = 16
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1608.66666666667
42.3333333333333
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel2'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel3: TQRLabel
Left = 568
Top = 16
Width = 34
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1502.83333333333
42.3333333333333
89.9583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21333#21495':'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel4: TQRLabel
Left = 8
Top = 43
Width = 38
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
21.1666666666667
113.770833333333
100.541666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #30005#35805':'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel5: TQRLabel
Left = 56
Top = 43
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
148.166666666667
113.770833333333
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel5'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 192
Top = 43
Width = 38
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
508
113.770833333333
100.541666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #20256#30495':'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 240
Top = 43
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
635
113.770833333333
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel7'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel8: TQRLabel
Left = 392
Top = 43
Width = 58
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1037.16666666667
113.770833333333
153.458333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'E-mail:'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 454
Top = 43
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1201.20833333333
113.770833333333
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel9'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
end
end
object CheckBox1: TCheckBox
Left = 247
Top = 126
Width = 110
Height = 16
Caption = #30452#25509#25171#21360#32500#20462#21333
Checked = True
State = cbChecked
TabOrder = 14
end
object ComboBox1: TComboBox
Left = 86
Top = 160
Width = 121
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 15
Items.Strings = (
#29616#37329
#27719#27454
#25346#24080)
end
object DataSource1: TDataSource
DataSet = YWGL_KHQJ.ADOTable2
Left = 328
Top = 235
end
object DataSource2: TDataSource
DataSet = MR_WX.ADOTable3
OnDataChange = DataSource2DataChange
Left = 168
Top = 235
end
object DataSource3: TDataSource
Left = 16
Top = 216
end
object ADOTable3: TADOTable
Active = True
ConnectionString =
'Provider=MSDASQL;Password=mrwxdata1;Persist Security Info=True;D' +
'ata Source=mr_wx'
CursorType = ctStatic
TableName = #32844#21592#34920
Left = 104
Top = 227
object ADOTable3DSDesigner: TStringField
FieldName = #32844#21592#21517#31216
end
object ADOTable3DSDesigner2: TStringField
FieldName = #37096#38376
end
object ADOTable3DSDesigner3: TStringField
FieldName = #32844#21153
end
object ADOTable3DSDesigner4: TStringField
FieldName = #24615#21035
Size = 6
end
object ADOTable3DSDesigner5: TDateTimeField
FieldName = #20986#29983#26085#26399
end
object ADOTable3DSDesigner6: TStringField
FieldName = #23478#24237#20303#22336
Size = 50
end
object ADOTable3DSDesigner7: TStringField
FieldName = #32852#31995#30005#35805
end
object ADOTable3DSDesigner8: TStringField
FieldName = #29616#20303#22336
Size = 50
end
object ADOTable3DSDesigner9: TStringField
FieldName = #23398#21382
end
object ADOTable3DSDesigner10: TStringField
FieldName = #27605#19994#23398#26657
Size = 50
end
end
object DataSource4: TDataSource
DataSet = ADOTable3
Left = 104
Top = 243
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
';Data Source=mr_wx'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#23458#25143#20511#36151)
Left = 32
Top = 128
object ADOQuery1DSDesigner: TStringField
FieldName = #21333#21495
end
object ADOQuery1DSDesigner2: TDateTimeField
FieldName = #26085#26399
end
object ADOQuery1DSDesigner3: TStringField
FieldName = #23458#25143
Size = 50
end
object ADOQuery1DSDesigner4: TStringField
FieldName = #35774#22791#21517
Size = 50
end
object ADOQuery1DSDesigner5: TStringField
FieldName = #35774#22791#22411#21495
Size = 50
end
object ADOQuery1DSDesigner6: TBCDField
FieldName = #24212#25910
Precision = 19
end
object ADOQuery1DSDesigner7: TBCDField
FieldName = #23454#25910
Precision = 19
end
object ADOQuery1DSDesigner8: TBCDField
FieldName = #27424#27454
Precision = 19
end
object ADOQuery1h: TBooleanField
FieldName = 'h'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -