📄 hzcx.~dfm
字号:
Width = 26
Visible = True
end>
end
end
object Panel3: TPanel
Left = 0
Top = 285
Width = 783
Height = 184
Align = alBottom
BevelInner = bvLowered
BevelOuter = bvNone
BevelWidth = 3
TabOrder = 2
object Panel5: TPanel
Left = 3
Top = 3
Width = 777
Height = 46
Align = alTop
TabOrder = 2
end
object DBG2: TDBGrid
Left = 3
Top = 49
Width = 777
Height = 132
Align = alClient
DataSource = DataS2
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'in_id'
Title.Alignment = taCenter
Title.Caption = '验收序号'
Visible = True
end
item
Expanded = False
FieldName = 'yp_name'
Title.Alignment = taCenter
Title.Caption = '药品名称'
Width = 165
Visible = True
end
item
Expanded = False
FieldName = 'yp_spec'
Title.Alignment = taCenter
Title.Caption = '药品规格'
Width = 122
Visible = True
end
item
Expanded = False
FieldName = 'yp_unit'
Title.Alignment = taCenter
Title.Caption = '单位'
Width = 32
Visible = True
end
item
Expanded = False
FieldName = 'sc_fact'
Title.Alignment = taCenter
Title.Caption = '生产厂家'
Width = 125
Visible = True
end
item
Expanded = False
FieldName = 'corp_name'
Title.Alignment = taCenter
Title.Caption = '供货单位'
Width = 143
Visible = True
end
item
Expanded = False
FieldName = 'in_amou'
Title.Alignment = taCenter
Title.Caption = '数量'
Visible = True
end
item
Expanded = False
FieldName = 'price'
Title.Alignment = taCenter
Title.Caption = '金额'
Width = 72
Visible = True
end
item
Expanded = False
FieldName = 'yp_batch'
Title.Alignment = taCenter
Title.Caption = '药品批号'
Width = 88
Visible = True
end
item
Expanded = False
FieldName = 'yp_life'
Title.Alignment = taCenter
Title.Caption = '药品效期'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'in_date'
Title.Alignment = taCenter
Title.Caption = '日期'
Width = 93
Visible = True
end>
end
object RG1: TRadioGroup
Left = 6
Top = 6
Width = 353
Height = 41
BiDiMode = bdLeftToRight
Caption = '选择'
Color = clBtnFace
Columns = 2
Font.Charset = GB2312_CHARSET
Font.Color = clTeal
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
ItemIndex = 1
Items.Strings = (
'全部品种明细'
'单品种明细')
ParentBiDiMode = False
ParentColor = False
ParentFont = False
TabOrder = 1
TabStop = True
OnClick = RG1Click
end
end
object ADODksid: TADODataSet
Connection = DataMzf.XyMzValiConnection
CommandText = 'select ks_id, ks_name from KsId where xydk_iden=1'
Parameters = <>
Left = 347
Top = 33
end
object DataSksid: TDataSource
DataSet = ADODksid
Left = 379
Top = 33
end
object DataS1: TDataSource
DataSet = ADOSP1
Left = 696
Top = 225
end
object DataS2: TDataSource
DataSet = ADOSP2
Left = 456
Top = 376
end
object ADOSP1: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
CursorType = ctStatic
Filtered = True
ProcedureName = 'tt_xy_out_pz;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@type'
Attributes = [paNullable]
DataType = ftWord
Precision = 3
Value = 0
end
item
Name = '@ks_id'
Attributes = [paNullable]
DataType = ftString
Size = 3
Value = '%'
end
item
Name = '@up_amou'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = -1000000000
end
item
Name = '@dn_amou'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = 1000000000
end
item
Name = '@up_date'
Attributes = [paNullable]
DataType = ftDateTime
Value = 36526d
end
item
Name = '@dn_date'
Attributes = [paNullable]
DataType = ftDateTime
Value = 47848d
end
item
Name = '@yp'
Attributes = [paNullable]
DataType = ftBoolean
Value = False
end
item
Name = '@ypid'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end>
Left = 696
Top = 161
object ADOSP1yp_id: TSmallintField
FieldName = 'yp_id'
ReadOnly = True
end
object ADOSP1yp_code: TStringField
FieldName = 'yp_code'
FixedChar = True
Size = 12
end
object ADOSP1yp_name: TStringField
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object ADOSP1yp_spec: TStringField
FieldName = 'yp_spec'
FixedChar = True
end
object ADOSP1yp_unit: TStringField
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object ADOSP1yp_classa: TWordField
FieldName = 'yp_classa'
end
object ADOSP1yp_class: TWordField
FieldName = 'yp_class'
end
object ADOSP1amou: TIntegerField
FieldName = 'amou'
ReadOnly = True
end
object ADOSP1price: TBCDField
DisplayWidth = 12
FieldName = 'price'
ReadOnly = True
DisplayFormat = '########0.00'
Precision = 32
Size = 5
end
end
object ADOSP2: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
CursorType = ctStatic
ProcedureName = 'tt_xy_out;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@type'
Attributes = [paNullable]
DataType = ftWord
Precision = 3
Value = 0
end
item
Name = '@up_ypid'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = 10000
end
item
Name = '@dn_ypid'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = 20000
end
item
Name = '@ks_id'
Attributes = [paNullable]
DataType = ftString
Size = 3
Value = '%'
end
item
Name = '@up_amou'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = -1000000000
end
item
Name = '@dn_amou'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = 1000000000
end
item
Name = '@up_date'
Attributes = [paNullable]
DataType = ftDateTime
Value = 36526d
end
item
Name = '@dn_date'
Attributes = [paNullable]
DataType = ftDateTime
Value = 47848d
end>
Left = 312
Top = 376
object ADOSP2in_id: TIntegerField
FieldName = 'in_id'
end
object ADOSP2sc_fact: TStringField
DisplayWidth = 28
FieldName = 'sc_fact'
FixedChar = True
Size = 36
end
object ADOSP2corp_name: TStringField
FieldName = 'corp_name'
FixedChar = True
Size = 24
end
object ADOSP2yp_batch: TStringField
FieldName = 'yp_batch'
FixedChar = True
Size = 10
end
object ADOSP2yp_life: TDateTimeField
FieldName = 'yp_life'
end
object ADOSP2in_amou: TIntegerField
FieldName = 'in_amou'
end
object ADOSP2price: TBCDField
DisplayWidth = 8
FieldName = 'price'
DisplayFormat = '########0.00'
Precision = 29
Size = 5
end
object ADOSP2in_date: TDateTimeField
FieldName = 'in_date'
end
object ADOSP2yp_name: TStringField
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object ADOSP2yp_spec: TStringField
FieldName = 'yp_spec'
FixedChar = True
end
object ADOSP2yp_unit: TStringField
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
end
object AP_xyid_que: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
CursorType = ctStatic
ProcedureName = 'tzh_dkxyid;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@srm'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = '%'
end>
Left = 368
Top = 176
end
object DS_xyid_que: TDataSource
DataSet = AP_xyid_que
Left = 408
Top = 176
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -