ghsdacx1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

object ghsdacx: Tghsdacx
  Left = 227
  Top = 134
  Width = 657
  Height = 468
  Caption = '供货商档案查询'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 649
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label2: TLabel
      Left = 329
      Top = 16
      Width = 48
      Height = 12
      Caption = '联系人：'
    end
    object Label1: TLabel
      Left = 0
      Top = 16
      Width = 72
      Height = 12
      Caption = '供货商编码：'
    end
    object Label3: TLabel
      Left = 152
      Top = 16
      Width = 72
      Height = 12
      Caption = '供货商名称：'
    end
    object Button1: TButton
      Left = 518
      Top = 5
      Width = 62
      Height = 25
      Caption = '查询'
      Default = True
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 586
      Top = 5
      Width = 58
      Height = 25
      Caption = '打印'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Edit1: TEdit
      Left = 70
      Top = 8
      Width = 73
      Height = 20
      TabOrder = 2
    end
    object Edit3: TEdit
      Left = 222
      Top = 8
      Width = 103
      Height = 20
      TabOrder = 3
    end
    object Edit2: TEdit
      Left = 376
      Top = 8
      Width = 97
      Height = 20
      TabOrder = 4
    end
  end
  object PTSplitter1: TPTSplitter
    Left = 0
    Top = 41
    Width = 649
    Height = 400
    Align = alClient
    Position = 150
    TabOrder = 1
    object PTSplitter1_pane1: TPTPane
      Left = 0
      Top = 0
      Width = 150
      Height = 400
      TabOrder = 0
      Index = 0
      object dxDBTreeList1: TdxDBTreeList
        Left = 0
        Top = 0
        Width = 146
        Height = 396
        Bands = <
          item
            Caption = '类别名称'
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'dqid'
        ParentField = 'sjdqid'
        Align = alClient
        Color = 15524050
        TabOrder = 0
        OnClick = dxDBTreeList1Click
        DataSource = DataSource2
        LookAndFeel = lfFlat
        OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoTabThrough]
        OptionsDB = [etoAutoCalcKeyValue, etoCanDelete, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
        OptionsView = [etoAutoWidth, etoBandHeaderWidth, etoUseBitmap, etoUseImageIndexForSelected]
        RootValue = '-1'
        ShowPreviewGrid = False
        TreeLineColor = clRed
        TreeLineStyle = tlSolid
        object dxDBTreeList1Column1: TdxDBTreeListMaskColumn
          Alignment = taLeftJustify
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          HeaderAlignment = taCenter
          Sorted = csUp
          Width = 387
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dqname'
        end
        object dxDBTreeList1Column2: TdxDBTreeListMaskColumn
          Visible = False
          Width = 81
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dqid'
        end
        object dxDBTreeList1Column3: TdxDBTreeListMaskColumn
          Visible = False
          Width = 81
          BandIndex = 0
          RowIndex = 0
          FieldName = 'sjdqid'
        end
      end
    end
    object PTSplitter1_pane2: TPTPane
      Left = 153
      Top = 0
      Width = 496
      Height = 400
      TabOrder = 1
      Index = 1
      object dxDBGrid1: TdxDBGrid
        Left = 0
        Top = 0
        Width = 492
        Height = 396
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'code'
        ShowSummaryFooter = True
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        Color = 15524050
        TabOrder = 0
        DataSource = DataSource1
        Filter.Active = True
        Filter.Criteria = {00000000}
        GridLineColor = clNavy
        LookAndFeel = lfFlat
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
        RegistryPath = '\Software\server\ghsdacx'
        object dxDBGrid1code: TdxDBGridMaskColumn
          Width = 81
          BandIndex = 0
          RowIndex = 0
          FieldName = 'code'
        end
        object dxDBGrid1name: TdxDBGridMaskColumn
          Width = 103
          BandIndex = 0
          RowIndex = 0
          FieldName = 'name'
        end
        object dxDBGrid1dq: TdxDBGridMaskColumn
          Width = 79
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dq'
        end
        object dxDBGrid1lxr: TdxDBGridMaskColumn
          Width = 77
          BandIndex = 0
          RowIndex = 0
          FieldName = 'lxr'
        end
        object dxDBGrid1lxdh: TdxDBGridMaskColumn
          Width = 125
          BandIndex = 0
          RowIndex = 0
          FieldName = 'lxdh'
        end
        object dxDBGrid1cz: TdxDBGridMaskColumn
          Width = 99
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cz'
        end
        object dxDBGrid1lxdz: TdxDBGridMaskColumn
          Width = 144
          BandIndex = 0
          RowIndex = 0
          FieldName = 'lxdz'
        end
        object dxDBGrid1bz: TdxDBGridMaskColumn
          Width = 185
          BandIndex = 0
          RowIndex = 0
          FieldName = 'bz'
        end
        object dxDBGrid1qc: TdxDBGridMaskColumn
          Width = 124
          BandIndex = 0
          RowIndex = 0
          FieldName = 'qc'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1ye: TdxDBGridMaskColumn
          Width = 124
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ye'
          SummaryFooterType = cstSum
        end
      end
      object ListBox1: TListBox
        Left = 315
        Top = 56
        Width = 153
        Height = 268
        ItemHeight = 12
        TabOrder = 1
        Visible = False
      end
      object ListBox2: TListBox
        Left = 120
        Top = 176
        Width = 121
        Height = 97
        ItemHeight = 12
        TabOrder = 2
        Visible = False
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 208
    Top = 136
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'code'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 5
        Value = '%'
      end
      item
        Name = 'name'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 200
        Value = '%'
      end
      item
        Name = 'lxr'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '%'
      end
      item
        Name = 'dq'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '%'
      end>
    SQL.Strings = (
      
        'select * from ghsda_v where code like :code and name like :name ' +
        'and lxr like :lxr and dq like :dq')
    Left = 160
    Top = 136
    object ADOQuery1code: TStringField
      DisplayLabel = '供货商编码'
      FieldName = 'code'
      Size = 5
    end
    object ADOQuery1name: TStringField
      DisplayLabel = '供货商名称'
      FieldName = 'name'
      Size = 200
    end
    object ADOQuery1dq: TStringField
      DisplayLabel = '地区'
      FieldName = 'dq'
      Size = 50
    end
    object ADOQuery1lxr: TStringField
      DisplayLabel = '联系人'
      FieldName = 'lxr'
      Size = 50
    end
    object ADOQuery1lxdh: TStringField
      DisplayLabel = '联系电话'
      FieldName = 'lxdh'
      Size = 50
    end
    object ADOQuery1cz: TStringField
      DisplayLabel = '传真'
      FieldName = 'cz'
      Size = 50
    end
    object ADOQuery1lxdz: TStringField
      DisplayLabel = '联系地址'
      FieldName = 'lxdz'
      Size = 200
    end
    object ADOQuery1bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
    object ADOQuery1qc: TBCDField
      DisplayLabel = '期初余额'
      FieldName = 'qc'
      Precision = 19
    end
    object ADOQuery1ye: TBCDField
      DisplayLabel = '余额'
      FieldName = 'ye'
      Precision = 19
    end
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 32
    Top = 240
  end
  object Table1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    TableName = 'DQDA'
    Left = 32
    Top = 208
    object Table1dqid: TIntegerField
      FieldName = 'dqid'
    end
    object Table1dqname: TStringField
      DisplayLabel = '地区名称'
      FieldName = 'dqname'
    end
    object Table1sjdqid: TIntegerField
      FieldName = 'sjdqid'
    end
  end
  object dxComponentPrinter1: TdxComponentPrinter
    CurrentLink = dxComponentPrinter1Link1
    PreviewOptions.Caption = '供货商档案表'
    PreviewOptions.RegistryPath = 'Software\Developer Express\PrintingSystem\DesignTime'
    PreviewOptions.WindowState = wsMaximized
    PrintTitle = '供货商档案表'
    Left = 272
    Top = 216
    object dxComponentPrinter1Link1: TdxDBGridReportLink
      Active = True
      Component = dxDBGrid1
      DateTime = 37733.5173104167
      DesignerHelpContext = 0
      PrinterPage.DMPaper = 256
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageFooter.Font.Color = clWindowText
      PrinterPage.PageFooter.Font.Height = -11
      PrinterPage.PageFooter.Font.Name = 'Tahoma'
      PrinterPage.PageFooter.Font.Style = []
      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageHeader.Font.Color = clWindowText
      PrinterPage.PageHeader.Font.Height = -11
      PrinterPage.PageHeader.Font.Name = 'Tahoma'
      PrinterPage.PageHeader.Font.Style = []
      PrinterPage.PageSize.X = 215900
      PrinterPage.PageSize.Y = 279400
      PrinterPage.ScaleMode = smFit
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportTitle.Font.Charset = DEFAULT_CHARSET
      ReportTitle.Font.Color = clWindowText
      ReportTitle.Font.Height = -19
      ReportTitle.Font.Name = 'Times New Roman'
      ReportTitle.Font.Style = [fsBold]
      ReportTitle.Text = '供货商档案表'
      ShrinkToPageWidth = True
      BandFont.Charset = DEFAULT_CHARSET
      BandFont.Color = clWindowText
      BandFont.Height = -11
      BandFont.Name = 'Times New Roman'
      BandFont.Style = []
      EvenFont.Charset = DEFAULT_CHARSET
      EvenFont.Color = clWindowText
      EvenFont.Height = -11
      EvenFont.Name = 'Times New Roman'
      EvenFont.Style = []
      FixedTransparent = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Times New Roman'
      FooterFont.Style = []
      GroupNodeFont.Charset = DEFAULT_CHARSET
      GroupNodeFont.Color = clWindowText
      GroupNodeFont.Height = -11
      GroupNodeFont.Name = 'Times New Roman'
      GroupNodeFont.Style = []
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -11
      HeaderFont.Name = 'Times New Roman'
      HeaderFont.Style = []
      OddFont.Charset = DEFAULT_CHARSET
      OddFont.Color = clWindowText
      OddFont.Height = -11
      OddFont.Name = 'Times New Roman'
      OddFont.Style = []
      Options = [tlpoBands, tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clWindowText
      PreviewFont.Height = -11
      PreviewFont.Name = 'Times New Roman'
      PreviewFont.Style = []
      RowFooterFont.Charset = DEFAULT_CHARSET
      RowFooterFont.Color = clWindowText
      RowFooterFont.Height = -11
      RowFooterFont.Name = 'Times New Roman'
      RowFooterFont.Style = []
    end
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 200
    Top = 216
  end
end