gys.dfm

药店GSP源码

object Form7: TForm7
  Left = 220
  Top = 126
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = #20379#36135#21830#36164#26009
  ClientHeight = 206
  ClientWidth = 366
  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 GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 353
    Height = 185
    Caption = #20379#36135#21830#31649#29702
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 66
      Height = 12
      Caption = #20379#36135#21830#21517#31216':'
    end
    object Label2: TLabel
      Left = 8
      Top = 56
      Width = 66
      Height = 12
      Caption = #25340#38899#32534#30721'  :'
    end
    object Label3: TLabel
      Left = 8
      Top = 80
      Width = 66
      Height = 12
      Caption = #32852' '#31995' '#20154'  :'
    end
    object Label4: TLabel
      Left = 8
      Top = 104
      Width = 66
      Height = 12
      Caption = #32852#31995#30005#35805'  :'
    end
    object Edit1: TEdit
      Left = 80
      Top = 28
      Width = 97
      Height = 20
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 80
      Top = 52
      Width = 97
      Height = 20
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 80
      Top = 76
      Width = 97
      Height = 20
      TabOrder = 2
    end
    object Edit4: TEdit
      Left = 80
      Top = 100
      Width = 97
      Height = 20
      TabOrder = 3
    end
    object BitBtn1: TBitBtn
      Left = 16
      Top = 152
      Width = 81
      Height = 20
      Caption = #25552#20132
      TabOrder = 4
      OnClick = BitBtn1Click
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3300333333333333330033333333333333003333300033333300333330F03333
        3300333330F033333300330000F000033300330FFFFFFF033300330000F00003
        3300333330F033333300333330F0333333003333300033333300333333333333
        33003333333333333300}
    end
    object BitBtn2: TBitBtn
      Left = 112
      Top = 152
      Width = 81
      Height = 20
      Caption = #36864#20986
      TabOrder = 5
      OnClick = BitBtn2Click
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3300333333333333330033333333333333003333333333333300333333333333
        330033333333333333003300000000003300330FFFFFFFF03300330000000000
        3300333333333333330033333333333333003333333333333300333333333333
        33003333333333333300}
    end
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'GHS'
    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 = 304
    Top = 56
  end
  object Table1: TTable
    DatabaseName = 'GHS'
    TableName = 'GHS'
    Left = 240
    Top = 64
  end
end