jhdj.dfm

药店GSP源码

      end
      item
        Expanded = False
        FieldName = 'SALEPRICE'
        Title.Alignment = taCenter
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'INPRICE'
        Title.Alignment = taCenter
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PLACE'
        Title.Alignment = taCenter
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LOTNO'
        Title.Alignment = taCenter
        Width = 73
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PZNO'
        Title.Alignment = taCenter
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GYS'
        Title.Alignment = taCenter
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'YX_DATE'
        Title.Alignment = taCenter
        Width = 83
        Visible = True
      end>
  end
  object Edit6: TEdit
    Left = 256
    Top = 72
    Width = 105
    Height = 20
    TabOrder = 8
  end
  object Edit7: TEdit
    Left = 456
    Top = 48
    Width = 105
    Height = 20
    TabOrder = 9
  end
  object DateT2: TDateTimePicker
    Left = 456
    Top = 24
    Width = 105
    Height = 20
    Date = 37909.000000000000000000
    Time = 37909.000000000000000000
    TabOrder = 10
  end
  object Button2: TButton
    Left = 544
    Top = 49
    Width = 17
    Height = 17
    Hint = #32534#30721#26597#35810
    Caption = '...'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = Button2Click
  end
  object BitBtn1: TBitBtn
    Left = 48
    Top = 128
    Width = 81
    Height = 22
    Caption = #22686#21152
    TabOrder = 12
    OnClick = BitBtn1Click
    Glyph.Data = {
      E6000000424DE60000000000000076000000280000000E0000000E0000000100
      0400000000007000000000000000000000001000000000000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3300333333333333330033333333333333003333300033333300333330F03333
      3300333330F033333300330000F000033300330FFFFFFF033300330000F00003
      3300333330F033333300333330F0333333003333300033333300333333333333
      33003333333333333300}
  end
  object BitBtn2: TBitBtn
    Left = 176
    Top = 128
    Width = 81
    Height = 22
    Caption = #21024#38500
    TabOrder = 13
    OnClick = BitBtn2Click
    Glyph.Data = {
      E6000000424DE60000000000000076000000280000000E0000000E0000000100
      0400000000007000000000000000000000001000000000000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3300333333333333330033333333333333003333333333333300333333333333
      330033333333333333003300000000003300330FFFFFFFF03300330000000000
      3300333333333333330033333333333333003333333333333300333333333333
      33003333333333333300}
  end
  object BitBtn3: TBitBtn
    Left = 304
    Top = 128
    Width = 81
    Height = 22
    Caption = #25171#21360
    TabOrder = 14
    OnClick = BitBtn3Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      0003377777777777777308888888888888807F33333333333337088888888888
      88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
      8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
      8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object BitBtn4: TBitBtn
    Left = 432
    Top = 128
    Width = 81
    Height = 22
    Caption = #36864#20986
    TabOrder = 15
    OnClick = BitBtn4Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    NumGlyphs = 2
  end
  object Edit8: TEdit
    Left = 256
    Top = 96
    Width = 105
    Height = 20
    TabOrder = 16
  end
  object Edit9: TEdit
    Left = 456
    Top = 72
    Width = 105
    Height = 20
    TabOrder = 17
  end
  object Button3: TButton
    Left = 344
    Top = 48
    Width = 17
    Height = 17
    Caption = '...'
    TabOrder = 18
    OnClick = Button3Click
  end
  object Edit10: TEdit
    Left = 456
    Top = 96
    Width = 105
    Height = 20
    TabOrder = 19
  end
  object Button4: TButton
    Left = 544
    Top = 96
    Width = 17
    Height = 17
    Caption = '...'
    TabOrder = 20
    OnClick = Button4Click
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'kds5'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'USER NAME='
      'ODBC DSN=kds'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'SQLQRYMODE='
      'LANGDRIVER='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'PASSWORD=')
    SessionName = 'Default'
    Left = 600
    Top = 16
  end
  object Table1: TTable
    DatabaseName = 'kds5'
    TableName = 'JHDJ'
    Left = 600
    Top = 48
    object Table1ID: TAutoIncField
      FieldName = 'ID'
    end
    object Table1JIN_DATE: TDateTimeField
      DisplayLabel = #36827#36135#26085#26399
      FieldName = 'JIN_DATE'
    end
    object Table1NAME: TStringField
      DisplayLabel = #33647#21697#21517#31216
      FieldName = 'NAME'
      Size = 50
    end
    object Table1BASICUNIT: TStringField
      DisplayLabel = #21058#22411
      FieldName = 'BASICUNIT'
      Size = 50
    end
    object Table1GUIGE: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'GUIGE'
      Size = 50
    end
    object Table1JX: TStringField
      DisplayLabel = #21058#22411
      FieldName = 'JX'
      Size = 50
    end
    object Table1SHU: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'SHU'
    end
    object Table1SALEPRICE: TFloatField
      DisplayLabel = #38646#21806#20215
      FieldName = 'SALEPRICE'
    end
    object Table1INPRICE: TFloatField
      DisplayLabel = #36827#20215
      FieldName = 'INPRICE'
    end
    object Table1PLACE: TStringField
      DisplayLabel = #29983#20135#20225#19994
      FieldName = 'PLACE'
      Size = 50
    end
    object Table1LOTNO: TStringField
      DisplayLabel = #29983#20135#25209#21495
      FieldName = 'LOTNO'
      Size = 50
    end
    object Table1PZNO: TStringField
      DisplayLabel = #25209#20934#25991#21495
      FieldName = 'PZNO'
      Size = 50
    end
    object Table1GYS: TStringField
      DisplayLabel = #20379#36135#21333#20301
      FieldName = 'GYS'
      Size = 50
    end
    object Table1YX_DATE: TDateTimeField
      DisplayLabel = #26377#25928#26085#26399
      FieldName = 'YX_DATE'
    end
    object Table1SUM_IN: TFloatField
      FieldName = 'SUM_IN'
    end
  end
  object Ds1: TDataSource
    DataSet = Table1
    Left = 656
    Top = 48
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 608
    Top = 88
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = Table1
    Left = 704
    Top = 88
  end
  object Table2: TTable
    DatabaseName = 'kds5'
    TableName = 'KU_CUN'
    Left = 648
    Top = 16
  end
end