unit1.~dfm

小型企业物品管理系统,DELPHI源码+ACCESS数据库

object Form1: TForm1
  Left = 237
  Top = 227
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 688
    Height = 169
    Align = alTop
    DataSource = ds1
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGridEh2: TDBGridEh
    Left = 0
    Top = 169
    Width = 688
    Height = 176
    Align = alTop
    DataSource = ds2
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object RzBitBtn1: TRzBitBtn
    Left = 8
    Top = 352
    FrameColor = 7617536
    Caption = #23548#20837
    Color = 15791348
    HotTrack = True
    TabOrder = 2
    OnClick = RzBitBtn1Click
  end
  object con1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\YB' +
      'QH.MDB;Mode=Share Deny None;Extended Properties="";Persist Secur' +
      'ity Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry P' +
      'ath="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;Je' +
      't OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Op' +
      's=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database ' +
      'Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Enc' +
      'rypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False' +
      ';Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=Fa' +
      'lse'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 64
    Top = 104
  end
  object con2: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=dbllxt;Data Source=127.0.0.1\sm_sql;Use' +
      ' Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Wo' +
      'rkstation ID=F2;Use Encryption for Data=False;Tag with column co' +
      'llation when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 280
    Top = 248
  end
  object qry1: TADOQuery
    Active = True
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ybqh;')
    Left = 96
    Top = 72
    object qry1dq: TWideStringField
      FieldName = 'dq'
      Size = 25
    end
    object qry1sm: TWideStringField
      FieldName = 'sm'
      Size = 10
    end
    object qry1yb: TWideStringField
      FieldName = 'yb'
      Size = 10
    end
    object qry1qh: TWideStringField
      FieldName = 'qh'
      Size = 5
    end
  end
  object qry2: TADOQuery
    Connection = con2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbybqh;')
    Left = 200
    Top = 240
  end
  object ds1: TDataSource
    DataSet = qry1
    Left = 448
    Top = 64
  end
  object ds2: TDataSource
    DataSet = qry2
    Left = 112
    Top = 224
  end
  object spinyq: TADOStoredProc
    Connection = con2
    ProcedureName = 'spinyq'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@yqsf'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@yqdq'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@yqyb'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@yqqh'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@msg'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end>
    Left = 96
    Top = 256
  end
end