xsj_ch.dfm

药店GSP源码

object Form17: TForm17
  Left = 95
  Top = 100
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = #38144#21806#37329#39069#26597#35810
  ClientHeight = 388
  ClientWidth = 604
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 28
    Width = 60
    Height = 13
    Caption = #24320#22987#26085#26399#65306
  end
  object Label2: TLabel
    Left = 56
    Top = 60
    Width = 60
    Height = 13
    Caption = #32467#26463#26085#26399#65306
  end
  object BitBtn1: TBitBtn
    Left = 272
    Top = 24
    Width = 81
    Height = 22
    Caption = ' '#26597#35810
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAADADADADADADADADDADADADADADADADAADADADADADADADADDADADA000ADA
      DADAADADAD030DADADADDADADA030ADADADAADA000030000ADADDAD033333330
      DADAADA000030000ADADDADADA030ADADADAADADAD030DADADADDADADA000ADA
      DADAADADADADADADADADDADADADADADADADAADADADADADADADAD}
  end
  object BitBtn2: TBitBtn
    Left = 272
    Top = 56
    Width = 81
    Height = 22
    Caption = ' '#36864#20986
    TabOrder = 1
    OnClick = BitBtn2Click
    Glyph.Data = {
      E6000000424DE60000000000000076000000280000000E0000000E0000000100
      0400000000007000000000000000000000001000000000000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3300333333333333330033333333333333003333333333333300333333333333
      330033333333333333003300000000003300330FFFFFFFF03300330000000000
      3300333333333333330033333333333333003333333333333300333333333333
      33003333333333333300}
  end
  object dtp1: TDateTimePicker
    Left = 120
    Top = 24
    Width = 113
    Height = 21
    Date = 37919.000000000000000000
    Time = 37919.000000000000000000
    TabOrder = 2
  end
  object dtp2: TDateTimePicker
    Left = 120
    Top = 56
    Width = 113
    Height = 21
    Date = 37919.664563935190000000
    Time = 37919.664563935190000000
    TabOrder = 3
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 96
    Width = 604
    Height = 292
    Align = alBottom
    DataSource = DataSource1
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Alignment = taCenter
        Width = 138
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GUIGE'
        Title.Alignment = taCenter
        Width = 102
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BASICUNIT'
        Title.Alignment = taCenter
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SHU'
        Title.Alignment = taCenter
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'INPRICE'
        Title.Alignment = taCenter
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SALEPRICE'
        Title.Alignment = taCenter
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUM_XS'
        Title.Alignment = taCenter
        Width = 59
        Visible = True
      end>
  end
  object BitBtn3: TBitBtn
    Left = 392
    Top = 24
    Width = 81
    Height = 22
    Caption = ' '#25171#21360
    TabOrder = 5
    OnClick = BitBtn3Click
    Glyph.Data = {
      EE000000424DEE000000000000007600000028000000100000000F0000000100
      0400000000007800000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
      0FFFF0888888888080FF000000000000080F0888888FFF88000F088888877788
      080F00000000000008800888888888808080F000000000080800FF0FFFFFFFF0
      8080FFF0F00000F0000FFFF0FFFFFFFF0FFFFFFF0F00000F0FFFFFFF0FFFFFFF
      F0FFFFFFF000000000FFFFFFFFFFFFFFFFFF}
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'xsj_ch'
    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 = 496
    Top = 8
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'xsj_ch'
    SQL.Strings = (
      'select *'
      'from sale1')
    Left = 528
    Top = 8
    object Query1NAME: TStringField
      DisplayLabel = #21697#21517
      FieldName = 'NAME'
      Origin = 'XSJ_CH.SALE1.NAME'
      Size = 50
    end
    object Query1GUIGE: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'GUIGE'
      Origin = 'XSJ_CH.SALE1.GUIGE'
      Size = 50
    end
    object Query1BASICUNIT: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'BASICUNIT'
      Origin = 'XSJ_CH.SALE1.BASICUNIT'
      Size = 50
    end
    object Query1SHU: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'SHU'
      Origin = 'XSJ_CH.SALE1.SHU'
    end
    object Query1INPRICE: TFloatField
      DisplayLabel = #36827#20215
      FieldName = 'INPRICE'
      Origin = 'XSJ_CH.SALE1.INPRICE'
    end
    object Query1SALEPRICE: TFloatField
      DisplayLabel = #38646#21806#20215
      FieldName = 'SALEPRICE'
      Origin = 'XSJ_CH.SALE1.SALEPRICE'
    end
    object Query1SUM_XS: TFloatField
      DisplayLabel = #38646#21806#39069
      FieldName = 'SUM_XS'
      Origin = 'XSJ_CH.SALE1.SUM_XS'
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 528
    Top = 48
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 464
    Top = 56
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = Query1
    Left = 496
    Top = 56
  end
end