chaxun.dfm

药店GSP源码

object Form3: TForm3
  Left = 5
  Top = 0
  AutoScroll = False
  Caption = #33647#21697#22522#30784#36164#26009#20462#25913
  ClientHeight = 555
  ClientWidth = 788
  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 Label1: TLabel
    Left = 32
    Top = 21
    Width = 60
    Height = 12
    Caption = #25340#38899#32534#30721#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 88
    Width = 788
    Height = 446
    Align = alBottom
    DataSource = DS1
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    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 = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Code'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DrugUnit'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Category'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BasicUnit'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'StoreUnit'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'StoreTrans'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'XH'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Comment'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PingYingCode'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NumCode'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WBCode'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OtherCode'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Stopped'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SalePrice'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InPrice'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nProperty'
        Title.Alignment = taCenter
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 96
    Top = 16
    Width = 97
    Height = 20
    TabOrder = 1
  end
  object Button1: TButton
    Left = 312
    Top = 16
    Width = 73
    Height = 21
    Caption = #26597#35810
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button1Click
  end
  object R1: TRadioButton
    Left = 224
    Top = 16
    Width = 57
    Height = 17
    Caption = #20840#37096
    Checked = True
    TabOrder = 3
    TabStop = True
  end
  object R2: TRadioButton
    Left = 224
    Top = 40
    Width = 57
    Height = 17
    Caption = #20572#29992
    TabOrder = 4
  end
  object R3: TRadioButton
    Left = 224
    Top = 64
    Width = 57
    Height = 17
    Caption = #21551#29992
    TabOrder = 5
  end
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 64
    Width = 210
    Height = 25
    DataSource = DS1
    TabOrder = 6
  end
  object Button2: TButton
    Left = 312
    Top = 48
    Width = 73
    Height = 21
    Caption = #36864#20986
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = Button2Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 534
    Width = 788
    Height = 21
    Panels = <
      item
        Alignment = taRightJustify
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object DS1: TDataSource
    DataSet = Query1
    Left = 448
    Top = 48
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'kds1'
    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 = 16
  end
  object Query1: TQuery
    DatabaseName = 'kds1'
    SQL.Strings = (
      'select *'
      'from base')
    Left = 400
    Top = 24
    object Query1ID: TIntegerField
      DisplayWidth = 6
      FieldName = 'ID'
      Origin = 'KDS1.base.ID'
    end
    object Query1Code: TIntegerField
      DisplayLabel = #20195#30721
      DisplayWidth = 6
      FieldName = 'Code'
      Origin = 'KDS1.base.Code'
    end
    object Query1Name: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'Name'
      Origin = 'KDS1.base.Name'
      Size = 50
    end
    object Query1DrugUnit: TStringField
      DisplayLabel = #35268#26684
      DisplayWidth = 12
      FieldName = 'DrugUnit'
      Origin = 'KDS1.base.DrugUnit'
      Size = 50
    end
    object Query1Category: TIntegerField
      DisplayLabel = #31867#21035
      DisplayWidth = 5
      FieldName = 'Category'
      Origin = 'KDS1.base.Category'
    end
    object Query1BasicUnit: TStringField
      DisplayLabel = #22522#26412#21333#20301
      DisplayWidth = 10
      FieldName = 'BasicUnit'
      Origin = 'KDS1.base.BasicUnit'
      Size = 50
    end
    object Query1StoreUnit: TStringField
      DisplayLabel = #22823#21253#35013#21333#20301
      DisplayWidth = 13
      FieldName = 'StoreUnit'
      Origin = 'KDS1.base.StoreUnit'
      Size = 50
    end
    object Query1StoreTrans: TIntegerField
      DisplayLabel = #21333#20301#36716#25442#31995#25968
      DisplayWidth = 14
      FieldName = 'StoreTrans'
      Origin = 'KDS1.base.StoreTrans'
    end
    object Query1XH: TStringField
      DisplayLabel = #24207#21495
      DisplayWidth = 9
      FieldName = 'XH'
      Origin = 'KDS1.base.XH'
      Size = 50
    end
    object Query1Comment: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 11
      FieldName = 'Comment'
      Origin = 'KDS1.base.Comment'
      Size = 50
    end
    object Query1PingYingCode: TStringField
      DisplayLabel = #25340#38899#30721
      DisplayWidth = 15
      FieldName = 'PingYingCode'
      Origin = 'KDS1.base.PingYingCode'
      Size = 50
    end
    object Query1NumCode: TStringField
      DisplayLabel = #25968#23383#30721
      DisplayWidth = 10
      FieldName = 'NumCode'
      Origin = 'KDS1.base.NumCode'
      Size = 50
    end
    object Query1WBCode: TStringField
      DisplayLabel = #20116#31508#30721
      DisplayWidth = 15
      FieldName = 'WBCode'
      Origin = 'KDS1.base.WBCode'
      Size = 50
    end
    object Query1OtherCode: TStringField
      DisplayLabel = #20854#23427#30721
      DisplayWidth = 11
      FieldName = 'OtherCode'
      Origin = 'KDS1.base.OtherCode'
      Size = 50
    end
    object Query1Stopped: TIntegerField
      DisplayLabel = #20572#29992
      DisplayWidth = 8
      FieldName = 'Stopped'
      Origin = 'KDS1.base.Stopped'
    end
    object Query1SalePrice: TFloatField
      DisplayLabel = #38646#21806#20215
      DisplayWidth = 9
      FieldName = 'SalePrice'
      Origin = 'KDS1.base.SalePrice'
    end
    object Query1InPrice: TFloatField
      DisplayLabel = #36827#36135#20215
      DisplayWidth = 8
      FieldName = 'InPrice'
      Origin = 'KDS1.base.InPrice'
    end
    object Query1nProperty: TIntegerField
      DisplayLabel = #20998#31867
      DisplayWidth = 7
      FieldName = 'nProperty'
      Origin = 'KDS1.base.nProperty'
    end
  end
end