formadmin.dfm

用delphi和sql server编写的药品进销存系统

object Admin: TAdmin
  Left = 172
  Top = 182
  Width = 725
  Height = 379
  ActiveControl = Button1
  Caption = #33647#21697#31649#29702
  Color = clBtnFace
  Constraints.MaxHeight = 379
  Constraints.MaxWidth = 747
  Constraints.MinHeight = 379
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 24
    Width = 72
    Height = 13
    Caption = #36873#25321#26597#35810#26041#24335
  end
  object Label2: TLabel
    Left = 304
    Top = 24
    Width = 36
    Height = 13
    Caption = #20851#38190#23383
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 72
    Width = 681
    Height = 249
    Hint = #21452#20987#21487#20462#25913#36873#39033#21333#20803#65281
    BiDiMode = bdLeftToRight
    Ctl3D = True
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete]
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Pitch = fpVariable
    TitleFont.Style = [fsBold]
    OnColExit = DBGrid1ColExit
    Columns = <
      item
        Expanded = False
        FieldName = #33647#21697#20195#30721
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = #33647#21697#21517#31216
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36827#36135#21333#20215
        Width = 73
        Visible = True
      end
      item
        Expanded = False
        FieldName = #38144#21806#21333#20215
        Width = 72
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29983#20135#26085#26399
        Width = 74
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26377#25928#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#23384#25968
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36827#36135#21378#23478
        Width = 71
        Visible = True
      end>
  end
  object ComboBox1: TComboBox
    Left = 136
    Top = 24
    Width = 145
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 1
    Text = #33647#21697#20195#30721
    OnChange = ComboBox1Change
    Items.Strings = (
      #33647#21697#20195#30721
      #33647#21697#21517#31216
      #29983#20135#26085#26399
      #26377#25928#26399
      #36827#36135#21378#23478
      #21015#20986#25152#26377)
  end
  object Edit1: TEdit
    Left = 352
    Top = 24
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 2
    Text = 'Edit1'
  end
  object Button1: TButton
    Left = 496
    Top = 24
    Width = 49
    Height = 25
    Caption = #26597#35810
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 576
    Top = 24
    Width = 89
    Height = 25
    Caption = #35745#31639#24403#21069#30408#21033
    TabOrder = 4
    OnClick = Button2Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 208
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=delphi;Persist Security Info=True;U' +
      'ser ID=sa;Initial Catalog=ypjxc;Data Source=LZ'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#33647#21697#20449#24687)
    Left = 256
  end
  object ADOQuery2: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=delphi;Persist Security Info=True;U' +
      'ser ID=sa;Initial Catalog=ypjxc'
    Parameters = <>
    Left = 320
  end
end