lotno.dfm

药店GSP源码

object Form14: TForm14
  Left = 93
  Top = 141
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = #29983#20135#25209#21495
  ClientHeight = 366
  ClientWidth = 675
  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 = 675
    Height = 366
    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 = 'JIN_DATE'
        Title.Alignment = taCenter
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Alignment = taCenter
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BASICUNIT'
        Title.Alignment = taCenter
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GUIGE'
        Title.Alignment = taCenter
        Width = 74
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JX'
        Title.Alignment = taCenter
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SHU'
        Title.Alignment = taCenter
        Width = 34
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SALEPRICE'
        Title.Alignment = taCenter
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'INPRICE'
        Title.Alignment = taCenter
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PLACE'
        Title.Alignment = taCenter
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LOTNO'
        Title.Alignment = taCenter
        Width = 74
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'YX_DATE'
        Title.Alignment = taCenter
        Width = 68
        Visible = True
      end>
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'LOTNO'
    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 = 360
    Top = 96
  end
  object Query1: TQuery
    DatabaseName = 'LOTNO'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from jhdj')
    Left = 328
    Top = 96
    object Query1JIN_DATE: TDateTimeField
      DisplayLabel = #36827#36135#26085#26399
      FieldName = 'JIN_DATE'
      Origin = 'LOTNO.JHDJ.JIN_DATE'
    end
    object Query1NAME: TStringField
      DisplayLabel = #33647#21697#21517#31216
      FieldName = 'NAME'
      Origin = 'LOTNO.JHDJ.NAME'
      Size = 50
    end
    object Query1BASICUNIT: TStringField
      DisplayLabel = #21253#35013
      FieldName = 'BASICUNIT'
      Origin = 'LOTNO.JHDJ.BASICUNIT'
      Size = 50
    end
    object Query1GUIGE: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'GUIGE'
      Origin = 'LOTNO.JHDJ.GUIGE'
      Size = 50
    end
    object Query1JX: TStringField
      DisplayLabel = #21058#22411
      FieldName = 'JX'
      Origin = 'LOTNO.JHDJ.JX'
      Size = 50
    end
    object Query1SHU: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'SHU'
      Origin = 'LOTNO.JHDJ.SHU'
    end
    object Query1SALEPRICE: TFloatField
      DisplayLabel = #38646#21806#20215
      FieldName = 'SALEPRICE'
      Origin = 'LOTNO.JHDJ.SALEPRICE'
    end
    object Query1INPRICE: TFloatField
      DisplayLabel = #36827#20215
      FieldName = 'INPRICE'
      Origin = 'LOTNO.JHDJ.INPRICE'
    end
    object Query1PLACE: TStringField
      DisplayLabel = #29983#20135#20225#19994
      FieldName = 'PLACE'
      Origin = 'LOTNO.JHDJ.PLACE'
      Size = 50
    end
    object Query1LOTNO: TStringField
      DisplayLabel = #29983#20135#25209#21495
      FieldName = 'LOTNO'
      Origin = 'LOTNO.JHDJ.LOTNO'
      Size = 50
    end
    object Query1YX_DATE: TDateTimeField
      DisplayLabel = #26377#25928#26399
      FieldName = 'YX_DATE'
      Origin = 'LOTNO.JHDJ.YX_DATE'
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 296
    Top = 96
  end
end