ubill_base.~dfm

相关的销售服务管理行业的一个软件

      end
      object Splitter2: TSplitter
        Left = 787
        Top = 0
        Width = 3
        Height = 220
        Cursor = crHSplit
        Align = alRight
      end
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 2
        Height = 220
        Align = alLeft
        Caption = '这里没什么好看的：）'
        TabOrder = 0
      end
      object Panel6: TPanel
        Left = 790
        Top = 0
        Width = 2
        Height = 220
        Align = alRight
        Caption = '这里啥也没有！'
        TabOrder = 1
      end
      object DBGridEh1: TDBGridEh
        Left = 5
        Top = 0
        Width = 782
        Height = 220
        LineColor = clBlack
        SelectedFontColor = clHighlightText
        Align = alClient
        DataSource = DataSource2
        ImeName = '智能陈桥输入平台  5.2'
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 2
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnColEnter = DBGridEh1ColEnter
        OnColumnMoved = DBGridEh1ColumnMoved
        OnEditButtonClick = DBGridEh1EditButtonClick
        OnEnter = DBGridEh1Enter
        OnExit = DBGridEh1Exit
        OnKeyPress = DBGridEh1KeyPress
        FooterRowCount = 1
        FooterFont.Charset = ANSI_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = '宋体'
        FooterFont.Style = []
        FooterColor = clBackground
        SumList.Active = True
        CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
        CurrencyStyle.CurrencyFont.Color = clWindowText
        CurrencyStyle.CurrencyFont.Height = -11
        CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
        CurrencyStyle.CurrencyFont.Style = []
        CurrencyStyle.CurrencySymbol = '￥'
        CurrencyStyle.CompartColor = clSilver
        CurrencyStyle.KilobitColor = clGreen
        CurrencyStyle.RadixColor = clRed
        CurrencyStyle.ShowMinus = True
        CurrencyStyle.ShowZero = False
        CurrencyStyle.MinusColor = clRed
        CurrencyStyle.Layout = tlCenter
        CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
        CurrencyStyle.HeadFont.Color = clWindowText
        CurrencyStyle.HeadFont.Height = -11
        CurrencyStyle.HeadFont.Name = '楷体_GB2312'
        CurrencyStyle.HeadFont.Style = []
        Columns = <
          item
            Footers = <>
          end>
      end
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 792
    Height = 41
    AutoSize = True
    ButtonHeight = 35
    ButtonWidth = 31
    Caption = 'ToolBar1'
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Images = DM.ILMain
    ShowCaptions = True
    TabOrder = 1
    object BtnAdd: TToolButton
      Left = 0
      Top = 2
      Caption = '增加'
      ImageIndex = 3
      OnClick = BtnAddClick
    end
    object BtnChange: TToolButton
      Left = 31
      Top = 2
      Caption = '修改'
      ImageIndex = 1
      OnClick = BtnChangeClick
    end
    object BtnCancel: TToolButton
      Left = 62
      Top = 2
      Caption = '放弃'
      ImageIndex = 8
      OnClick = BtnCancelClick
    end
    object BtnSave: TToolButton
      Left = 93
      Top = 2
      Caption = '保存'
      ImageIndex = 7
      OnClick = BtnSaveClick
    end
    object BtnAuditing: TToolButton
      Left = 124
      Top = 2
      Caption = '审核'
      ImageIndex = 15
      OnClick = BtnAuditingClick
    end
    object btnDelete: TToolButton
      Left = 155
      Top = 2
      Caption = '删行'
      ImageIndex = 0
      OnClick = btnDeleteClick
    end
    object BtnSet: TToolButton
      Left = 186
      Top = 2
      Caption = '设置'
      ImageIndex = 4
      OnClick = BtnSetClick
    end
    object Separator1: TToolButton
      Left = 217
      Top = 2
      Width = 28
      Caption = 'Separator1'
      ImageIndex = 16
      Style = tbsSeparator
    end
    object BtnFirst: TToolButton
      Left = 245
      Top = 2
      Caption = '首张'
      ImageIndex = 9
      OnClick = BtnFirstClick
    end
    object BtnPrevious: TToolButton
      Left = 276
      Top = 2
      Caption = '向前'
      ImageIndex = 12
      OnClick = BtnPreviousClick
    end
    object BtnNext: TToolButton
      Left = 307
      Top = 2
      Caption = '向后'
      ImageIndex = 11
      OnClick = BtnNextClick
    end
    object BtnLast: TToolButton
      Left = 338
      Top = 2
      Caption = '最后'
      ImageIndex = 10
      OnClick = BtnLastClick
    end
    object Separator2: TToolButton
      Left = 369
      Top = 2
      Width = 28
      Caption = 'Separator2'
      ImageIndex = 16
      Style = tbsSeparator
    end
    object BitPrint: TToolButton
      Left = 397
      Top = 2
      Caption = '打印'
      ImageIndex = 5
    end
    object BtnPreview: TToolButton
      Left = 428
      Top = 2
      Caption = '预览'
      ImageIndex = 19
    end
    object Separator3: TToolButton
      Left = 459
      Top = 2
      Width = 16
      Caption = 'Separator3'
      ImageIndex = 14
      Style = tbsSeparator
    end
    object BtnFiltrate: TToolButton
      Left = 475
      Top = 2
      Caption = '过滤'
      ImageIndex = 20
      Visible = False
    end
    object BtnExit: TToolButton
      Left = 506
      Top = 2
      Caption = '退出'
      ImageIndex = 2
      OnClick = BtnExitClick
    end
  end
  object DataSource1: TDataSource
    DataSet = QryMaster
    Left = 753
    Top = 93
  end
  object DataSource2: TDataSource
    DataSet = QryDetail
    Left = 425
    Top = 300
  end
  object LocalCon: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 729
    Top = 5
  end
  object ADOProc1: TADOStoredProc
    Connection = LocalCon
    ProcedureName = 'Kc_AutoCode;1'
    Parameters = <
      item
        Name = '@Type'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 20
        Value = Null
      end
      item
        Name = '@nDate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 10
        Value = Null
      end
      item
        Name = '@Code'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Direction = pdInputOutput
        Size = 20
        Value = Null
      end>
    Left = 33
    Top = 69
  end
  object ADOProc2: TADOStoredProc
    Connection = LocalCon
    ProcedureName = 'Kc_AutoCode2;1'
    Parameters = <
      item
        Name = '@Type'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 20
        Value = Null
      end
      item
        Name = '@nDate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 10
        Value = Null
      end>
    Left = 75
    Top = 69
  end
  object ADOProc3: TADOStoredProc
    Connection = LocalCon
    ProcedureName = 'Kc_AutoCode3;1'
    Parameters = <
      item
        Name = '@Type'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 20
        Value = Null
      end
      item
        Name = '@nDate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 10
        Value = Null
      end
      item
        Name = '@Code'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 20
        Value = ''
      end>
    Left = 118
    Top = 69
  end
  object Proc_NewBill: TADOStoredProc
    ProcedureName = 'Kc_NewBill;1'
    Parameters = <
      item
        Name = '@BillID'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 50
        Value = Null
      end
      item
        Name = '@AddOrDel'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end>
    Left = 160
    Top = 69
  end
  object QryMaster: TADOQuery
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = QryMasterAfterOpen
    AfterInsert = QryMasterAfterInsert
    AfterEdit = QryMasterAfterEdit
    AfterScroll = QryMasterAfterScroll
    Parameters = <>
    SQL.Strings = (
      'Select * from Kc_Goodmaster')
    Left = 753
    Top = 152
  end
  object QryLookUp: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT nGdUnit, Code, Name, nGdGg, '
      'bGdPosition, bGdBatch, nColor1 as nColor,nGdAddCode'
      'FROM V_Goods')
    Left = 201
    Top = 285
    object QryLookUpName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object QryLookUpnGdUnit: TWideStringField
      FieldName = 'nGdUnit'
      Size = 50
    end
    object QryLookUpnGdGg: TWideStringField
      FieldName = 'nGdGg'
      Size = 50
    end
    object QryLookUpnColor: TWideStringField
      FieldName = 'nColor'
      Size = 50
    end
    object QryLookUpbGdBatch: TBooleanField
      FieldName = 'bGdBatch'
    end
    object QryLookUpCode: TWideStringField
      FieldName = 'Code'
      Size = 50
    end
    object QryLookUpnGdAddCode: TWideStringField
      FieldName = 'nGdAddCode'
      Size = 50
    end
  end
  object ProcCanChange: TADOStoredProc
    ProcedureName = 'Kc_CanChange;1'
    Parameters = <
      item
        Name = '@BillID'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 50
        Value = Null
      end
      item
        Name = '@CanChange'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Direction = pdInputOutput
        Size = 10
        Value = Null
      end>
    Left = 201
    Top = 69
  end
  object QryLoadField: TADOQuery
    Parameters = <>
    Left = 721
    Top = 338
  end
  object QryDetail: TADOQuery
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = QryDetailAfterOpen
    BeforePost = QryDetailBeforePost
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM Kc_Gooddetail')
    Left = 457
    Top = 300
    object QryDetailnId: TAutoIncField
      FieldName = 'nId'
      ReadOnly = True
    end
    object QryDetailnBillID: TWideStringField
      FieldName = 'nBillID'
      Size = 50
    end
    object QryDetailnGoodCode: TWideStringField
      FieldName = 'nGoodCode'
      Size = 50
    end
    object QryDetailnfsprice: TBCDField
      FieldName = 'nfsprice'
      OnSetText = QryDetailnfspriceSetText
      Precision = 18
    end
    object QryDetailnFsCount: TBCDField
      FieldName = 'nFsCount'
      OnSetText = QryDetailnFsCountSetText
      Precision = 18
    end
    object QryDetailnFsJine: TBCDField
      FieldName = 'nFsJine'
      OnSetText = QryDetailnFsJineSetText
      Precision = 18
    end
    object QryDetailnPosition: TWideStringField
      FieldName = 'nPosition'
      Size = 50
    end
    object QryDetailnCus1: TWideStringField
      FieldName = 'nCus1'
      Size = 50
    end
    object QryDetailnCus2: TWideStringField
      FieldName = 'nCus2'
      Size = 50
    end
    object QryDetailnMemo: TWideStringField
      FieldName = 'nMemo'
      Size = 100
    end
    object QryDetailnbatch: TWideStringField
      FieldName = 'nbatch'
      Size = 50
    end
    object QryDetailbBatch: TBooleanField
      FieldKind = fkLookup
      FieldName = 'bBatch'
      LookupDataSet = QryLookUp
      LookupKeyFields = 'Code'
      LookupResultField = 'bGdBatch'
      KeyFields = 'nGoodCode'
      Lookup = True
    end
    object QryDetailnGoodName: TStringField
      FieldKind = fkLookup
      FieldName = 'nGoodName'
      LookupDataSet = QryLookUp
      LookupKeyFields = 'Code'
      LookupResultField = 'Name'
      KeyFields = 'nGoodCode'
      Size = 50
      Lookup = True
    end
    object QryDetailnUnit: TStringField
      FieldKind = fkLookup
      FieldName = 'nUnit'
      LookupDataSet = QryLookUp
      LookupKeyFields = 'Code'
      LookupResultField = 'nGdUnit'
      KeyFields = 'nGoodCode'
      Size = 50
      Lookup = True
    end
    object QryDetailnGDGg: TStringField
      FieldKind = fkLookup
      FieldName = 'nGDGg'
      LookupDataSet = QryLookUp
      LookupKeyFields = 'Code'
      LookupResultField = 'nGdGg'
      KeyFields = 'nGoodCode'
      Size = 50
      Lookup = True
    end
    object QryDetailnColor: TStringField
      FieldKind = fkLookup
      FieldName = 'nColor'
      LookupDataSet = QryLookUp
      LookupKeyFields = 'Code'
      LookupResultField = 'nColor'
      KeyFields = 'nGoodCode'
      ReadOnly = True
      Size = 50
      Lookup = True
    end
    object QryDetailnGdAddCode: TStringField
      FieldKind = fkLookup
      FieldName = 'nGdAddCode'
      LookupDataSet = QryLookUp
      LookupKeyFields = 'Code'
      LookupResultField = 'nGdAddCode'
      KeyFields = 'nGoodCode'
      Size = 50
      Lookup = True
    end
  end
  object ADOQSFtype: TADOQuery
    Parameters = <>
    Left = 464
    Top = 65
  end
end