企业合同管理系统的设计与实现.doc

袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀葿袀螂腿薂蚂肁腿芁蒅羇芈莄蚁袃芇蒆蒄蝿芆膅虿蚅芅莈蒂肄芄蒀螇羀芃薂薀袆芃节螆螂节莄薈肀莁蒇螄羆莀蕿薇袂荿艿螂螈羆蒁薅螄羅薃袀肃羄芃蚃罿羃莅衿袅羂蒈蚂螁肁薀蒄聿肁芀蚀羅肀莂蒃羁聿薄蚈袇肈芄薁螃肇莆螆肂肆蒈蕿羈肅薁螅袄膅芀薈螀膄莃螃蚆膃蒅薆肅膂芅袁羁膁莇蚄袇膀蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿蒆蚈肂莁蚂肇肁蒃薄羃肁薆螀衿肀芅薃螅聿莈螈蚁肈蒀薁羀膇膀螆袆膆节蕿螂膅蒄螅螈膅薇蚈肆膄芆蒀羂膃荿蚆袈膂蒁葿螄芁膁蚄蚀芀芃蒇罿艿莅蚂袅艿薈蒅袁芈芇螁螇芇荿薄肅芆蒂蝿羁芅薄薂袇莄芄螇螃羁莆薀虿羀蒈螆羈罿膈薈羄羈莀袄袀羇蒃蚇螆羇薅蒀肅羆芅蚅羁羅莇蒈袆肄葿蚃螂肃腿 目 录1.前言12.需求分析13.系统设计13.1模块设计13.2数据库设计34.系统实现44.1启动模块44.2登陆模块54.3主模块54.4员工信息管理74.5客户信息管理114.6合同信息管理14结束语18参考文献19致谢20摘要：随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，企业要生存要发展，要高效率地把企业活动有机地组织起来，就必须加强企业管理，即加强对企业内部的各种资源（人、财、物等）的有效管理，建立与自身特点相适应的管理信息系统。本文介绍了在VB6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个企业合同管理信息系统的过程。通过分析传统的人工管理合同的不足，创建了一套行之有效的计算机管理合同的方案。论文详细介绍了合同信息系统的需求分析、系统设计和系统实现。系统设计部分主要介绍了系统功能设计和数据库设计；系统实现部分列出主要模块的窗口界面和程序。本系统界面友好，操作简单，比较实用。关键词：Visual Basic6.0；员工信息；客户信息；合同管理ABSTRACT：Along with the information technology in the management of more and more depth and a wide range of applications, information management system in the implementation of technology has gradually matured. Management information system is a continuous development of new disciplines, enterprise to survive is to develop and efficient business activities organized organically, to strengthen enterprise management, namely, to strengthen enterprise internal various resources (human, financial, material, etc.), the effective management of the establishment and its own characteristics in line with the management information system. This paper introduces the environment in, VB6.0 to overall planning, top-down bottom-up application development strategy to develop a enterprise contract management information system process. Through the analysis of the traditional manual administration contract insufficiency, created a set of effective computer management library scheme. This paper introduces in detail the books management information system of analysis parts, including the feasibility analysis, organization analysis, management function analysis, business process analysis, data flow analysis, processing description, etc.; System design part mainly introduced the system function design and database design; System realizing section of several major program diagram, and with some of the main window and procedures. This system friendly interface, the operation is simple, is more practical. KEY WORDS: Visual Basic6.0；employee information；customer information ；contract management 1.前言企业合同管理系统是建立在信息技术基础上，利用现代企业的先进管理思想，为企业提供决策、计划、控制与经营绩效评估的全方位、系统化的合同管理平台。合同信息作为企业的一项非常重要的数据资源，因其复杂性而难以单纯依靠人工进行管理。采用手工管理合同，由于涉及的部门众多，需要管理的合同要素也各不相同，因此造成信息不集中，实时性不强，导致各部门协作，业务流程组建，监控制度执行方面效率不高，费时费力等问题，具体表现在如下方面： （1）文档管理困难：传统纸质合同与电子版合同共存，但对于不同的人员想阅读参考合同时，存在查找不方便的问题。尤其是领导需要了解合同文本时需要耗费很多时间。 （2）进度控制困难：由于合同数目多，参与人员多，合同进度的控制基本靠手工和普通Word、Excel管理已很难满足公司发展需要，并且当领导想全局或全程了解合同情况时存在很大障碍。财务人员的付款依据也与进度密切相关，但同样存在障碍。 （3）信息汇总困难：采用手工或Excel管理时，由于不同部门的数据格式不统一，采集也不能够及时继续，汇总工作需要耗费大量时间还不一定准确。对于领导的决策时间有一定的影响。 （4）缺少预警机制：缺少对合同进度、结款等关键节点的预警，不能准确地预测近期可能的收支项目，不能帮助公司进行财务规划，掌控现金流，更好地发挥资金运作。业务管理是合同管理的核心需求。企业合同管理系统可以保存和管理企业的日常合同及合同的相关信息，有效跟踪管理企业的日常合同，带动企业合同管理的信息化、科学化，同时也可以节省人力、物力、财力，提高工作效率，使企业合同管理更加科学，更加规范。2.需求分析该合同管理系统主要用于企业合同的日常管理，主要对合同涉及的员工信息、客户信息、合同信息进行管理，提高合同管理的有效性和规范性。本系统要求性能稳定，图形用户界面符合日常使用习惯，数据处理正确无误。通过对企业合同管理流程的调研分析，该系统应当实现对企业员工信息、客户信息、合同信息的维护和管理，能够完成对合同各项信息的添加、修改、删除和查询功能。主要功能包括：（1）员工管理：实现员工信息的添加、修改、删除和查询功能。（2）客户管理：实现客户信息的添加、修改、删除和查询功能。 （3）合同管理：实现合同信息的添加、修改、删除和查询功能。3.系统设计3.1模块设计企业合同管理系统划分成员工信息管理、客户信息管理、合同信息管理三个模块。模块图如图3.1、3.2、3.3、3.4。登录模块企业合同管理系统员工信息管理客户信息管理合同信息管理图3.1 总体框架员工管理添加修改删除查询图3.2 员工管理客户管理添加修改删除查询图3.3 客户管理合同管理添加修改删除查询图 3.4 合同管理3.2数据库设计根据系统的需求，利用ACCESS数据库管理系统，分别建立员工信息表、客户信息表、合同信息表，具体如下：（1）员工信息表，用于对员工信息的编号、姓名、部门、性别、生日、职务进行定义，如表3-1所示：表3-1员工信息表字段名（中文）数据类型宽度是否为空说明员工编号Text10no员工姓名Text10no部门Text50no性别Text10no生日Date职务Text50（2）客户信息表，用于保存客户有关的信息。如表3-2所示：表3-2 客户信息表字段名数据类型宽度是否为空说明编号Text50no客户姓名Text50no联系人Text50no电话text50noE-mailText50no备注textno（3）合同信息表，用于管理合同信息。如表3-3所示：表3-3 合同信息表中文字段名数据类型宽度是否为空说明合同编号text50no合同名称text50no合同描述Textno客户名称Textno合同金额数字50no签约人Textno合同起始日期Dateno合同终止日期Date已付款数字备注Text4.系统实现4.1启动模块本模块提供系统启动功能，点击“进入系统”按钮完成系统的启动，点击“退出系统”完成系统的退出，界面如图4.1所示。 图 4.1 系统启动界面代码如下:Private Sub Label3_Click()Form2.ShowUnload MeEnd SubPrivate Sub Label4_Click()Unload MeEnd SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left + 30If Label1.Left Form1.Width ThenLabel1.Left = -Label1.Width End If End Sub4.2登陆模块本模块提供文本框输入用户信息，点击“确定”按钮完成用户登录，点击“退出”按钮退出系统，界面如图4.2所示。图4.2系统登陆界面代码如下：Private Sub Command1_Click(Index As Integer)If Text1.Text = 11 And Text2.Text = 11 ThenForm3.ShowUnload MeElseresponse = MsgBox(!)Text1.Text = Text2.Text = End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + 36If Label1.Left Form2.Width ThenLabel1.Left = -Label1.WidthEnd IfEnd Sub4.3主模块本模块功能是在启动窗体的同时，进行数据库的连接操作。主窗体菜单设计的效果图如图4.3所示。 图4.3 系统主界面代码如下：Private Sub ADC_Click()Form10.ShowEnd SubPrivate Sub add_Click()Form4.ShowEnd SubPrivate Sub addc_Click()Form7.ShowEnd SubPrivate Sub CK_Click()Form14.ShowEnd SubPrivate Sub CS_Click()Form11.ShowEnd SubPrivate Sub EXIT_Click()Unload MeEnd SubPrivate Sub KC_Click()Form13.ShowEnd SubPrivate Sub mend_Click()Form5.ShowEnd SubPrivate Sub mendc_Click()Form8.ShowEnd SubPrivate Sub MM_Click()Form12.ShowEnd SubPrivate Sub SC_Click()Form9.ShowEnd SubPrivate Sub search_Click()Form6.ShowEnd Sub4.4员工信息管理4.4.1员工信息添加本模块提供文本框输入员工相关基本信息，单击“添加”按钮完成员工信息的保存，单击“退出”按钮返回主菜单。具体设计效果图如图4.4所示。图4.4 员工信息添加界面代码如下：Private Sub Command1_Click()On Error Resume NextIf Command1.Caption = 添加 ThenCommand1.Caption = 确定Adodc1.Recordset.AddNewText1.SetFocusElseCommand1.Caption = 添加Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastMsgBox 员工信息添加完成End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub4.4.2员工信息修改删除本模块可以选择相应员工的信息进行修改删除，点击修改、删除按钮分别完成员工信息修改、删除，点击退出按钮、返回主控界面，具体界面如图4.5所示。图4.5 员工信息修改删除界面代码如下：Private Sub Command1_Click()On Error Resume NextIf Command1.Caption = 修改 ThenCommand1.Caption = 确定Adodc1.Recordset.UpdateText1.SetFocusElseCommand1.Caption = 修改Adodc1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command2_Click()Dim sak As IntegerOn Error Resume Nextask = MsgBox(删除否?, vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveFirstCommand5.Enabled = FalseEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirstCommand6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastCommand5.Enabled = TrueEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.MoveLastCommand6.Enabled = FalseEnd Sub4.4.3员工信息查询本模块提供了两种查询方式：编号查询、姓名查询，也可以点击查询全部按钮查询所有员工信息，具体界面如图4.6所示。图4.6 员工信息查询界面代码如下：Private Sub Command1_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 员工信息表 Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command4_Click()If Option1.Value = True ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 员工信息表 where 员工编号 = & Trim(Text1.Text) & Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End IfIf Option2.Value = True ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 员工信息表 where 员工姓名= & Trim(Text2.Text) & Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End IfEnd Sub4.5客户信息管理4.5.1客户信息添加本模块提供文本框输入客户相关基本信息，单击“添加”按钮完成客户信息的保存，单击“退出”按钮返回主菜单。具体设计效果图如图4.7所示。图4.7 客户添加界面代码如下：Private Sub Command1_Click()On Error Resume NextIf Command1.Caption = 添加 ThenCommand1.Caption = 确定Adodc1.Recordset.AddNewText1.SetFocusElseCommand1.Caption = 添加Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastMsgBox 客户信息添加完成End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub4.5.2客户信息修改删除本模块可以选择相应客户的信息进行修改删除，点击“修改”、“删除”按钮分别完成客户信息修改、删除，点击“退出”按钮、返回主控界面，具体界面如图4.8所示。图4.8 客户信息修改删除界面代码如下：Private Sub Command1_Click()Adodc1.Recordset.MoveFirstCommand5.Enabled = FalseEnd SubPrivate Sub Command2_Click()On Error Resume NextIf Command2.Caption = 修改 ThenCommand2.Caption = 确定Adodc1.Recordset.UpdateText1.SetFocusElseCommand2.Caption = 修改Adodc1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command3_Click()Dim sak As IntegerOn Error Resume Nextask = MsgBox(删除否?, vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirstCommand6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastCommand5.Enabled = TrueEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.MoveLastCommand6.Enabled = FalseEnd Sub4.5.3客户信息查询本模块提供了两种查询方式：编号查询、姓名查询，也可以点击“查询全部”按钮查询所有客户信息，具体界面如图4.9所示。图4.9 客户信息查询界面代码如下：Private Sub Command1_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 客户信息表 Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If Option1.Value = True ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 客户信息表 where 编号 = & Trim(Text1.Text) & Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End IfIf Option2.Value = True ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 客户信息表 where 客户姓名= & Trim(Text2.Text) & Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End IfEnd Sub4.6合同信息管理4.6.1合同信息添加本模块提供文本框输入合同相关基本信息，单击“添加”按钮完成合同信息的保存，单击“退出”按钮返回主菜单。具体设计效果图如图4.10所示。4.10 合同添加界面代码如下：Private Sub Command1_Click()On Error Resume NextIf Command1.Caption = 添加 ThenCommand1.Caption = 确定Adodc1.Recordset.AddNewtxet1.SetFocusElseCommand1.Caption = 添加Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastMsgBox 合同信息添加已完成End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub4.6.2合同信息修改删除本模块可以选择相应合同的信息进行修改删除。点击“修改”、“删除”按钮分别完成合同信息修改、删除，点击“退出”按钮、返回主控界面，具体界面如图4.11所示。4.11 合同信息修改删除界面代码如下：Private Sub Command1_Click()On Error Resume NextIf Command1.Caption = 修改 ThenCommand1.Caption = 确定Adodc1.Recordset.UpdateText1.SetFocusElseCommand1.Caption = 修改Adodc1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MoveFirstCommand3.Enabled = FalseEnd SubP