ar_enter_startbalance.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 130 行

inherited Frm_Ar_Enter_StArtBalance: TFrm_Ar_Enter_StArtBalance
  Left = 105
  Top = 108
  Caption = '期初余额设置'
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '期初余额设置'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 78
      Caption = '客户代码/月份'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'customerCode'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerName'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BalanceYearMonth'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoInvoiceAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'remArk'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 133
    Top = 243
  end
  inherited ActionList: TActionList
    Left = 200
    Top = 152
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B_old;Data Source=192.16' +
      '8.0.151'
    CurSorType = ctStatic
    SQL.Strings = (
      'select Balanceid,'
      '       sa_ArBalance.customerCode,'
      '       customer.customerName,'
      '       BalanceYearMonth,'
      '       InvoiceAmount,'
      '       NoInvoiceAmount,'
      '       remArk'
      '        from sa_ArBalance'
      'join customer on sa_ArBalance.customerCode=customer.customerCode')
    Left = 208
    Top = 209
    object AdoQry_MaincustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'customerCode'
      Origin = 'sa_ArBalance'
      Size = 12
    end
    object AdoQry_MaincustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'customerName'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_MainBalanceYearMonth: TStringField
      DisplayLabel = '月份'
      FieldName = 'BalanceYearMonth'
      Origin = 'sa_ArBalance'
      Size = 7
    end
    object AdoQry_MainInvoiceAmount: TFloatField
      DisplayLabel = '有票余额'
      FieldName = 'InvoiceAmount'
      Origin = 'sa_ArBalance'
    end
    object AdoQry_MainNoInvoiceAmount: TFloatField
      DisplayLabel = '未票余额'
      FieldName = 'NoInvoiceAmount'
      Origin = 'sa_ArBalance'
    end
    object AdoQry_MainremArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'remArk'
      Origin = 'sa_ArBalance'
      Size = 30
    end
    object AdoQry_MainBalanceid: TAutoIncField
      FieldName = 'Balanceid'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Top = 137
  end
end