?? unitqueryform.dfm
字號:
object QueryForm: TQueryForm
Left = 192
Top = 107
Width = 696
Height = 480
BorderIcons = [biSystemMenu, biMaximize]
Caption = #26597#35810#32479#35745
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 0
Width = 688
Height = 41
Align = alTop
BevelOuter = bvNone
Color = clPurple
TabOrder = 0
object Label2: TLabel
Left = 8
Top = 16
Width = 48
Height = 12
Caption = #36215#22987#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clLime
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 176
Top = 16
Width = 48
Height = 12
Caption = #32467#26463#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clLime
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 344
Top = 16
Width = 24
Height = 12
Caption = #31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clLime
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 440
Top = 16
Width = 24
Height = 12
Caption = #26588#21488
Font.Charset = GB2312_CHARSET
Font.Color = clLime
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object DateTimePicker1: TDateTimePicker
Left = 58
Top = 11
Width = 105
Height = 20
CalAlignment = dtaLeft
Date = 38712.8501596759
Time = 38712.8501596759
DateFormat = dfLong
DateMode = dmComboBox
ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
Kind = dtkDate
ParseInput = False
TabOrder = 0
OnKeyPress = DateTimePicker1KeyPress
end
object DateTimePicker2: TDateTimePicker
Left = 226
Top = 11
Width = 105
Height = 20
CalAlignment = dtaLeft
Date = 38712.8501596759
Time = 38712.8501596759
DateFormat = dfLong
DateMode = dmComboBox
ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
Kind = dtkDate
ParseInput = False
TabOrder = 1
OnKeyPress = DateTimePicker2KeyPress
end
object ComboBox1: TComboBox
Left = 370
Top = 11
Width = 63
Height = 20
Style = csDropDownList
ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
ItemHeight = 12
ItemIndex = 0
TabOrder = 2
Text = #37319#36141#34920
OnChange = ComboBox1Change
OnKeyPress = ComboBox1KeyPress
Items.Strings = (
#37319#36141#34920
#24211#23384#34920
#38144#21806#34920
#21806#21518#34920
#22238#35775#34920)
end
object RzBitBtn1: TRzBitBtn
Left = 544
Top = 9
Width = 65
Caption = #26597#35810
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = RzBitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373
3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000
000077777777777777773303333333333333337FFF333333333F370993333333
3399377773F33333337733033933333339333F7FF7FFFFFFF7FF77077797CCC7
977777777777777777773303339C333C9333337F3377F3377F33370333C93339
C333377F33773FF77F33330333C39993C3333F7FFF7F777F7FFF770777C77777
C77777777777777777773303333C333C3333337F33373FF7333337033333CCC3
3333377F33337773333333033333333333333F7FFFFFFFFFFFFF770777777777
7777777777777777777733333333333333333333333333333333}
ImageIndex = 6
NumGlyphs = 2
end
object ComboBox2: TComboBox
Left = 466
Top = 11
Width = 63
Height = 20
Style = csDropDownList
Color = clBtnFace
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
ItemHeight = 12
TabOrder = 4
OnKeyPress = ComboBox2KeyPress
end
end
object Panel2: TPanel
Left = 0
Top = 41
Width = 688
Height = 389
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 688
Height = 389
Align = alClient
Color = clBtnFace
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnEditButtonClick = DBGrid1EditButtonClick
Columns = <
item
Color = clYellow
Expanded = False
FieldName = 'CurDate'
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = 'GoodsOwner'
Title.Alignment = taCenter
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'GoodsName'
Title.Alignment = taCenter
Width = 92
Visible = True
end
item
Expanded = False
FieldName = 'GoodsType'
Title.Alignment = taCenter
Width = 86
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'CurNum'
Title.Alignment = taCenter
Visible = True
end
item
ButtonStyle = cbsEllipsis
Color = clAqua
Expanded = False
FieldName = 'button1'
Title.Alignment = taCenter
Width = 45
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'LastNum'
Title.Alignment = taCenter
Visible = True
end
item
ButtonStyle = cbsEllipsis
Color = clAqua
Expanded = False
FieldName = 'button2'
Title.Alignment = taCenter
Width = 45
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'TotNum'
Title.Alignment = taCenter
Visible = True
end
item
ButtonStyle = cbsEllipsis
Color = clAqua
Expanded = False
FieldName = 'button3'
Title.Alignment = taCenter
Width = 45
Visible = True
end>
end
end
object Panel3: TPanel
Left = 0
Top = 430
Width = 688
Height = 23
Align = alBottom
BevelOuter = bvLowered
TabOrder = 2
object Label1: TLabel
Left = 72
Top = 6
Width = 84
Height = 12
Caption = #26412#26399#25968#37327#23567#35745#65306
Font.Charset = GB2312_CHARSET
Font.Color = clTeal
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 256
Top = 6
Width = 108
Height = 12
Caption = #19978#26399#24211#23384#25968#37327#23567#35745#65306
Font.Charset = GB2312_CHARSET
Font.Color = clTeal
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 488
Top = 6
Width = 108
Height = 12
Caption = #32047#35745#24211#23384#25968#37327#23567#35745#65306
Font.Charset = GB2312_CHARSET
Font.Color = clTeal
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label_CurNum: TLabel
Left = 160
Top = 4
Width = 8
Height = 14
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label_LastNum: TLabel
Left = 368
Top = 4
Width = 8
Height = 14
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label_TotNum: TLabel
Left = 600
Top = 4
Width = 8
Height = 14
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
object ADOQuery1: TADOQuery
Connection = DM1.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from Tab_TempQuery order by CurDate,GoodsName,GoodsType')
Left = 200
Top = 104
object ADOQuery1CurDate: TWideStringField
DisplayLabel = #26085#26399
FieldName = 'CurDate'
Size = 8
end
object ADOQuery1GoodsOwner: TWideStringField
DisplayLabel = #26588#21488
FieldName = 'GoodsOwner'
Size = 30
end
object ADOQuery1GoodsName: TWideStringField
DisplayLabel = #21697#21517
FieldName = 'GoodsName'
Size = 30
end
object ADOQuery1GoodsType: TWideStringField
DisplayLabel = #26426#22411
FieldName = 'GoodsType'
Size = 30
end
object ADOQuery1CurNum: TIntegerField
DisplayLabel = #25968#37327
FieldName = 'CurNum'
end
object ADOQuery1button1: TWideStringField
Alignment = taCenter
DisplayLabel = #20018#21495
FieldName = 'button1'
Size = 4
end
object ADOQuery1LastNum: TIntegerField
DisplayLabel = #19978#26399#24211#23384#25968#37327
FieldName = 'LastNum'
end
object ADOQuery1button2: TWideStringField
Alignment = taCenter
DisplayLabel = #20018#21495
FieldName = 'button2'
Size = 4
end
object ADOQuery1TotNum: TIntegerField
DisplayLabel = #32047#35745#24211#23384#25968#37327
FieldName = 'TotNum'
end
object ADOQuery1button3: TWideStringField
Alignment = taCenter
DisplayLabel = #20018#21495
FieldName = 'button3'
Size = 4
end
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = ADOQuery1
Left = 160
Top = 104
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -