jx1.dfm

药店GSP源码

object Form15: TForm15
  Left = 288
  Top = 164
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = #21058#22411
  ClientHeight = 168
  ClientWidth = 316
  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 DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 316
    Height = 168
    Align = alBottom
    DataSource = DataSource1
    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 = 'ID'
        Title.Alignment = taCenter
        Width = 35
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jx'
        Title.Alignment = taCenter
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pinyin'
        Title.Alignment = taCenter
        Width = 105
        Visible = True
      end>
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'jx'
    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 = 232
    Top = 32
  end
  object Query1: TQuery
    DatabaseName = 'jx'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from jx')
    Left = 192
    Top = 32
    object Query1ID: TIntegerField
      FieldName = 'ID'
      Origin = 'JX.JX.ID'
    end
    object Query1jx: TStringField
      DisplayLabel = #21058#22411
      FieldName = 'jx'
      Origin = 'JX.JX.jx'
      Size = 255
    end
    object Query1pinyin: TStringField
      DisplayLabel = #25340#38899#30721
      FieldName = 'pinyin'
      Origin = 'JX.JX.pinyin'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 160
    Top = 32
  end
end