📄 unit_main.dfm
字号:
inherited form_main: Tform_main
Left = 82
Top = 127
Caption = 'form_main'
Menu = MainMenu1
OldCreateOrder = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 14
object Button1: TButton
Left = 248
Top = 72
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object CheckListBox1: TCheckListBox
Left = 144
Top = 200
Width = 225
Height = 129
Columns = 2
Flat = False
ItemHeight = 14
TabOrder = 1
end
object Button2: TButton
Left = 256
Top = 384
Width = 75
Height = 25
Caption = 'Button2'
TabOrder = 2
OnClick = Button2Click
end
object DBGrid1: TDBGrid
Left = 232
Top = 136
Width = 456
Height = 120
TabOrder = 3
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'JBMC'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'JBDM'
Width = 32
Visible = True
end>
end
object Button3: TButton
Left = 440
Top = 296
Width = 75
Height = 25
Caption = 'Button3'
TabOrder = 4
OnClick = Button3Click
end
object Button4: TButton
Left = 552
Top = 280
Width = 75
Height = 25
Caption = 'Button4'
TabOrder = 5
end
object Button5: TButton
Left = 472
Top = 368
Width = 75
Height = 25
Caption = 'Button5'
TabOrder = 6
OnClick = Button5Click
end
object Button6: TButton
Left = 256
Top = 24
Width = 75
Height = 25
Caption = 'Button6'
TabOrder = 7
OnClick = Button6Click
end
object MainMenu1: TMainMenu
Left = 120
Top = 80
object menu_custstructure_B: TMenuItem
Caption = '菜单'
object N2: TMenuItem
Caption = '构成查询'
OnClick = menu_custstructure_BClick
end
object menu_callcost_B: TMenuItem
Caption = '帐单查询'
OnClick = menu_callcost_BClick
end
object menu_payorcancel_B: TMenuItem
Caption = '缴费销账查询'
OnClick = menu_payorcancel_BClick
end
object menu_operationaccept_B: TMenuItem
Caption = '业务受理查询'
OnClick = menu_operationaccept_BClick
end
object menu_operationuse_B: TMenuItem
Caption = '业务使用查询'
OnClick = menu_operationuse_BClick
end
object N7: TMenuItem
Caption = '通话清单查询'
end
object menu__arrearage_B: TMenuItem
Caption = '欠费信息查询'
OnClick = menu__arrearage_BClick
end
object menu_historyinfo_B: TMenuItem
Caption = '历史资料查询'
OnClick = menu_historyinfo_BClick
end
object menu_service: TMenuItem
Caption = '服务查询'
OnClick = menu_serviceClick
end
object menu_integral_B: TMenuItem
Caption = '积分查询'
OnClick = menu_integral_BClick
end
object N14: TMenuItem
Caption = '托收查询'
end
object menu_birthday_B: TMenuItem
Caption = '生日查询'
OnClick = menu_birthday_BClick
end
object menu_appeal_B: TMenuItem
Caption = '投诉查询'
OnClick = menu_appeal_BClick
end
object menu_balance_B: TMenuItem
Caption = '账户余额查询'
OnClick = menu_balance_BClick
end
object N1: TMenuItem
Caption = '星级排行'
OnClick = N1Click
end
end
end
object Query1: TQuery
BeforeOpen = Query1BeforeOpen
AfterOpen = Query1AfterOpen
DatabaseName = 'db_vip'
SQL.Strings = (
'select * from t_v_level')
Left = 392
Top = 48
end
object DataSource1: TDataSource
DataSet = Query1
Left = 488
Top = 72
end
object query_tmp: TQuery
Left = 440
Top = 48
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -