?? bas_dept.dfm
字號:
inherited Frm_Bas_Dept: TFrm_Bas_Dept
Left = 226
Top = 162
Caption = #37096#38376#20027#25991#20214
ClientHeight = 488
ClientWidth = 740
Position = poMainFormCenter
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 12
inherited ControlBar: TControlBar
Width = 740
end
inherited Pnl_Title: TPanel
Width = 740
Caption = #37096#38376#20027#25991#20214
inherited Image2: TImage
Width = 740
end
end
inherited Pnl_Head: TPanel
Width = 740
inherited Image1: TImage
Width = 740
end
inherited Lbl_Order: TLabel
Width = 6
Caption = ''
end
end
inherited Pnl_Hint: TPanel
Top = 475
Width = 740
Height = 13
inherited Image4: TImage
Width = 740
Height = 13
end
end
inherited Pnl_Body: TPanel
Width = 740
Height = 382
inherited Image3: TImage
Width = 740
Height = 382
end
inherited DBGridEh: TDBGridEh
Width = 740
Height = 382
VTitleMargin = 8
Columns = <
item
EditButtons = <>
FieldName = 'Dep_DeptCode'
Footers = <>
Title.Caption = #19978#32423#37096#38376#20195#30721
Width = 79
end
item
EditButtons = <>
FieldName = 'PDeptName'
Footers = <>
Title.Caption = #19978#32423#37096#38376#21517#31216
Width = 168
end
item
EditButtons = <>
FieldName = 'DeptCode'
Footers = <>
Title.Caption = #37096#38376#20195#30721
Width = 86
end
item
EditButtons = <>
FieldName = 'DeptName'
Footers = <>
Title.Caption = #37096#38376#21517#31216
Width = 188
end
item
EditButtons = <>
FieldName = 'DeptREMArK'
Footers = <>
Title.Caption = #22791#27880
Width = 186
end>
end
end
inherited AdoQry_Tmp: TADOQuery
Left = 284
Top = 186
end
inherited ActionList: TActionList
Left = 208
Top = 176
end
inherited AdoQry_Main: TADOQuery
ConnectionString =
'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
'User ID=mdrcmrm;Initial Catalog=MDRCMRM;Data Source=192.168.0.8;' +
'Use procedure for Prepare=1;Auto Translate=True;Packet Size=4096' +
';Workstation ID=XYB'
CursorType = ctStatic
SQL.Strings = (
'Select D.*,P.DeptName as PDeptName From Dept D '
' left join Dept P On '
' D.Dep_DeptCode=P.DeptCode')
Top = 162
object AdoQry_MainDeptCode: TStringField
FieldName = 'DeptCode'
Origin = 'd'
Size = 8
end
object AdoQry_MainDeptName: TStringField
FieldName = 'DeptName'
Origin = 'd'
Size = 40
end
object AdoQry_MainDeptREMArK: TStringField
FieldName = 'DeptREMArK'
Origin = 'd'
Size = 60
end
object AdoQry_MainDep_DeptCode: TStringField
FieldName = 'Dep_DeptCode'
Origin = 'd'
Size = 8
end
object AdoQry_MainPDeptName: TStringField
FieldName = 'PDeptName'
Origin = 'p'
Size = 40
end
end
inherited DataSource: TDataSource
Left = 341
Top = 177
end
inherited ExtPrintReport: TExtPrintReport
DataSet = AdoQry_Main
Title1 = #37096#38376#25991#20214#21015#34920
Headers = <
item
Name = 'Header1'
Alignment = taLeftJustify
FieldName = 'DeptCode'
Caption = 'DeptCode'
Sum = False
DisplayWidth = 8
Style = dsNormal
end
item
Name = 'Header2'
Alignment = taLeftJustify
FieldName = 'DEP_DeptCode'
Caption = 'DEP_DeptCode'
Sum = False
DisplayWidth = 8
Style = dsNormal
end
item
Name = 'Header3'
Alignment = taLeftJustify
FieldName = 'DeptName'
Caption = 'DeptName'
Sum = False
DisplayWidth = 40
Style = dsNormal
end
item
Name = 'Header4'
Alignment = taLeftJustify
FieldName = 'DeptREMArK'
Caption = 'DeptREMArK'
Sum = False
DisplayWidth = 60
Style = dsNormal
end>
Left = 224
Top = 194
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -