dllformunit.dfm

调用DLL中窗体相关源码

object frmDLLForm: TfrmDLLForm
  Left = 238
  Top = 135
  Width = 544
  Height = 375
  Caption = 'frmDLLForm'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = DLLMainMenu
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 256
    Width = 536
    Height = 73
    Align = alBottom
    TabOrder = 0
    object Edit1: TEdit
      Left = 32
      Top = 36
      Width = 97
      Height = 20
      TabOrder = 0
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 160
      Top = 36
      Width = 73
      Height = 20
      TabOrder = 1
      Text = 'Edit2'
    end
    object Edit3: TEdit
      Left = 240
      Top = 36
      Width = 65
      Height = 20
      TabOrder = 2
      Text = 'Edit3'
    end
    object Btn_Default: TButton
      Left = 312
      Top = 32
      Width = 121
      Height = 25
      Caption = #40664#35748#25353#38062
      Default = True
      TabOrder = 3
      OnClick = Btn_DefaultClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 536
    Height = 256
    Align = alClient
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object DLLMainMenu: TMainMenu
    Left = 328
    Top = 80
    object m_DLLMenu: TMenuItem
      Caption = 'DLL'#37324#30340#33756#21333
      GroupIndex = 8
      object mi_WhatName: TMenuItem
        Caption = #20160#20040#21517#23383#21602
        OnClick = mi_WhatNameClick
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 464
    Top = 40
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\Database.mdb;Pers' +
      'ist Security Info=False;Jet OLEDB:Database Password=tuesday'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 464
    Top = 120
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from OrderForm')
    Left = 464
    Top = 64
    object ADOQuery1OrderNO: TWideStringField
      DisplayWidth = 14
      FieldName = 'OrderNO'
      Size = 50
    end
    object ADOQuery1CustNO: TWideStringField
      DisplayWidth = 18
      FieldName = 'CustNO'
      Size = 50
    end
    object ADOQuery1OrderNumber: TSmallintField
      DisplayWidth = 11
      FieldName = 'OrderNumber'
    end
    object ADOQuery1OrderMoney: TFloatField
      DisplayWidth = 10
      FieldName = 'OrderMoney'
    end
    object ADOQuery1SoftNO: TWideStringField
      DisplayWidth = 50
      FieldName = 'SoftNO'
      Size = 50
    end
    object ADOQuery1DeliverDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'DeliverDate'
    end
    object ADOQuery1DeliverInstance: TBooleanField
      DisplayWidth = 15
      FieldName = 'DeliverInstance'
    end
    object ADOQuery1CustReceive: TBooleanField
      DisplayWidth = 11
      FieldName = 'CustReceive'
    end
    object ADOQuery1InvoiceInstance: TBooleanField
      DisplayWidth = 15
      FieldName = 'InvoiceInstance'
    end
    object ADOQuery1InvDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'InvDate'
    end
    object ADOQuery1InvMoney: TFloatField
      DisplayWidth = 10
      FieldName = 'InvMoney'
    end
    object ADOQuery1InvCustReceived: TBooleanField
      DisplayWidth = 15
      FieldName = 'InvCustReceived'
    end
    object ADOQuery1PaymentMode: TWideStringField
      DisplayWidth = 50
      FieldName = 'PaymentMode'
      Size = 50
    end
    object ADOQuery1PaymentDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'PaymentDate'
    end
    object ADOQuery1ReceiveMoneyDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'ReceiveMoneyDate'
    end
    object ADOQuery1HandleMan: TWideStringField
      DisplayWidth = 50
      FieldName = 'HandleMan'
      Size = 50
    end
  end
end