ar_enter_accountaging.dfm

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

inherited Frm_Ar_Enter_AccountAging: TFrm_Ar_Enter_AccountAging
  Left = 227
  Top = 120
  Caption = #24080#40836#21306#38388#35774#32622
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #24080#40836#21306#38388#35774#32622
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = #20840#37096
    end
    inherited Lbl_Order: TLabel
      Width = 24
      Caption = #24207#21495
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        item
          EditButtons = <>
          FieldName = 'OrdinalNo'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #24207#21495
          Width = 44
        end
        item
          EditButtons = <>
          FieldName = 'Days'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #22825#25968
          Width = 44
        end
        item
          EditButtons = <>
          FieldName = 'AgingDESCription'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #24080#40836#21306#38388#25551#36848
          Width = 470
        end>
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    Left = 565
    Top = 211
  end
  inherited ActionList: TActionList
    Left = 224
    Top = 296
  end
  inherited AdoQry_Main: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=192.168.0.1' +
      '51;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Ar_AccountAging')
    Left = 264
    Top = 177
    object AdoQry_MainOrdinalNo: TIntegerField
      FieldName = 'OrdinalNo'
      Origin = 'Ar_AccountAging'
    end
    object AdoQry_MainDays: TIntegerField
      FieldName = 'Days'
      Origin = 'Ar_AccountAging'
    end
    object AdoQry_MainAgingDESCription: TStringField
      FieldName = 'AgingDESCription'
      Origin = 'Ar_AccountAging'
      Size = 10
    end
  end
  inherited DataSource: TDataSource
    Left = 448
    Top = 185
  end
end