xs_ch.dfm

药店GSP源码

object Form13: TForm13
  Left = 192
  Top = 107
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = #38144#21806#21333#26597#35810
  ClientHeight = 313
  ClientWidth = 504
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 8
    Top = 16
    Width = 489
    Height = 289
    Caption = #38144#21806#21333
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 60
      Height = 12
      Caption = #24320#22987#26085#26399#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 64
      Width = 60
      Height = 12
      Caption = #32467#26463#26085#26399#65306
    end
    object DT1: TDateTimePicker
      Left = 72
      Top = 27
      Width = 121
      Height = 20
      Date = 37917.000000000000000000
      Time = 37917.000000000000000000
      TabOrder = 0
    end
    object DT2: TDateTimePicker
      Left = 72
      Top = 59
      Width = 121
      Height = 20
      Date = 37917.000000000000000000
      Time = 37917.000000000000000000
      TabOrder = 1
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 88
      Width = 473
      Height = 193
      DataSource = DS1
      TabOrder = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'ID'
          Title.Alignment = taCenter
          Width = 31
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DATE'
          Title.Alignment = taCenter
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NAME'
          Title.Alignment = taCenter
          Width = 102
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GUIGE'
          Title.Alignment = taCenter
          Width = 66
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SHU'
          Title.Alignment = taCenter
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BASICUNIT'
          Title.Alignment = taCenter
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SALEPRICE'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'INPRICE'
          Title.Alignment = taCenter
          Width = 42
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'KEHU'
          Title.Alignment = taCenter
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SUM_XS'
          Title.Alignment = taCenter
          Width = 47
          Visible = True
        end>
    end
    object BitBtn1: TBitBtn
      Left = 208
      Top = 27
      Width = 81
      Height = 20
      Caption = #26597#35810
      TabOrder = 3
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 400
      Top = 27
      Width = 81
      Height = 20
      Caption = #36864#20986
      TabOrder = 4
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 304
      Top = 27
      Width = 81
      Height = 20
      Caption = #25171#21360
      TabOrder = 5
      OnClick = BitBtn3Click
    end
  end
  object DS1: TDataSource
    DataSet = Query1
    Left = 464
    Top = 160
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'XS_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 = 456
    Top = 128
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'XS_CH'
    SQL.Strings = (
      'select *'
      'from sale1')
    Left = 400
    Top = 144
    object Query1ID: TIntegerField
      FieldName = 'ID'
      Origin = 'XS_CH.SALE1.ID'
    end
    object Query1DATE: TDateTimeField
      DisplayLabel = #38144#21806#26085#26399
      FieldName = 'DATE'
      Origin = 'XS_CH.SALE1.DATE'
    end
    object Query1NAME: TStringField
      DisplayLabel = #33647#21697#21517#31216
      FieldName = 'NAME'
      Origin = 'XS_CH.SALE1.NAME'
      Size = 50
    end
    object Query1GUIGE: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'GUIGE'
      Origin = 'XS_CH.SALE1.GUIGE'
      Size = 50
    end
    object Query1SHU: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'SHU'
      Origin = 'XS_CH.SALE1.SHU'
    end
    object Query1BASICUNIT: TStringField
      DisplayLabel = #22522#26412#21333#20301
      FieldName = 'BASICUNIT'
      Origin = 'XS_CH.SALE1.BASICUNIT'
      Size = 50
    end
    object Query1SALEPRICE: TFloatField
      DisplayLabel = #38646#21806#20215
      FieldName = 'SALEPRICE'
      Origin = 'XS_CH.SALE1.SALEPRICE'
    end
    object Query1INPRICE: TFloatField
      DisplayLabel = #36827#20215
      FieldName = 'INPRICE'
      Origin = 'XS_CH.SALE1.INPRICE'
    end
    object Query1SUM_XS: TFloatField
      DisplayLabel = #24635#35745
      FieldName = 'SUM_XS'
      Origin = 'XS_CH.SALE1.SUM_XS'
    end
    object Query1KEHU: TStringField
      DisplayLabel = #23458#25143
      FieldName = 'KEHU'
      Origin = 'XS_CH.SALE1.KEHU'
      Size = 50
    end
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 240
    Top = 184
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = Query1
    Left = 304
    Top = 184
  end
end