udm.dfm

连锁药店源码,开发环境 d6 up2, sqlserver200

object adodm: Tadodm
  OldCreateOrder = False
  Left = 218
  Top = 144
  Height = 406
  Width = 495
  object ydconn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=dhl;Persist Security Info=True;User' +
      ' ID=sa;Initial Catalog=yd;Data Source=aswinner'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 8
  end
  object typzdk: TADOTable
    Connection = ydconn
    CursorType = ctStatic
    Filter = ' '#21058#22411'<>'#39#39
    TableName = 'ypzdk'
    Left = 200
    Top = 8
    object typzdkid: TBCDField
      FieldName = 'id'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object typzdkDSDesigner: TStringField
      FieldName = #21517#31216
      Size = 50
    end
    object typzdkDSDesigner2: TStringField
      FieldName = #32534#21495
      FixedChar = True
      Size = 16
    end
    object typzdkDSDesigner3: TStringField
      FieldName = #26465#30721
      Size = 15
    end
    object typzdkDSDesigner4: TStringField
      FieldName = #31616#30721
      Size = 10
    end
    object typzdkDSDesigner5: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object typzdkDSDesigner6: TStringField
      FieldName = #35268#26684
    end
    object typzdkDSDesigner7: TStringField
      FieldName = #29983#20135#21378#23478
      Size = 50
    end
    object typzdkDSDesigner8: TStringField
      FieldName = #25209#20934#25991#21495
      Size = 30
    end
    object typzdkDSDesigner9: TIntegerField
      FieldName = #26368#39640#38480#37327
    end
    object typzdkDSDesigner10: TIntegerField
      FieldName = #26368#20302#38480#37327
    end
    object typzdkDSDesigner11: TBCDField
      FieldName = #25209#21457#20215
      Precision = 10
    end
    object typzdkDSDesigner12: TBCDField
      FieldName = #38646#21806#20215
      Precision = 10
    end
    object typzdkDSDesigner13: TMemoField
      FieldName = #20027#27835
      BlobType = ftMemo
    end
    object typzdkDSDesigner14: TStringField
      FieldName = #21058#22411
      Size = 10
    end
    object typzdkDSDesigner15: TStringField
      FieldName = #20998#31867
      Size = 10
    end
  end
  object tyg: TADOTable
    Connection = ydconn
    CursorType = ctStatic
    TableName = 'ygb'
    Left = 328
    Top = 8
    object tygygid: TBCDField
      FieldName = 'ygid'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object tygDSDesigner: TStringField
      FieldName = #22995#21517
      Size = 10
    end
    object tygDSDesigner2: TStringField
      FieldName = #21592#24037#32534#21495
      FixedChar = True
      Size = 3
    end
    object tygDSDesigner3: TStringField
      FieldName = #32844#21153
      Size = 10
    end
    object tygDSDesigner4: TSmallintField
      FieldName = #24180#40836
    end
    object tygDSDesigner5: TDateTimeField
      FieldName = #38599#20323#26085#26399
    end
    object tygDSDesigner6: TStringField
      FieldName = #24615#21035
      Required = True
      FixedChar = True
      Size = 2
    end
    object tygDSDesigner7: TStringField
      FieldName = #23398#21382
      Size = 10
    end
    object tygDSDesigner8: TStringField
      FieldName = #20303#22336
      Size = 100
    end
    object tygDSDesigner9: TStringField
      FieldName = #36523#20221#35777#21495
      FixedChar = True
      Size = 18
    end
    object tygDSDesigner10: TStringField
      FieldName = #32852#31995#26041#24335
      Size = 100
    end
    object tygDSDesigner11: TStringField
      FieldName = #31616#30721
      Required = True
      Size = 10
    end
    object tygDSDesigner12: TStringField
      FieldName = #22791#27880
      Size = 100
    end
    object tygField: TStringField
      FieldKind = fkLookup
      FieldName = #37096#38376#21517#31216
      LookupDataSet = tbm
      LookupKeyFields = #37096#38376#32534#21495
      LookupResultField = #37096#38376#21517#31216
      KeyFields = #25152#23646#37096#38376
      Lookup = True
    end
    object tygDSDesigner13: TStringField
      FieldName = #25152#23646#37096#38376
      Required = True
      FixedChar = True
      Size = 3
    end
  end
  object dsypzdk: TDataSource
    DataSet = typzdk
    Left = 256
    Top = 8
  end
  object dsyg: TDataSource
    DataSet = tyg
    Left = 384
    Top = 8
  end
  object ImageList1: TImageList
    BlendColor = clInfoBk
    Height = 32
    Width = 32
    Left = 96
    Top = 8
    Bitmap = {
      494C010112001300040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      000000000000360000002800000080000000A000000001002000000000000040
      0100000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000006969
      6A0069696A000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000006690600006C