?? main.~dfm
字號:
object Form1: TForm1
Left = 673
Top = 405
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Form1'
ClientHeight = 627
ClientWidth = 1005
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 787
Top = 8
Width = 212
Height = 612
TabOrder = 0
object Label1: TLabel
Left = 57
Top = 155
Width = 84
Height = 13
AutoSize = False
Caption = '設置交費期限'
end
object BitBtn1: TBitBtn
Left = 62
Top = 256
Width = 100
Height = 25
Caption = '修改收費庫'
TabOrder = 0
OnClick = BitBtn1Click
end
object CheckBox1: TCheckBox
Left = 147
Top = 152
Width = 22
Height = 17
TabOrder = 1
OnClick = CheckBox1Click
end
object dtp2: TDateTimePicker
Left = 55
Top = 174
Width = 112
Height = 20
CalAlignment = dtaLeft
Date = 38094.4492365162
Time = 38094.4492365162
DateFormat = dfLong
DateMode = dmUpDown
ImeName = '中文 (簡體) - 微軟拼音輸入法 3.0 版'
Kind = dtkDate
ParseInput = False
TabOrder = 2
Visible = False
end
object btn1: TBitBtn
Left = 62
Top = 222
Width = 98
Height = 25
Caption = '查詢MIS庫'
TabOrder = 3
OnClick = btn1Click
end
object GroupBox1: TGroupBox
Left = 11
Top = 11
Width = 189
Height = 131
Caption = '查詢條件'
TabOrder = 4
object lbl2: TLabel
Left = 19
Top = 93
Width = 57
Height = 13
AutoSize = False
Caption = '用戶名稱'
end
object lbl1: TLabel
Left = 19
Top = 68
Width = 56
Height = 13
AutoSize = False
Caption = '用戶編號'
end
object lbl3: TLabel
Left = 19
Top = 40
Width = 56
Height = 13
AutoSize = False
Caption = '電費月份'
end
object edt2: TEdit
Left = 79
Top = 89
Width = 83
Height = 21
TabOrder = 0
end
object edt1: TEdit
Left = 79
Top = 62
Width = 83
Height = 21
TabOrder = 1
end
object dtp1: TDateTimePicker
Left = 79
Top = 35
Width = 83
Height = 20
CalAlignment = dtaRight
Date = 39264.4492365162
Time = 39264.4492365162
DateFormat = dfLong
DateMode = dmUpDown
ImeName = '中文 (簡體) - 微軟拼音輸入法 3.0 版'
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
end
object Button1: TButton
Left = 88
Top = 400
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 5
OnClick = Button1Click
end
end
object GroupBox2: TGroupBox
Left = 5
Top = 4
Width = 783
Height = 205
Caption = 'GroupBox2'
TabOrder = 1
object dbgrd1: TDBGrid
Left = 8
Top = 16
Width = 768
Height = 181
DataSource = ds1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object GroupBox3: TGroupBox
Left = 5
Top = 210
Width = 783
Height = 205
Caption = 'GroupBox3'
TabOrder = 2
object dbgrd2: TDBGrid
Left = 8
Top = 16
Width = 767
Height = 181
DataSource = ds2
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object GroupBox4: TGroupBox
Left = 5
Top = 416
Width = 783
Height = 205
Caption = 'GroupBox4'
TabOrder = 3
object DBGrid1: TDBGrid
Left = 8
Top = 15
Width = 767
Height = 182
DataSource = ds3
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object cm1: TADOCommand
Connection = connyd
Parameters = <>
Left = 216
Top = 112
end
object qry11: TADOQuery
Connection = connyd
Parameters = <>
Left = 128
Top = 64
end
object ds1: TDataSource
DataSet = qry1
Left = 304
Top = 48
end
object qry1: TADOQuery
Connection = connmis
Parameters = <>
Left = 384
Top = 48
end
object qry22: TADOQuery
Connection = connyd
Parameters = <>
Left = 312
Top = 312
end
object ds2: TDataSource
DataSet = qry2
Left = 304
Top = 264
end
object qry2: TADOQuery
Connection = connmis
Parameters = <>
Left = 368
Top = 288
end
object qry33: TADOQuery
Connection = connyd
Parameters = <>
Left = 328
Top = 568
end
object ds3: TDataSource
DataSet = qry3
Left = 528
Top = 568
end
object qry3: TADOQuery
Connection = connmis
Parameters = <>
Left = 608
Top = 560
end
object connmis: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
'al Catalog=charge_dg;Data Source=.'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 661
Top = 100
end
object connyd: TADOConnection
LoginPrompt = False
Left = 661
Top = 148
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -