ps_main.dfm

DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清了,六七年前写的,希望还能有点贡献

object F_main: TF_main
  Left = 183
  Top = 141
  BorderStyle = bsSingle
  Caption = '进销数据库'
  ClientHeight = 400
  ClientWidth = 600
  Color = clBtnShadow
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  WindowMenu = M_view1
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 600
    Height = 43
    ButtonHeight = 39
    ButtonWidth = 33
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Images = ImageList1
    ParentColor = False
    ParentFont = False
    ShowCaptions = True
    TabOrder = 0
    object TB_new1: TToolButton
      Left = 0
      Top = 2
      AutoSize = True
      Caption = '新建'
      ImageIndex = 0
      OnClick = TB_new1Click
    end
    object TB_modify1: TToolButton
      Left = 37
      Top = 2
      AutoSize = True
      Caption = '修改'
      ImageIndex = 1
      OnClick = TB_modify1Click
    end
    object TB_delete1: TToolButton
      Left = 74
      Top = 2
      AutoSize = True
      Caption = '删除'
      ImageIndex = 2
      OnClick = TB_delete1Click
    end
    object TB_save1: TToolButton
      Left = 111
      Top = 2
      AutoSize = True
      Caption = '存档'
      ImageIndex = 3
      OnClick = TB_save1Click
    end
    object TB_ignore1: TToolButton
      Left = 148
      Top = 2
      AutoSize = True
      Caption = '放弃'
      ImageIndex = 4
      OnClick = TB_ignore1Click
    end
    object TB_blank1: TToolButton
      Left = 185
      Top = 2
      Width = 12
      Caption = 'TB_blank1'
      ImageIndex = 13
      Style = tbsSeparator
    end
    object TB_first: TToolButton
      Left = 197
      Top = 2
      AutoSize = True
      Caption = '首笔'
      ImageIndex = 5
      OnClick = TB_firstClick
    end
    object TB_prior: TToolButton
      Left = 234
      Top = 2
      AutoSize = True
      Caption = '前笔'
      ImageIndex = 6
      OnClick = TB_priorClick
    end
    object TB_next: TToolButton
      Left = 271
      Top = 2
      AutoSize = True
      Caption = '后笔'
      ImageIndex = 7
      OnClick = TB_nextClick
    end
    object TB_last: TToolButton
      Left = 308
      Top = 2
      AutoSize = True
      Caption = '尾笔'
      ImageIndex = 8
      OnClick = TB_lastClick
    end
    object TB_turn: TToolButton
      Left = 345
      Top = 2
      AutoSize = True
      Caption = '转帐'
      Enabled = False
      ImageIndex = 12
      OnClick = TB_turnClick
    end
    object TB_blank2: TToolButton
      Left = 382
      Top = 2
      Width = 12
      Caption = 'TB_blank2'
      ImageIndex = 13
      Style = tbsSeparator
    end
    object TB_close: TToolButton
      Left = 394
      Top = 2
      AutoSize = True
      Caption = '关闭'
      ImageIndex = 9
      OnClick = TB_closeClick
    end
    object TB_blank3: TToolButton
      Left = 431
      Top = 2
      Width = 12
      Caption = 'TB_blank3'
      ImageIndex = 13
      Style = tbsSeparator
    end
    object TB_choose1: TToolButton
      Left = 443
      Top = 2
      AutoSize = True
      Caption = '选单'
      ImageIndex = 10
      OnClick = TB_choose1Click
    end
    object TB_computer1: TToolButton
      Left = 480
      Top = 2
      AutoSize = True
      Caption = '计算'
      ImageIndex = 12
      OnClick = TB_computer1Click
    end
    object TB_dictionary1: TToolButton
      Left = 517
      Top = 2
      AutoSize = True
      Caption = '辞库'
      ImageIndex = 11
      OnClick = TB_dictionary1Click
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Left = 552
    object M_system1: TMenuItem
      Caption = '系统(&S)'
      object N2: TMenuItem
        Caption = '进销交易作业(&A)'
      end
      object N3: TMenuItem
        Caption = '调整调拨作业(&B)'
      end
      object N4: TMenuItem
        Caption = '帐款交易作业(&C)'
      end
      object N5: TMenuItem
        Caption = '借还交易作业(&D)'
      end
      object N6: TMenuItem
        Caption = '发票资料作业(&E)'
      end
      object M_comcustomer1: TMenuItem
        Caption = '客户厂商作业(&F)'
      end
      object N8: TMenuItem
        Caption = '产品资料作业(&G)'
      end
      object M_basicSource: TMenuItem
        Caption = '基本资料作业(&H)'
        object M_comdepartment: TMenuItem
          Caption = '部门表'
          OnClick = M_comdepartmentClick
        end
        object M_comperson: TMenuItem
          Caption = '人员表'
          OnClick = M_compersonClick
        end
        object M_comproduct: TMenuItem
          Caption = '产品表'
          OnClick = M_comproductClick
        end
        object M_comwarehouse: TMenuItem
          Caption = '仓库表'
          OnClick = M_comwarehouseClick
        end
        object M_comwareamount: TMenuItem
          Caption = '产品仓储表'
          OnClick = M_comwareamountClick
        end
        object M_comcustomer: TMenuItem
          Caption = '客户/厂商表'
          OnClick = M_comcustomerClick
        end
        object M_ordbill1: TMenuItem
          Caption = '采购订'
          OnClick = M_ordbill1Click
        end
        object M_ordbill2: TMenuItem
          Caption = '客户订购订'
          OnClick = M_ordbill2Click
        end
        object M_stkbill1: TMenuItem
          Caption = '厂部进货订'
          OnClick = M_stkbill1Click
        end
        object M_stkbill2: TMenuItem
          Caption = '厂部销货订'
          OnClick = M_stkbill2Click
        end
      end
      object N10: TMenuItem
        Caption = '其他凭证作业(&I)'
      end
      object N11: TMenuItem
        Caption = '销售额税额申报(&J)'
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object M_function: TMenuItem
        Caption = '功能选单(&R)'
      end
      object M_MakeAccountWizard: TMenuItem
        Caption = '库存开帐精灵(&S)'
      end
      object M_warehouseWizard: TMenuItem
        Caption = '库存提醒精灵(&N)'
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object M_close: TMenuItem
        Caption = '系统结束(&X)'
        OnClick = M_closeClick
      end
    end
    object M_report1: TMenuItem
      Caption = '报表(&P)'
      GroupIndex = 1
      object M_R_ordbill: TMenuItem
        Caption = '采购/订购资料报表'
        OnClick = M_R_ordbillClick
      end
      object M_R_stkbill: TMenuItem
        Caption = '进货/销货资料报表'
        OnClick = M_R_stkbillClick
      end
    end
    object M_used1: TMenuItem
      Caption = '常用(&O)'
      GroupIndex = 2
    end
    object M_edit1: TMenuItem
      Caption = '编辑(&E)'
      GroupIndex = 3
    end
    object M_resource1: TMenuItem
      Caption = '资料(&R)'
      GroupIndex = 4
    end
    object M_database1: TMenuItem
      Caption = '资料库(&D)'
      GroupIndex = 5
    end
    object M_set1: TMenuItem
      Caption = '设定(&U)'
      GroupIndex = 6
    end
    object M_tool1: TMenuItem
      Caption = '工具(&T)'
      GroupIndex = 7
      object M_toolbar1: TMenuItem
        Caption = '工具条'
        Checked = True