main.dfm

本系统包括的功能有,预算项目管理,查询,数据库维护,系统拥护管理等

object frmmain: Tfrmmain
  Left = 29
  Top = 37
  Width = 934
  Height = 666
  Caption = #39044#31639#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu1: TMainMenu
    Left = 152
    Top = 584
    object menuysxm: TMenuItem
      Caption = #39044#31639#39033#30446#31649#29702
      OnClick = menuysxmClick
    end
    object menuysxmxc: TMenuItem
      Caption = #39044#31639#39033#30446#35814#32454#26597#35810
      OnClick = menuysxmxcClick
    end
    object menudbfwh: TMenuItem
      Caption = #25968#25454#24211#32500#25252
      object submenudbfbf: TMenuItem
        Caption = #25968#25454#24211#22791#20221
        OnClick = submenudbfbfClick
      end
      object submenudbfhf: TMenuItem
        Caption = #25968#25454#24211#24674#22797
        OnClick = submenudbfhfClick
      end
    end
    object menufzgl: TMenuItem
      Caption = #39044#31639#36741#21161#39033#30446#31649#29702
      object submenuyskm: TMenuItem
        Caption = #39044#31639#31185#30446#31649#29702
        OnClick = submenuyskmClick
      end
      object submenuyskmlb: TMenuItem
        Caption = #39044#31639#31185#30446#31867#21035#31649#29702
        OnClick = submenuyskmlbClick
      end
      object submenuglbm: TMenuItem
        Caption = #39044#31639#31649#29702#37096#38376#31649#29702
        OnClick = submenuglbmClick
      end
      object submenugsbm: TMenuItem
        Caption = #39044#31639#24402#23646#37096#38376#31649#29702
        OnClick = submenugsbmClick
      end
      object submenupzmc: TMenuItem
        Caption = #20973#35777#31867#21035#21517#31216#31649#29702
        OnClick = submenupzmcClick
      end
    end
    object menuxtgl: TMenuItem
      Caption = #31995#32479#29992#25143#31649#29702
      OnClick = menuxtglClick
    end
    object menuquit: TMenuItem
      Caption = #36864#20986
      OnClick = menuquitClick
    end
  end
  object conn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=sa;Persist Security Info=True;User I' +
      'D=sa;Mode=ReadWrite;Extended Properties="DRIVER=SQL Server;SERVE' +
      'R=CWSERVER;UID=sa;PWD=sa;APP=Enterprise;WSID=CWSERVER;DATABASE=m' +
      'aster";Initial Catalog=master'
    DefaultDatabase = 'master'
    LoginPrompt = False
    Mode = cmReadWrite
    Left = 544
    Top = 568
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from sysdevices where name='#39'ysgldelphibak'#39)
    Left = 584
    Top = 568
  end
  object ADOQuery2: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      
        'select spid from master..sysprocesses where dbid=db_id('#39'ysgl2004' +
        'bookdelphi'#39')')
    Left = 632
    Top = 568
  end
end