?? pjdy.dfm
字號:
object Frmpjdy: TFrmpjdy
Left = 8
Top = 138
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = '調拔信息查詢'
ClientHeight = 376
ClientWidth = 775
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Label2: TLabel
Left = 302
Top = 45
Width = 48
Height = 12
Caption = '調拔單位'
end
object SpeedButton3: TSpeedButton
Left = 496
Top = 39
Width = 23
Height = 22
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton3Click
end
object Shape1: TShape
Left = 137
Top = 349
Width = 636
Height = 25
end
object Label5: TLabel
Left = 152
Top = 355
Width = 42
Height = 12
Caption = '總金額:'
Color = clHighlightText
ParentColor = False
end
object Label_zje: TLabel
Left = 208
Top = 355
Width = 6
Height = 12
Color = clHighlightText
ParentColor = False
end
object Label6: TLabel
Left = 136
Top = 45
Width = 36
Height = 12
Caption = '倉 庫'
end
object Label1: TLabel
Left = 528
Top = 43
Width = 48
Height = 12
Caption = '物品編碼'
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 775
Height = 36
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label3: TLabel
Left = 20
Top = 11
Width = 48
Height = 12
Caption = '起始日期'
end
object Label4: TLabel
Left = 221
Top = 11
Width = 48
Height = 12
Caption = '終止日期'
end
object DateTimePicker1: TDateTimePicker
Left = 80
Top = 8
Width = 129
Height = 20
CalAlignment = dtaLeft
CalColors.BackColor = 100
CalColors.TitleBackColor = 100
Date = 37068.4814587963
Time = 37068.4814587963
DateFormat = dfLong
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object DateTimePicker2: TDateTimePicker
Left = 287
Top = 8
Width = 129
Height = 20
CalAlignment = dtaLeft
CalColors.BackColor = 100
CalColors.TitleBackColor = 100
Date = 37068.4814587963
Time = 37068.4814587963
DateFormat = dfLong
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object BitBtn3: TBitBtn
Left = 496
Top = 5
Width = 89
Height = 25
Caption = '顯示票據'
TabOrder = 2
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
33B33733333773333373B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object BitBtn1: TBitBtn
Left = 600
Top = 6
Width = 75
Height = 25
Caption = '&P打印'
TabOrder = 3
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 688
Top = 6
Width = 75
Height = 25
Caption = '&X關閉'
TabOrder = 4
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
end
object ListBox1: TListBox
Left = 6
Top = 42
Width = 121
Height = 327
ItemHeight = 12
TabOrder = 1
OnClick = ListBox1Click
end
object DBGrid1: TDBGrid
Left = 136
Top = 65
Width = 633
Height = 280
DataSource = DataSource_db
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'pm'
Title.Caption = '藥品名稱'
Visible = True
end
item
Expanded = False
FieldName = 'cd'
Title.Caption = '產地'
Visible = True
end
item
Expanded = False
FieldName = 'gg'
Title.Caption = '規格'
Visible = True
end
item
Expanded = False
FieldName = 'dw'
Title.Caption = '單位'
Visible = True
end
item
Expanded = False
FieldName = 'dbsl'
Title.Caption = '調拔數量'
Visible = True
end
item
Expanded = False
FieldName = 'jj'
Title.Caption = '進價'
Visible = True
end
item
Expanded = False
FieldName = 'je'
Title.Caption = '金額'
Visible = True
end
item
Expanded = False
FieldName = 'ph'
Title.Caption = '批號'
Visible = True
end
item
Expanded = False
FieldName = 'pzwh'
Title.Caption = '批準文號'
Visible = True
end
item
Expanded = False
FieldName = 'yxq'
Title.Caption = '有效期'
Visible = True
end
item
Expanded = False
FieldName = 'dbrq'
Title.Caption = '調拔日期'
Visible = True
end
item
Expanded = False
FieldName = 'ck_mc'
Title.Caption = '倉庫名稱'
Visible = True
end
item
Expanded = False
FieldName = 'dbdw'
Title.Caption = '調拔單位'
Visible = True
end>
end
object Edit_dbdw: TEdit
Left = 352
Top = 39
Width = 145
Height = 20
TabOrder = 3
end
object BitBtn4: TBitBtn
Left = 688
Top = 38
Width = 75
Height = 25
Caption = '&S查詢'
TabOrder = 4
OnClick = BitBtn4Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
NumGlyphs = 2
end
object ComboBox1: TComboBox
Left = 176
Top = 39
Width = 121
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 5
end
object Edit_bm: TEdit
Left = 584
Top = 40
Width = 97
Height = 20
TabOrder = 6
end
object Query_db: TQuery
OnCalcFields = Query_dbCalcFields
DatabaseName = 'yygl'
RequestLive = True
Left = 312
Top = 152
object Query_dbdb_bh: TStringField
FieldName = 'db_bh'
Origin = 'YYGL.dbxxb.db_bh'
Size = 22
end
object Query_dbcd: TStringField
FieldName = 'cd'
Origin = 'YYGL.dbxxb.cd'
end
object Query_dbpm: TStringField
FieldName = 'pm'
Origin = 'YYGL.dbxxb.pm'
end
object Query_dbgg: TStringField
FieldName = 'gg'
Origin = 'YYGL.dbxxb.gg'
Size = 10
end
object Query_dbdw2: TStringField
FieldName = 'dw'
Origin = 'YYGL.dbxxb.dw'
Size = 4
end
object Query_dbph: TStringField
FieldName = 'ph'
Origin = 'YYGL.dbxxb.ph'
end
object Query_dbjj: TFloatField
FieldName = 'jj'
Origin = 'YYGL.dbxxb.jj'
end
object Query_dbdbsl: TFloatField
FieldName = 'dbsl'
Origin = 'YYGL.dbxxb.dbsl'
end
object Query_dbje: TFloatField
FieldName = 'je'
Origin = 'YYGL.dbxxb.je'
end
object Query_dbdbrq: TDateTimeField
FieldName = 'dbrq'
Origin = 'YYGL.dbxxb.dbrq'
DisplayFormat = 'yyyy-mm-dd'
end
object Query_dbdbdw: TStringField
FieldName = 'dbdw'
Origin = 'YYGL.dbxxb.dbdw'
end
object Query_dbfpph: TStringField
FieldName = 'fpph'
Origin = 'YYGL.dbxxb.fpph'
Size = 14
end
object Query_dbck_bh: TStringField
FieldName = 'ck_bh'
Origin = 'YYGL.dbxxb.ck_bh'
Size = 1
end
object Query_dbck_mc: TStringField
FieldKind = fkLookup
FieldName = 'ck_mc'
LookupDataSet = Query_ckxx
LookupKeyFields = 'ck_bh'
LookupResultField = 'ck_mc'
KeyFields = 'ck_bh'
Size = 10
Lookup = True
end
object Query_dbwp_bm: TStringField
FieldName = 'wp_bm'
Origin = 'YYGL.dbxxb.wp_bm'
Size = 5
end
object Query_dbpzwh: TStringField
FieldName = 'pzwh'
Origin = 'YYGL.dbxxb.pzwh'
Size = 40
end
object Query_dbyxq: TFloatField
FieldName = 'yxq'
Origin = 'YYGL.dbxxb.yxq'
end
object Query_dbhsj: TFloatField
FieldKind = fkCalculated
FieldName = 'hsj'
DisplayFormat = '#,##0.00'
Calculated = True
end
end
object DataSource_db: TDataSource
DataSet = Query_db
Left = 312
Top = 184
end
object Query_ckxx: TQuery
DatabaseName = 'yygl'
RequestLive = True
Left = 272
Top = 152
end
object Query_ckd: TQuery
DatabaseName = 'yygl'
Left = 344
Top = 152
end
object Database: TDatabase
AliasName = 'yygl'
Connected = True
DatabaseName = 'yygl'
LoginPrompt = False
Params.Strings = (
'user name='#39#39
'password='#39#39)
SessionName = 'Default'
TransIsolation = tiRepeatableRead
Left = 272
Top = 120
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -