sccj1.dfm

药店GSP源码

object Form12: TForm12
  Left = 297
  Top = 245
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = #29983#20135#21378#23478
  ClientHeight = 248
  ClientWidth = 442
  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 = -1
    Width = 442
    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 = 92
        Visible = True
      end>
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'gys'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from scs')
    Left = 328
    Top = 168
    object Query1ID: TIntegerField
      FieldName = 'ID'
      Origin = 'GYS.scs.ID'
    end
    object Query1NAME: TStringField
      DisplayLabel = #29983#20135#21378#23478
      FieldName = 'NAME'
      Origin = 'GYS.scs.NAME'
      Size = 50
    end
    object Query1PINYIN: TStringField
      DisplayLabel = #25340#38899#30721
      FieldName = 'PINYIN'
      Origin = 'GYS.scs.PINYIN'
      Size = 50
    end
    object Query1LXR: TStringField
      DisplayLabel = #32852#31995#20154
      FieldName = 'LXR'
      Origin = 'GYS.scs.LXR'
      Size = 50
    end
    object Query1PHONE: TStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'PHONE'
      Origin = 'GYS.scs.PHONE'
      Size = 50
    end
  end
  object Database1: TDatabase
    AliasName = 'kds'
    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 = 408
    Top = 176
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 264
    Top = 200
  end
end