📄 u_supmonstat.~dfm
字号:
object frmSupMonStat: TfrmSupMonStat
Left = 283
Top = 155
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #20379#24212#21830#27424#27454#32479#35745
ClientHeight = 453
ClientWidth = 592
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDesktopCenter
Visible = True
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 24
Top = 12
Width = 48
Height = 12
Caption = #20379#24212#21830#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 0
Top = 40
Width = 592
Height = 413
Align = alBottom
DataSource = DataSource1
ImeName = #20108#31508#36755#20837#27861'2003'
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'SupNO'
Title.Caption = #20379#24212#21830#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'SupSName'
Title.Caption = #20379#24212#21830#21517#31216
Visible = True
end
item
Expanded = False
FieldName = 'TotalMon'
Title.Caption = #24635#37329#39069
Visible = True
end
item
Expanded = False
FieldName = 'PayMon'
Title.Caption = #20184#27454#37329#39069
Visible = True
end
item
Expanded = False
FieldName = 'BalanceMon'
Title.Caption = #27424#27454#37329#39069
Visible = True
end>
end
object cmbSup: TComboBox
Left = 80
Top = 8
Width = 150
Height = 20
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20108#31508#36755#20837#27861'2003'
ItemHeight = 12
ParentFont = False
TabOrder = 1
OnChange = cmbSupChange
end
object SupStatQry: TADOQuery
Connection = frmDataCtrl.ADOConn
Parameters = <>
SQL.Strings = (
'select * from vw_SupBalanceMonStat where BalanceMon>0')
Left = 232
Top = 136
end
object DataSource1: TDataSource
DataSet = SupStatQry
Left = 272
Top = 136
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -