venderset_unit.dfm

药品进销管理程序,内有SQL附加的数据库.....详情看里面的,运行就OK

object frmVenderSet: TfrmVenderSet
  Left = 238
  Top = 139
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #33647#21830#23383#20856#32500#25252
  ClientHeight = 425
  ClientWidth = 567
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = True
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 9
    Top = 9
    Width = 547
    Height = 217
    BevelInner = bvLowered
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 543
      Height = 213
      Align = alClient
      DataSource = dsrProvider
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ProviderID'
          Title.Alignment = taCenter
          Title.Caption = #33647#21830#32534#21495
          Width = 62
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ProName'
          Title.Alignment = taCenter
          Title.Caption = #21517#31216
          Width = 102
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Address'
          Title.Alignment = taCenter
          Title.Caption = #22320#22336
          Width = 120
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Principal'
          Title.Alignment = taCenter
          Title.Caption = #36127#36131#20154
          Width = 66
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Telphoto'
          Title.Alignment = taCenter
          Title.Caption = #30005#35805
          Width = 74
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Remark'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Width = 205
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 9
    Top = 235
    Width = 547
    Height = 183
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 26
      Top = 15
      Width = 60
      Height = 12
      Caption = #33647#21830#32534#21495#65306
    end
    object Label2: TLabel
      Left = 199
      Top = 15
      Width = 60
      Height = 12
      Caption = #33647#21830#21517#31216#65306
    end
    object Label3: TLabel
      Left = 35
      Top = 43
      Width = 48
      Height = 12
      Caption = #22320'  '#22336#65306
    end
    object Label4: TLabel
      Left = 34
      Top = 73
      Width = 48
      Height = 12
      Caption = #36127#36131#20154#65306
    end
    object Label5: TLabel
      Left = 285
      Top = 73
      Width = 48
      Height = 12
      Caption = #30005'  '#35805#65306
    end
    object Label6: TLabel
      Left = 35
      Top = 113
      Width = 48
      Height = 12
      Caption = #22791'  '#27880#65306
    end
    object txtProviderID: TDBText
      Left = 95
      Top = 13
      Width = 71
      Height = 18
      DataField = 'ProviderID'
      DataSource = dsrProvider
    end
    object edtProName: TDBEdit
      Left = 263
      Top = 11
      Width = 260
      Height = 20
      DataField = 'ProName'
      DataSource = dsrProvider
      TabOrder = 0
    end
    object edtAddress: TDBEdit
      Left = 95
      Top = 39
      Width = 429
      Height = 20
      DataField = 'Address'
      DataSource = dsrProvider
      TabOrder = 1
    end
    object edtPrincipal: TDBEdit
      Left = 94
      Top = 68
      Width = 179
      Height = 20
      DataField = 'Principal'
      DataSource = dsrProvider
      TabOrder = 2
    end
    object edtTelephone: TDBEdit
      Left = 347
      Top = 68
      Width = 178
      Height = 20
      DataField = 'Telephone'
      DataSource = dsrProvider
      TabOrder = 3
    end
    object edtRamark: TDBMemo
      Left = 95
      Top = 98
      Width = 432
      Height = 44
      DataField = 'Remark'
      DataSource = dsrProvider
      TabOrder = 4
    end
    object btnAdd: TBitBtn
      Left = 17
      Top = 147
      Width = 82
      Height = 27
      Caption = #28155#21152'(&A)'
      TabOrder = 6
      OnClick = btnAddClick
    end
    object btnModify: TBitBtn
      Left = 126
      Top = 147
      Width = 81
      Height = 27
      Caption = #20462#25913'(&M)'
      TabOrder = 7
      OnClick = btnModifyClick
    end
    object btnDelete: TBitBtn
      Left = 234
      Top = 147
      Width = 81
      Height = 27
      Caption = #21024#38500'(&D)'
      TabOrder = 8
      OnClick = btnDeleteClick
    end
    object btnSave: TBitBtn
      Left = 338
      Top = 147
      Width = 81
      Height = 27
      Caption = #20445#23384'(&S)'
      TabOrder = 5
      OnClick = btnSaveClick
    end
    object btnCancel: TBitBtn
      Left = 440
      Top = 147
      Width = 81
      Height = 27
      Caption = #21462#28040'(&C)'
      TabOrder = 9
      OnClick = btnCancelClick
    end
  end
  object dsrProvider: TDataSource
    DataSet = qryProvider
    Left = 48
    Top = 160
  end
  object qryProvider: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 16
    Top = 160
  end
end