jh_ch.dfm

药店GSP源码

object Form18: TForm18
  Left = 2
  Top = 0
  AutoScroll = False
  Caption = #36827#36135#24773#20917#26597#35810
  ClientHeight = 547
  ClientWidth = 793
  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 = 0
    Top = 8
    Width = 793
    Height = 184
    Caption = #36827#36135#24773#20917#26597#35810
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 76
      Width = 60
      Height = 12
      Caption = #24320#22987#26085#26399#65306
    end
    object Label2: TLabel
      Left = 24
      Top = 116
      Width = 60
      Height = 12
      Caption = #32467#26463#26085#26399#65306
    end
    object Label3: TLabel
      Left = 256
      Top = 76
      Width = 48
      Height = 12
      Caption = #25340#38899#30721#65306
    end
    object CheckBox1: TCheckBox
      Left = 24
      Top = 32
      Width = 89
      Height = 17
      Caption = #25353#26085#26399#26597#35810
      TabOrder = 0
    end
    object dtp1: TDateTimePicker
      Left = 88
      Top = 72
      Width = 113
      Height = 20
      Date = 37919.000000000000000000
      Time = 37919.000000000000000000
      TabOrder = 1
    end
    object CheckBox2: TCheckBox
      Left = 256
      Top = 32
      Width = 89
      Height = 17
      Caption = #25353#21697#21517#26597#35810
      TabOrder = 2
    end
    object dtp2: TDateTimePicker
      Left = 88
      Top = 112
      Width = 113
      Height = 20
      Date = 37919.000000000000000000
      Time = 37919.000000000000000000
      TabOrder = 3
    end
    object Edit1: TEdit
      Left = 304
      Top = 72
      Width = 105
      Height = 20
      TabOrder = 4
    end
    object Button1: TButton
      Left = 392
      Top = 72
      Width = 17
      Height = 17
      Caption = '...'
      TabOrder = 5
      OnClick = Button1Click
    end
    object BitBtn1: TBitBtn
      Left = 456
      Top = 24
      Width = 81
      Height = 22
      Caption = #26597#35810
      TabOrder = 6
      OnClick = BitBtn1Click
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3300333333333333330033333333333333003333300033333300333330F03333
        3300333330F033333300330000F000033300330FFFFFFF033300330000F00003
        3300333330F033333300333330F0333333003333300033333300333333333333
        33003333333333333300}
    end
    object BitBtn2: TBitBtn
      Left = 456
      Top = 64
      Width = 81
      Height = 22
      Caption = #25171#21360
      TabOrder = 7
      OnClick = BitBtn2Click
      Glyph.Data = {
        EE000000424DEE000000000000007600000028000000100000000F0000000100
        0400000000007800000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
        0FFFF0888888888080FF000000000000080F0888888FFF88000F088888877788
        080F00000000000008800888888888808080F000000000080800FF0FFFFFFFF0
        8080FFF0F00000F0000FFFF0FFFFFFFF0FFFFFFF0F00000F0FFFFFFF0FFFFFFF
        F0FFFFFFF000000000FFFFFFFFFFFFFFFFFF}
    end
    object BitBtn3: TBitBtn
      Left = 456
      Top = 104
      Width = 81
      Height = 22
      Caption = #36864#20986
      TabOrder = 8
      OnClick = BitBtn3Click
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3300333333333333330033333333333333003333333333333300333333333333
        330033333333333333003300000000003300330FFFFFFFF03300330000000000
        3300333333333333330033333333333333003333333333333300333333333333
        33003333333333333300}
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 192
    Width = 793
    Height = 355
    Align = alBottom
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'JIN_DATE'
        Title.Alignment = taCenter
        Width = 91
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Alignment = taCenter
        Width = 92
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BASICUNIT'
        Title.Alignment = taCenter
        Width = 44
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GUIGE'
        Title.Alignment = taCenter
        Width = 76
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JX'
        Title.Alignment = taCenter
        Width = 39
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SHU'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SALEPRICE'
        Title.Alignment = taCenter
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'INPRICE'
        Title.Alignment = taCenter
        Width = 47
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUM_IN'
        Title.Alignment = taCenter
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PLACE'
        Title.Alignment = taCenter
        Width = 97
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LOTNO'
        Title.Alignment = taCenter
        Width = 84
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PZNO'
        Title.Alignment = taCenter
        Width = 96
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GYS'
        Title.Alignment = taCenter
        Width = 92
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'YX_DATE'
        Title.Alignment = taCenter
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 560
    Top = 48
  end
  object Database1: TDatabase
    AliasName = 'kds'
    Connected = True
    DatabaseName = 'jh_ch'
    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 = 672
    Top = 56
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'jh_ch'
    SQL.Strings = (
      'select *'
      'from jhdj')
    Left = 632
    Top = 56
    object Query1JIN_DATE: TDateTimeField
      DisplayLabel = #36827#36135#26085#26399
      FieldName = 'JIN_DATE'
      Origin = 'JH_CH.JHDJ.JIN_DATE'
    end
    object Query1NAME: TStringField
      DisplayLabel = #21697#21517
      FieldName = 'NAME'
      Origin = 'JH_CH.JHDJ.NAME'
      Size = 50
    end
    object Query1BASICUNIT: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'BASICUNIT'
      Origin = 'JH_CH.JHDJ.BASICUNIT'
      Size = 50
    end
    object Query1GUIGE: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'GUIGE'
      Origin = 'JH_CH.JHDJ.GUIGE'
      Size = 50
    end
    object Query1JX: TStringField
      DisplayLabel = #21058#22411
      FieldName = 'JX'
      Origin = 'JH_CH.JHDJ.JX'
      Size = 50
    end
    object Query1SHU: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'SHU'
      Origin = 'JH_CH.JHDJ.SHU'
    end
    object Query1SALEPRICE: TFloatField
      DisplayLabel = #38646#21806#20215
      FieldName = 'SALEPRICE'
      Origin = 'JH_CH.JHDJ.SALEPRICE'
    end
    object Query1INPRICE: TFloatField
      DisplayLabel = #36827#20215
      FieldName = 'INPRICE'
      Origin = 'JH_CH.JHDJ.INPRICE'
    end
    object Query1SUM_IN: TFloatField
      DisplayLabel = #24635#35745
      FieldName = 'SUM_IN'
      Origin = 'JH_CH.JHDJ.SUM_IN'
    end
    object Query1PLACE: TStringField
      DisplayLabel = #29983#20135#20225#19994
      FieldName = 'PLACE'
      Origin = 'JH_CH.JHDJ.PLACE'
      Size = 50
    end
    object Query1LOTNO: TStringField
      DisplayLabel = #29983#20135#25209#21495
      FieldName = 'LOTNO'
      Origin = 'JH_CH.JHDJ.LOTNO'
      Size = 50
    end
    object Query1PZNO: TStringField
      DisplayLabel = #25209#20934#25991#21495
      FieldName = 'PZNO'
      Origin = 'JH_CH.JHDJ.PZNO'
      Size = 50
    end
    object Query1GYS: TStringField
      DisplayLabel = #20379#36135#21830
      FieldName = 'GYS'
      Origin = 'JH_CH.JHDJ.GYS'
      Size = 50
    end
    object Query1YX_DATE: TDateTimeField
      DisplayLabel = #26377#25928#26085#26399
      FieldName = 'YX_DATE'
      Origin = 'JH_CH.JHDJ.YX_DATE'
    end
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 392
    Top = 136
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = Query1
    Left = 456
    Top = 152
  end
end