u_client_main.dfm

以多个信息系统为例

object F_main: TF_main
  Left = 271
  Top = 174
  Width = 553
  Height = 395
  Caption = '客户跟踪——公文包'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 545
    Height = 349
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '客户信息'
      object Label4: TLabel
        Left = 16
        Top = 16
        Width = 60
        Height = 13
        Caption = '姓　　名：'
      end
      object Label5: TLabel
        Left = 16
        Top = 40
        Width = 60
        Height = 13
        Caption = '公司名称：'
      end
      object Label6: TLabel
        Left = 16
        Top = 64
        Width = 60
        Height = 13
        Caption = '公司地址：'
      end
      object Label7: TLabel
        Left = 16
        Top = 88
        Width = 60
        Height = 13
        Caption = '所在地区：'
      end
      object Label8: TLabel
        Left = 16
        Top = 112
        Width = 60
        Height = 13
        Caption = '区　　号：'
      end
      object Label9: TLabel
        Left = 16
        Top = 136
        Width = 60
        Height = 13
        Caption = '电　　话：'
      end
      object Label10: TLabel
        Left = 272
        Top = 136
        Width = 60
        Height = 13
        Caption = '传　　真：'
      end
      object Label11: TLabel
        Left = 16
        Top = 160
        Width = 60
        Height = 13
        Caption = '电子邮箱：'
      end
      object Label12: TLabel
        Left = 16
        Top = 184
        Width = 60
        Height = 13
        Caption = '其他信息：'
      end
      object Label13: TLabel
        Left = 248
        Top = 16
        Width = 60
        Height = 13
        Caption = '客户编号：'
      end
      object i_name: TDBEdit
        Left = 80
        Top = 12
        Width = 121
        Height = 21
        DataField = 'NAME'
        DataSource = DM_main.DS_custom
        TabOrder = 0
      end
      object i_comp_name: TDBEdit
        Left = 80
        Top = 36
        Width = 281
        Height = 21
        DataField = 'COMP_NAME'
        DataSource = DM_main.DS_custom
        TabOrder = 1
      end
      object i_comp_addr: TDBEdit
        Left = 80
        Top = 60
        Width = 441
        Height = 21
        DataField = 'COMP_ADDR'
        DataSource = DM_main.DS_custom
        TabOrder = 2
      end
      object i_city: TDBLookupComboBox
        Left = 80
        Top = 84
        Width = 121
        Height = 21
        DataField = 'CITY'
        DataSource = DM_main.DS_custom
        KeyField = 'CODE'
        ListField = 'NAME'
        ListSource = DM_main.DS_city
        TabOrder = 3
      end
      object i_province: TDBLookupComboBox
        Left = 208
        Top = 84
        Width = 121
        Height = 21
        DataField = 'PROVINCE'
        DataSource = DM_main.DS_custom
        KeyField = 'CODE'
        ListField = 'NAME'
        ListSource = DM_main.DS_province
        TabOrder = 4
      end
      object i_country: TDBLookupComboBox
        Left = 336
        Top = 84
        Width = 113
        Height = 21
        DataField = 'COUNTRY'
        DataSource = DM_main.DS_custom
        KeyField = 'CODE'
        ListField = 'NAME'
        ListSource = DM_main.DS_country
        TabOrder = 5
      end
      object i_zip: TDBEdit
        Left = 80
        Top = 108
        Width = 121
        Height = 21
        DataField = 'ZIP'
        DataSource = DM_main.DS_custom
        TabOrder = 6
      end
      object i_tel: TDBEdit
        Left = 80
        Top = 132
        Width = 121
        Height = 21
        DataField = 'TEL'
        DataSource = DM_main.DS_custom
        TabOrder = 7
      end
      object i_fax: TDBEdit
        Left = 336
        Top = 132
        Width = 121
        Height = 21
        DataField = 'FAX'
        DataSource = DM_main.DS_custom
        TabOrder = 8
      end
      object i_email: TDBEdit
        Left = 80
        Top = 156
        Width = 377
        Height = 21
        DataField = 'EMAIL'
        DataSource = DM_main.DS_custom
        TabOrder = 9
      end
      object i_remark: TDBMemo
        Left = 16
        Top = 200
        Width = 505
        Height = 81
        DataField = 'REMARK'
        DataSource = DM_main.DS_custom
        TabOrder = 10
      end
      object DBNavigator1: TDBNavigator
        Left = 16
        Top = 288
        Width = 510
        Height = 25
        DataSource = DM_main.DS_custom
        TabOrder = 11
      end
      object i_id: TDBEdit
        Left = 320
        Top = 12
        Width = 161
        Height = 21
        DataField = 'ID'
        DataSource = DM_main.DS_custom
        TabOrder = 12
      end
    end
    object TabSheet2: TTabSheet
      Caption = '代码管理'
      ImageIndex = 1
      object Label1: TLabel
        Left = 24
        Top = 8
        Width = 36
        Height = 13
        Caption = '国家：'
      end
      object Label2: TLabel
        Left = 200
        Top = 8
        Width = 36
        Height = 13
        Caption = '省份：'
      end
      object Label3: TLabel
        Left = 376
        Top = 8
        Width = 36
        Height = 13
        Caption = '城市：'
      end
      object DBG_country: TDBGrid
        Left = 16
        Top = 24
        Width = 161
        Height = 281
        DataSource = DM_main.DS_country
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'CODE'
            Title.Caption = '代码'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = '名称'
            Visible = True
          end>
      end
      object DBG_province: TDBGrid
        Left = 192
        Top = 24
        Width = 161
        Height = 281
        DataSource = DM_main.DS_province
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'CODE'
            Title.Caption = '代码'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = '名称'
            Visible = True
          end>
      end
      object DBG_city: TDBGrid
        Left = 368
        Top = 24
        Width = 153
        Height = 281
        DataSource = DM_main.DS_city
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'CODE'
            Title.Caption = '代码'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = '名称'
            Visible = True
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = '错误调和'
      ImageIndex = 2
      object LV_error: TListView
        Left = 0
        Top = 0
        Width = 537
        Height = 321
        Align = alClient
        Columns = <
          item
            Caption = '数据表'
            Width = 60
          end
          item
            Caption = '字段名'
            Width = 60
          end
          item
            Caption = '原值'
            Width = 70
          end
          item
            Caption = '新值'
            Width = 70
          end
          item
            Caption = '当前值'
            Width = 70
          end
          item
            Caption = '错误'
            Width = 200
          end>
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 232
    Top = 65528
    object M_system: TMenuItem
      Caption = '&S系统'
      object M_open_table: TMenuItem
        Caption = '打开数据表'
        OnClick = M_open_tableClick
      end
      object M_close_table: TMenuItem
        Caption = '关闭数据表'
        OnClick = M_close_tableClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object M_exit: TMenuItem
        Caption = '关闭应用程序'
        OnClick = M_exitClick
      end
    end
    object M_state: TMenuItem
      Caption = '&O连接状态'
      object M_online: TMenuItem
        Caption = '在线'
        Checked = True
        OnClick = M_onlineClick
      end
      object M_offline: TMenuItem
        Caption = '离线'
        OnClick = M_offlineClick
      end
    end
    object M_filter: TMenuItem
      Caption = '&F过滤'
      object M_filter_city: TMenuItem
        Caption = '城市'
        OnClick = M_filter_cityClick
      end
      object M_filter_province: TMenuItem
        Caption = '省份'
        OnClick = M_filter_provinceClick
      end
      object M_filter_country: TMenuItem
        Caption = '国家'
        OnClick = M_filter_countryClick
      end
      object M_filter_no: TMenuItem
        Caption = '无'
        Checked = True
        OnClick = M_filter_noClick
      end
    end
    object M_apply: TMenuItem
      Caption = '&U提交修改'
      object M_update_cust: TMenuItem
        Caption = '提交客户信息'
        OnClick = M_update_custClick
      end
      object M_update_code: TMenuItem
        Caption = '提交代码信息'
        OnClick = M_update_codeClick
      end
    end
  end
end