📄 zhi_zhe_cha1.dfm
字号:
object zhi_zhe_ch: Tzhi_zhe_ch
Left = 51
Top = 72
Width = 663
Height = 503
Caption = #21046#20316#21934#26597#35426
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
DesignSize = (
655
476)
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 11
Top = 4
Width = 622
Height = 142
Anchors = [akLeft, akTop, akRight]
Caption = #20027#34920#26597#35426
TabOrder = 0
DesignSize = (
622
142)
object Label1: TLabel
Left = 180
Top = 13
Width = 27
Height = 13
Caption = #26781#20214':'
end
object Label2: TLabel
Left = 299
Top = 12
Width = 6
Height = 13
Caption = '='
end
object DBGrid1: TDBGrid
Left = 9
Top = 33
Width = 603
Height = 103
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'Ddh'
Title.Caption = #35330#21934#34399
Visible = True
end
item
Expanded = False
FieldName = 'Zdh'
Title.Caption = #21046#21934#34399
Visible = True
end
item
Expanded = False
FieldName = 'Pg'
Title.Caption = #25291#20809
Visible = True
end
item
Expanded = False
FieldName = 'Zzgs'
Title.Caption = #21046#20316#24037#26178
Visible = True
end
item
Expanded = False
FieldName = 'Bzsm'
Title.Caption = #21253#35037#35498#26126
Visible = True
end
item
Expanded = False
FieldName = 'Xd1'
Title.Caption = #36984#21934'1'
Visible = True
end
item
Expanded = False
FieldName = 'Xd2'
Title.Caption = #36984#21934'2'
Visible = True
end
item
Expanded = False
FieldName = 'Hd'
Title.Caption = #21402#24230
Visible = True
end
item
Expanded = False
FieldName = 'Tasm'
Title.Caption = #22294#26696#35498#26126
Visible = True
end
item
Expanded = False
FieldName = 'Zzzl'
Title.Caption = #21046#20316#31278#39006
Visible = True
end
item
Expanded = False
FieldName = 'Zzsm'
Title.Caption = #21046#20316#35498#26126
Visible = True
end
item
Expanded = False
FieldName = 'Zdr'
Title.Caption = #21046#21934#20154
Visible = True
end
item
Expanded = False
FieldName = 'Cdr'
Title.Caption = #20986#21934#26085
Visible = True
end
item
Expanded = False
FieldName = 'Sl'
Title.Caption = #25976#37327
Visible = True
end
item
Expanded = False
FieldName = 'Zkl'
Title.Caption = #24235#23384#37327
Visible = True
end
item
Expanded = False
FieldName = 'Ps'
Title.Caption = #25291#25976
Visible = True
end
item
Expanded = False
FieldName = 'scWcq'
Title.Caption = #29983#29986#23436#25104#26399
Visible = True
end
item
Expanded = False
FieldName = 'Zh'
Title.Caption = #23376#34399
Visible = True
end
item
Expanded = False
FieldName = 'Pj'
Title.Caption = #37197#20214
Visible = True
end
item
Expanded = False
FieldName = 'Dd'
Title.Caption = #38651#37709
Visible = True
end
item
Expanded = False
FieldName = 'Cc'
Title.Caption = #23610#23544
Visible = True
end
item
Expanded = False
FieldName = 'Cl'
Title.Caption = #26448#26009
Visible = True
end
item
Expanded = False
FieldName = 'Bw'
Title.Caption = #32972#32011
Visible = True
end
item
Expanded = False
FieldName = 'Bzi'
Title.Caption = #32972#23383
Visible = True
end
item
Expanded = False
FieldName = 'Ys'
Title.Caption = #38991#33394
Visible = True
end
item
Expanded = False
FieldName = 'Js'
Title.Caption = #22522#25976
Visible = True
end>
end
object ComboBox1: TComboBox
Left = 210
Top = 8
Width = 80
Height = 21
ItemHeight = 13
TabOrder = 1
Text = 'ComboBox1'
OnKeyPress = ComboBox1KeyPress
Items.Strings = (
#21046#20316#21934#32232#34399
#35330#21934#34399
#27454#34399)
end
object Edit1: TEdit
Left = 320
Top = 8
Width = 80
Height = 21
TabOrder = 2
Text = 'Edit1'
OnKeyPress = Edit1KeyPress
end
object DBGrid2: TDBGrid
Left = 10
Top = 33
Width = 603
Height = 103
Anchors = [akLeft, akTop, akRight]
DataSource = DataSource2
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object GroupBox2: TGroupBox
Left = 10
Top = 152
Width = 623
Height = 169
Anchors = [akLeft, akTop, akRight]
Caption = #32048#34920#26597#35426
TabOrder = 1
DesignSize = (
623
169)
object Label3: TLabel
Left = 180
Top = 13
Width = 27
Height = 13
Caption = #26781#20214':'
end
object Label4: TLabel
Left = 304
Top = 12
Width = 6
Height = 13
Caption = '='
end
object ComboBox2: TComboBox
Left = 213
Top = 11
Width = 80
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'ComboBox2'
OnKeyPress = ComboBox2KeyPress
Items.Strings = (
#21046#21934#34399
#24037#24207#21517
#26009#34399)
end
object Edit2: TEdit
Left = 325
Top = 11
Width = 80
Height = 21
TabOrder = 1
Text = 'Edit2'
OnKeyPress = Edit2KeyPress
end
object DBGrid3: TDBGrid
Left = 8
Top = 35
Width = 603
Height = 128
Anchors = [akLeft, akTop, akRight]
DataSource = DataSource3
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'Zdh'
Title.Caption = #21046#21934#34399
Visible = True
end
item
Expanded = False
FieldName = 'No'
Title.Caption = #24207#34399
Visible = True
end
item
Expanded = False
FieldName = 'Gxh'
Title.Caption = #24037#24207#34399
Visible = True
end
item
Expanded = False
FieldName = 'Zh'
Title.Caption = #23376#34399
Visible = True
end
item
Expanded = False
FieldName = 'Gxm'
Title.Caption = #24037#24207#34399
Visible = True
end
item
Expanded = False
FieldName = 'Epartno'
Title.Caption = #26009#34399
Visible = True
end
item
Expanded = False
FieldName = 'Epartname'
Title.Caption = #26009#21517
Visible = True
end
item
Expanded = False
FieldName = 'Edw'
Title.Caption = #21934#20301
Visible = True
end
item
Expanded = False
FieldName = 'Egg'
Title.Caption = #35215#26684
Visible = True
end
item
Expanded = False
FieldName = 'Estdqty'
Title.Caption = #27161#20934#29992#37327
Visible = True
end
item
Expanded = False
FieldName = 'Efctqty'
Title.Caption = #23526#38555#29992#37327
Visible = True
end
item
Expanded = False
FieldName = 'Wcq'
Title.Caption = #23436#25104#26399
Visible = True
end
item
Expanded = False
FieldName = 'fctWcq'
Title.Caption = #23526#38555#23436#25104#26399
Visible = True
end>
end
end
object GroupBox3: TGroupBox
Left = 10
Top = 325
Width = 625
Height = 146
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = #32156#21512#26597#35426
TabOrder = 2
DesignSize = (
625
146)
object Label5: TLabel
Left = 180
Top = 13
Width = 27
Height = 13
Caption = #26781#20214':'
end
object Label6: TLabel
Left = 304
Top = 12
Width = 6
Height = 13
Caption = '='
end
object Label7: TLabel
Left = 253
Top = 13
Width = 39
Height = 13
Caption = #21046#21934#34399':'
end
object Edit3: TEdit
Left = 320
Top = 10
Width = 80
Height = 21
TabOrder = 0
Text = 'Edit3'
OnKeyPress = Edit3KeyPress
end
object DBGrid4: TDBGrid
Left = 8
Top = 40
Width = 605
Height = 81
Anchors = [akLeft, akTop, akRight, akBottom]
DataSource = DataSource4
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ComboBox3: TComboBox
Left = 213
Top = 11
Width = 80
Height = 21
ItemHeight = 13
TabOrder = 2
Text = 'ComboBox3'
OnKeyPress = ComboBox3KeyPress
Items.Strings = (
#35330#21934#32232#34399
#21046#20196#21934#32232#34399)
end
end
object Query1: TQuery
Active = True
DatabaseName = 'oy'
SQL.Strings = (
'select * from E')
Left = 232
Top = 64
end
object DataSource1: TDataSource
DataSet = Query1
Left = 288
Top = 64
end
object StoredProc1: TStoredProc
Active = True
DatabaseName = 'oy'
StoredProcName = 'zhi_cha;1'
Left = 360
Top = 72
ParamData = <
item
DataType = ftInteger
Name = 'RETURN_VALUE'
ParamType = ptResult
Value = 0
end
item
DataType = ftString
Name = '@dat1'
ParamType = ptInput
end>
end
object DataSource2: TDataSource
DataSet = StoredProc1
Left = 72
Top = 64
end
object DataSource3: TDataSource
DataSet = Query2
Left = 256
Top = 208
end
object Query2: TQuery
Active = True
DatabaseName = 'oy'
SQL.Strings = (
'select * from EM')
Left = 344
Top = 208
end
object DataSource4: TDataSource
DataSet = StoredProc2
Left = 408
Top = 384
end
object StoredProc2: TStoredProc
Active = True
DatabaseName = 'oy'
StoredProcName = 'zhi_cha1;1'
Left = 304
Top = 384
ParamData = <
item
DataType = ftString
Name = '@datp'
ParamType = ptInput
end>
end
object StoredProc3: TStoredProc
Active = True
DatabaseName = 'oy'
StoredProcName = 'zhi_cha2;1'
Left = 200
Top = 400
ParamData = <
item
DataType = ftInteger
Name = 'RETURN_VALUE'
ParamType = ptResult
Value = 0
end
item
DataType = ftString
Name = '@datt'
ParamType = ptInput
end>
end
object DataSource5: TDataSource
DataSet = StoredProc3
Left = 120
Top = 392
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -