ps_ordbill.dfm

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

object F_ordbill: TF_ordbill
  Left = 192
  Top = 110
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsSingle
  Caption = #37319#36141'/'#35746#36141#36164#26009
  ClientHeight = 407
  ClientWidth = 513
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid2: TDBGrid
    Left = 0
    Top = 201
    Width = 513
    Height = 206
    Align = alClient
    DataSource = comdatabase.DS_ordbillsub
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnMouseUp = DBGrid2MouseUp
    Columns = <
      item
        Expanded = False
        FieldName = 'flag'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'billno'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'serialno'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'productid'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'productid2'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'amount'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'price'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ReadOnly = True
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'money'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ReadOnly = True
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'taxrate'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'tax'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ReadOnly = True
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'memo'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'translated'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ReadOnly = True
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 64
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 513
    Height = 201
    Align = alTop
    TabOrder = 1
    OnMouseUp = GroupBox1MouseUp
    object L_targetid1: TLabel
      Left = 8
      Top = 65
      Width = 65
      Height = 16
      Caption = #21378#21830#32534#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnMouseUp = GroupBox1MouseUp
    end
    object L_personid1: TLabel
      Left = 8
      Top = 114
      Width = 65
      Height = 16
      Caption = #37319#36141#32534#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnMouseUp = GroupBox1MouseUp
    end
    object L_totaltax1: TLabel
      Left = 149
      Top = 139
      Width = 39
      Height = 16
      Caption = #31246#37329#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnMouseUp = GroupBox1MouseUp
    end
    object L_memo1: TLabel
      Left = 288
      Top = 40
      Width = 39
      Height = 16
      Caption = #22791#27880#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnMouseUp = GroupBox1MouseUp
    end
    object L_totalmoney: TLabel
      Left = 8
      Top = 139
      Width = 39
      Height = 16
      Caption = #37329#39069#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnMouseUp = GroupBox1MouseUp
    end
    object L_name1: TLabel
      Left = 149
      Top = 118
      Width = 65
      Height = 16
      Caption = #20154#21592#22995#21517#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnMouseUp = GroupBox1MouseUp
    end
    object L_shortname: TLabel
      Left = 149
      Top = 65
      Width = 65
      Height = 16
      Caption = #20844#21496#31616#31216#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnMouseUp = GroupBox1MouseUp
    end
    object L_billno: TLabel
      Left = 8
      Top = 40
      Width = 29
      Height = 16
      Caption = #21333#21495':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnMouseUp = GroupBox1MouseUp
    end
    object L_deliveryaddr: TLabel
      Left = 8
      Top = 90
      Width = 65
      Height = 16
      Caption = #36865#36135#22320#22336#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnMouseUp = GroupBox1MouseUp
    end
    object L_title1: TLabel
      Left = 8
      Top = 12
      Width = 125
      Height = 20
      Caption = #37319#36141'/'#35746#36141#21333#20449#24687
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnMouseUp = GroupBox1MouseUp
    end
    object L_title2: TLabel
      Left = 8
      Top = 172
      Width = 86
      Height = 20
      Caption = #21333#20013#20869#23481#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object M_memo1: TDBMemo
      Left = 288
      Top = 56
      Width = 217
      Height = 105
      DataField = 'memo'
      DataSource = comdatabase.DS_ordbillmain
      ScrollBars = ssVertical
      TabOrder = 0
      OnMouseUp = GroupBox1MouseUp
    end
    object E_shortname1: TDBEdit
      Left = 208
      Top = 63
      Width = 73
      Height = 21
      DataField = 'name'
      DataSource = comdatabase.DS_comcustomer
      Enabled = False
      TabOrder = 1
      OnMouseUp = GroupBox1MouseUp
    end
    object CB_personid1: TDBLookupComboBox
      Left = 72
      Top = 112
      Width = 73
      Height = 21
      DataField = 'personid'
      DataSource = comdatabase.DS_ordbillmain
      KeyField = 'id'
      ListField = 'id'
      ListSource = comdatabase.DS_comperson
      TabOrder = 2
      OnCloseUp = CB_personid1CloseUp
      OnMouseUp = GroupBox1MouseUp
    end
    object E_name1: TDBEdit
      Left = 208
      Top = 112
      Width = 73
      Height = 21
      DataField = 'name'
      DataSource = comdatabase.DS_comperson
      Enabled = False
      TabOrder = 3
      OnMouseUp = GroupBox1MouseUp
    end
    object E_totalmoney1: TDBEdit
      Left = 48
      Top = 137
      Width = 97
      Height = 21
      DataField = 'totalmoney'
      DataSource = comdatabase.DS_ordbillmain
      Enabled = False
      ReadOnly = True
      TabOrder = 4
      OnMouseUp = GroupBox1MouseUp
    end
    object E_totaltax1: TDBEdit
      Left = 192
      Top = 137
      Width = 89
      Height = 21
      DataField = 'totaltax'
      DataSource = comdatabase.DS_ordbillmain
      Enabled = False
      ReadOnly = True
      TabOrder = 5
      OnMouseUp = GroupBox1MouseUp
    end
    object CB_deliveryaddr: TComboBox
      Left = 72
      Top = 88
      Width = 209
      Height = 21
      ItemHeight = 13
      TabOrder = 6
      Text = 'CB_deliveryaddr'
      OnChange = CB_deliveryaddrChange
    end
    object CB_targetid1: TDBLookupComboBox
      Left = 72
      Top = 63
      Width = 73
      Height = 21
      DataField = 'targetid'
      DataSource = comdatabase.DS_ordbillmain
      KeyField = 'id'
      ListField = 'id'
      ListSource = comdatabase.DS_comcustomer
      TabOrder = 7
      OnCloseUp = CB_targetid1CloseUp
    end
    object CB_billno: TComboBox
      Left = 72
      Top = 40
      Width = 209
      Height = 21
      ItemHeight = 13
      TabOrder = 8
      Text = 'CB_billno'
      OnChange = CB_billnoChange
    end
  end
end