⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄

📁 这是一个航空公司用来计算货物运价的系统。
💻
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form3 
   Caption         =   "运单运价数据维护"
   ClientHeight    =   5835
   ClientLeft      =   2235
   ClientTop       =   1665
   ClientWidth     =   7935
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   ScaleHeight     =   5835
   ScaleWidth      =   7935
   Begin MSComctlLib.ListView ListView1 
      Height          =   1575
      Left            =   120
      TabIndex        =   46
      Top             =   1440
      Width           =   7695
      _ExtentX        =   13573
      _ExtentY        =   2778
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   16
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "序号"
         Object.Width           =   1058
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "总运单号"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "承运人"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   3
         Text            =   "始发站"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   4
         Text            =   "到达站"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   5
         Text            =   "航班号"
         Object.Width           =   1764
      EndProperty
      BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   6
         Text            =   "航班日期"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   7
         Text            =   "件数"
         Object.Width           =   1058
      EndProperty
      BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   8
         Text            =   "重量"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   9
         Text            =   "货物代码"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   10
         Text            =   "货物品名"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   11
         Text            =   "体积"
         Object.Width           =   1058
      EndProperty
      BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   12
         Text            =   "初步计费重量"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(14) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   13
         Text            =   "计费重量"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(15) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   14
         Text            =   "销售运价"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(16) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   15
         Text            =   "实际运费"
         Object.Width           =   1764
      EndProperty
   End
   Begin VB.Frame Frame2 
      Caption         =   "运单运价信息"
      Height          =   2535
      Left            =   120
      TabIndex        =   15
      Top             =   3120
      Width           =   7695
      Begin MSComCtl2.DTPicker DTPicker3 
         Height          =   255
         Left            =   5400
         TabIndex        =   48
         Top             =   1320
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   450
         _Version        =   393216
         Enabled         =   0   'False
         Format          =   23658497
         CurrentDate     =   36883
      End
      Begin VB.TextBox Text16 
         Height          =   270
         Left            =   3000
         TabIndex        =   47
         Top             =   240
         Visible         =   0   'False
         Width           =   375
      End
      Begin VB.CommandButton Command7 
         Caption         =   "关闭"
         Height          =   375
         Left            =   6480
         TabIndex        =   45
         Top             =   2040
         Width           =   1095
      End
      Begin VB.CommandButton Command6 
         Caption         =   "存储结果"
         Height          =   375
         Left            =   5160
         TabIndex        =   44
         Top             =   2040
         Width           =   1095
      End
      Begin VB.CommandButton Command5 
         Caption         =   "重新计算"
         Height          =   375
         Left            =   3720
         TabIndex        =   43
         Top             =   2040
         Width           =   1215
      End
      Begin VB.TextBox Text15 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1200
         TabIndex        =   41
         Top             =   2040
         Width           =   1455
      End
      Begin VB.TextBox Text14 
         Enabled         =   0   'False
         Height          =   270
         Left            =   4200
         TabIndex        =   38
         Top             =   1680
         Width           =   1455
      End
      Begin VB.TextBox Text13 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1200
         TabIndex        =   36
         Top             =   1680
         Width           =   1215
      End
      Begin VB.TextBox Text12 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1200
         TabIndex        =   34
         Top             =   1320
         Width           =   3015
      End
      Begin VB.TextBox Text11 
         Enabled         =   0   'False
         Height          =   270
         Left            =   5880
         TabIndex        =   31
         Top             =   960
         Width           =   1095
      End
      Begin VB.TextBox Text10 
         Enabled         =   0   'False
         Height          =   270
         Left            =   3360
         TabIndex        =   30
         Top             =   960
         Width           =   855
      End
      Begin VB.TextBox Text9 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1200
         TabIndex        =   27
         Top             =   960
         Width           =   735
      End
      Begin VB.TextBox Text8 
         Enabled         =   0   'False
         Height          =   270
         Left            =   5400
         TabIndex        =   25
         Top             =   600
         Width           =   1575
      End
      Begin VB.TextBox Text7 
         Enabled         =   0   'False
         Height          =   270
         Left            =   2400
         TabIndex        =   22
         Top             =   600
         Width           =   495
      End
      Begin VB.TextBox Text6 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1200
         TabIndex        =   21
         Top             =   600
         Width           =   495
      End
      Begin VB.TextBox Text5 
         Enabled         =   0   'False
         Height          =   270
         Left            =   5400
         TabIndex        =   19
         Top             =   240
         Width           =   1575
      End
      Begin VB.TextBox Text4 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1200
         TabIndex        =   17
         Top             =   240
         Width           =   1695
      End
      Begin VB.Label Label21 
         Caption         =   "日    期:"
         Height          =   255
         Left            =   4440
         TabIndex        =   49
         Top             =   1320
         Width           =   975
      End
      Begin VB.Label Label20 
         Caption         =   "(RMB¥)"
         Height          =   255
         Left            =   2760
         TabIndex        =   42
         Top             =   2040
         Width           =   855
      End
      Begin VB.Label Label19 
         Caption         =   "实际运费:"
         Height          =   255
         Left            =   240
         TabIndex        =   40
         Top             =   2040
         Width           =   975
      End
      Begin VB.Label Label18 
         Caption         =   "(RMB¥/Kg)"
         Height          =   255
         Left            =   5760
         TabIndex        =   39
         Top             =   1680
         Width           =   1215
      End
      Begin VB.Label Label17 
         Caption         =   "(Kg) 销售运价:"
         Height          =   255
         Left            =   2520
         TabIndex        =   37
         Top             =   1680
         Width           =   1695
      End
      Begin VB.Label Label16 
         Caption         =   "计费重量:"
         Height          =   255
         Left            =   240
         TabIndex        =   35
         Top             =   1680
         Width           =   975
      End
      Begin VB.Label Label15 
         Caption         =   "品    名:"
         Height          =   255
         Left            =   240
         TabIndex        =   33
         Top             =   1320
         Width           =   975
      End
      Begin VB.Label Label14 
         Caption         =   "(Kg)"
         Height          =   255
         Left            =   6960
         TabIndex        =   32
         Top             =   960
         Width           =   615
      End
      Begin VB.Label Label13 
         Caption         =   "(立方厘米)毛重:"
         Height          =   255
         Left            =   4320
         TabIndex        =   29
         Top             =   960
         Width           =   1695
      End
      Begin VB.Label Label12 
         Caption         =   "(件)   体积:"
         Height          =   255
         Left            =   2040
         TabIndex        =   28
         Top             =   960
         Width           =   1575
      End
      Begin VB.Label Label11 
         Caption         =   "货物件数:"
         Height          =   255
         Left            =   240
         TabIndex        =   26
         Top             =   960
         Width           =   1095
      End
      Begin VB.Label Label10 
         Caption         =   "货 物 编 码:"
         Height          =   255
         Left            =   4200
         TabIndex        =   24
         Top             =   600
         Width           =   1215
      End
      Begin VB.Label Label9 
         Caption         =   "至"
         Height          =   255
         Left            =   1920
         TabIndex        =   23
         Top             =   600
         Width           =   255
      End
      Begin VB.Label Label8 
         Caption         =   "航    程:"
         Height          =   255
         Left            =   240
         TabIndex        =   20

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -