gys1.dfm

药店GSP源码

object Form11: TForm11
  Left = 259
  Top = 189
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = #20379#24212#21830
  ClientHeight = 249
  ClientWidth = 459
  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 = 459
    Height = 249
    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'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Title.Alignment = taCenter
        Width = 28
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Alignment = taCenter
        Width = 134
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PINYIN'
        Title.Alignment = taCenter
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LXR'
        Title.Alignment = taCenter
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PHONE'
        Title.Alignment = taCenter
        Width = 105
        Visible = True
      end>
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'gys'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from ghs')
    Left = 296
    Top = 72
    object Query1ID: TIntegerField
      DisplayWidth = 7
      FieldName = 'ID'
      Origin = 'GYS.GHS.ID'
    end
    object Query1NAME: TStringField
      DisplayLabel = #20379#24212#21830
      DisplayWidth = 25
      FieldName = 'NAME'
      Origin = 'GYS.GHS.NAME'
      Size = 50
    end
    object Query1PINYIN: TStringField
      DisplayLabel = #25340#38899#30721
      DisplayWidth = 15
      FieldName = 'PINYIN'
      Origin = 'GYS.GHS.PINYIN'
      Size = 50
    end
    object Query1LXR: TStringField
      DisplayLabel = #32852#31995#20154
      DisplayWidth = 13
      FieldName = 'LXR'
      Origin = 'GYS.GHS.LXR'
      Size = 50
    end
    object Query1PHONE: TStringField
      DisplayLabel = #32852#31995#30005#35805
      DisplayWidth = 60
      FieldName = 'PHONE'
      Origin = 'GYS.GHS.PHONE'
      Size = 50
    end
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'gys'
    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 = 352
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 232
    Top = 48
  end
end