ypqd.dfm

药店GSP源码

object Form4: TForm4
  Left = 66
  Top = 98
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = #33647#21697#28165#21333
  ClientHeight = 348
  ClientWidth = 702
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 702
    Height = 348
    Align = alBottom
    DataSource = Ds2
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'Name'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DrugUnit'
        Title.Alignment = taCenter
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Category'
        Title.Alignment = taCenter
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BasicUnit'
        Title.Alignment = taCenter
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'StoreUnit'
        Title.Alignment = taCenter
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PingYingCode'
        Title.Alignment = taCenter
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NumCode'
        Title.Alignment = taCenter
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WBCode'
        Title.Alignment = taCenter
        Width = 84
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Stopped'
        Title.Alignment = taCenter
        Width = 36
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SalePrice'
        Title.Alignment = taCenter
        Width = 47
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InPrice'
        Title.Alignment = taCenter
        Width = 43
        Visible = True
      end>
  end
  object Ds2: TDataSource
    DataSet = Query1
    Left = 264
    Top = 72
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'ypqd'
    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 = 336
    Top = 72
  end
  object Table1: TTable
    DatabaseName = 'ypqd'
    Filtered = True
    IndexName = 'PingYingCode'
    TableName = 'base'
    Left = 224
    Top = 72
    object Table1ID: TAutoIncField
      FieldName = 'ID'
    end
    object Table1Code: TIntegerField
      FieldName = 'Code'
    end
    object Table1Name: TStringField
      DisplayLabel = #33647#21697#21517#31216
      FieldName = 'Name'
      Size = 50
    end
    object Table1DrugUnit: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'DrugUnit'
      Size = 50
    end
    object Table1Category: TIntegerField
      DisplayLabel = #31867#21035
      FieldName = 'Category'
    end
    object Table1BasicUnit: TStringField
      DisplayLabel = #22522#26412#21333#20301
      FieldName = 'BasicUnit'
      Size = 50
    end
    object Table1StoreUnit: TStringField
      DisplayLabel = #22823#21253#35013#21333#20301
      FieldName = 'StoreUnit'
      Size = 50
    end
    object Table1StoreTrans: TIntegerField
      FieldName = 'StoreTrans'
    end
    object Table1XH: TStringField
      FieldName = 'XH'
      Size = 50
    end
    object Table1Comment: TStringField
      FieldName = 'Comment'
      Size = 50
    end
    object Table1PingYingCode: TStringField
      DisplayLabel = #25340#38899#30721
      FieldName = 'PingYingCode'
      Size = 50
    end
    object Table1NumCode: TStringField
      DisplayLabel = #25968#23383#30721
      FieldName = 'NumCode'
      Size = 50
    end
    object Table1WBCode: TStringField
      DisplayLabel = #20116#31508#30721
      FieldName = 'WBCode'
      Size = 50
    end
    object Table1OtherCode: TStringField
      FieldName = 'OtherCode'
      Size = 50
    end
    object Table1Stopped: TIntegerField
      DisplayLabel = #20572#29992
      FieldName = 'Stopped'
    end
    object Table1SalePrice: TFloatField
      DisplayLabel = #38646#21806#20215
      FieldName = 'SalePrice'
    end
    object Table1InPrice: TFloatField
      DisplayLabel = #36827#20215
      FieldName = 'InPrice'
    end
    object Table1nProperty: TIntegerField
      FieldName = 'nProperty'
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'ypqd'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from base')
    Left = 256
    Top = 128
    object Query1Name: TStringField
      DisplayLabel = #33647#21697#21517#31216
      DisplayWidth = 15
      FieldName = 'Name'
      Origin = 'YPQD.base.Name'
      Size = 50
    end
    object Query1DrugUnit: TStringField
      DisplayLabel = #35268#26684
      DisplayWidth = 11
      FieldName = 'DrugUnit'
      Origin = 'YPQD.base.DrugUnit'
      Size = 50
    end
    object Query1Category: TIntegerField
      DisplayLabel = #31867#21035
      DisplayWidth = 6
      FieldName = 'Category'
      Origin = 'YPQD.base.Category'
    end
    object Query1BasicUnit: TStringField
      DisplayLabel = #22522#26412#21333#20301
      DisplayWidth = 8
      FieldName = 'BasicUnit'
      Origin = 'YPQD.base.BasicUnit'
      Size = 50
    end
    object Query1StoreUnit: TStringField
      DisplayLabel = #22823#21253#35013#21333#20803
      DisplayWidth = 10
      FieldName = 'StoreUnit'
      Origin = 'YPQD.base.StoreUnit'
      Size = 50
    end
    object Query1PingYingCode: TStringField
      DisplayLabel = #25340#38899#30721
      DisplayWidth = 12
      FieldName = 'PingYingCode'
      Origin = 'YPQD.base.PingYingCode'
      Size = 50
    end
    object Query1NumCode: TStringField
      DisplayLabel = #25968#23383#30721
      DisplayWidth = 9
      FieldName = 'NumCode'
      Origin = 'YPQD.base.NumCode'
      Size = 50
    end
    object Query1WBCode: TStringField
      DisplayLabel = #20116#31508#30721
      DisplayWidth = 15
      FieldName = 'WBCode'
      Origin = 'YPQD.base.WBCode'
      Size = 50
    end
    object Query1Stopped: TIntegerField
      DisplayLabel = #20572#29992
      DisplayWidth = 10
      FieldName = 'Stopped'
      Origin = 'YPQD.base.Stopped'
    end
    object Query1SalePrice: TFloatField
      DisplayLabel = #38646#21806#20215
      DisplayWidth = 10
      FieldName = 'SalePrice'
      Origin = 'YPQD.base.SalePrice'
    end
    object Query1InPrice: TFloatField
      DisplayLabel = #36827#20215
      DisplayWidth = 10
      FieldName = 'InPrice'
      Origin = 'YPQD.base.InPrice'
    end
  end
end