ku_cun.dfm

药店GSP源码

object Form16: TForm16
  Left = -2
  Top = -1
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = #24211#23384#29366#20917#26597#35810
  ClientHeight = 545
  ClientWidth = 792
  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 Label1: TLabel
    Left = 40
    Top = 29
    Width = 48
    Height = 12
    Caption = #25340#38899#30721#65306
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 96
    Width = 792
    Height = 449
    Align = alBottom
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'name'
        Title.Alignment = taCenter
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'basicunit'
        Title.Alignment = taCenter
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jx'
        Title.Alignment = taCenter
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sum_shu'
        Title.Alignment = taCenter
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'place'
        Title.Alignment = taCenter
        Width = 104
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lotno'
        Title.Alignment = taCenter
        Width = 124
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yx_date'
        Title.Alignment = taCenter
        Width = 93
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'inprice'
        Title.Alignment = taCenter
        Width = 76
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'in_sum'
        Title.Alignment = taCenter
        Width = 88
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 88
    Top = 24
    Width = 97
    Height = 20
    TabOrder = 1
  end
  object BitBtn1: TBitBtn
    Left = 208
    Top = 22
    Width = 81
    Height = 22
    Caption = #26597#35810
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 304
    Top = 22
    Width = 81
    Height = 22
    Caption = #25171#21360
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 400
    Top = 22
    Width = 81
    Height = 22
    Caption = #36864#20986
    TabOrder = 4
    OnClick = BitBtn3Click
  end
  object Button1: TButton
    Left = 168
    Top = 24
    Width = 17
    Height = 17
    Caption = '...'
    TabOrder = 5
    OnClick = Button1Click
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 544
    Top = 48
  end
  object Database1: TDatabase
    AliasName = 'kds'
    DatabaseName = 'kczk'
    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'
    TransIsolation = tiRepeatableRead
    Left = 576
    Top = 32
  end
  object Query1: TQuery
    DatabaseName = 'kczk'
    SQL.Strings = (
      
        'select name,basicunit,jx,sum(shu) as sum_shu,place,lotno,yx_date' +
        ','
      'inprice,sum(sum_in) as in_sum'
      'from ku_cun'
      'group by name,basicunit,jx,place,lotno,yx_date,inprice'
      'order by name')
    Left = 624
    Top = 40
    object Query1name: TStringField
      DisplayLabel = #21697#21517
      FieldName = 'name'
      Size = 50
    end
    object Query1basicunit: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'basicunit'
      Size = 50
    end
    object Query1jx: TStringField
      DisplayLabel = #21058#22411
      FieldName = 'jx'
      Size = 50
    end
    object Query1sum_shu: TFloatField
      DisplayLabel = #24211#23384#25968#37327
      FieldName = 'sum_shu'
    end
    object Query1place: TStringField
      DisplayLabel = #29983#20135#20225#19994
      FieldName = 'place'
      Size = 50
    end
    object Query1lotno: TStringField
      DisplayLabel = #29983#20135#25209#21495
      FieldName = 'lotno'
      Size = 50
    end
    object Query1yx_date: TDateTimeField
      DisplayLabel = #26377#25928#26085#26399
      FieldName = 'yx_date'
    end
    object Query1inprice: TFloatField
      DisplayLabel = #36827#36135#20215#26684
      FieldName = 'inprice'
    end
    object Query1in_sum: TFloatField
      DisplayLabel = #24211#23384#24635#39069
      FieldName = 'in_sum'
    end
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 456
    Top = 64
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = Query1
    Left = 504
    Top = 64
  end
end