|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.06.2008, 11:53 | #1 |
Новичок
Джуниор
Регистрация: 07.06.2008
Сообщений: 2
|
Help плиз! Нужно перевести текст в программу!!!
Доброго всем времени суток!
Очень прошу помощи, дабы Сам в программировании никак, вообще никак... :nea В общем и целом, проблема заключается в следующем! Нужна дипломная, нашел скачал, дипломная на Тему АИС... Все хорошо, вот только в этой скаченной дипломке нет программного продукта, в самом тексте есть текст самой программы, а готового продукта нет! :shok Саму работу скачал отсюда - http://revolution.allbest.ru/programming/00010799.html Сам же текст выглядит, так: Текст программы Private Sub Form_Load() End Sub '------------------------------------------------------------ ' Кнопка1_Click ' '------------------------------------------------------------ Private Sub Кнопка1_Click() On Error GoTo Кнопка1_Click_Err DoCmd.OpenForm "Запросы", acNormal, "", "", , acNormal Кнопка1_Click_Exit: Exit Sub Кнопка1_Click_Err: MsgBox Error$ Resume Кнопка1_Click_Exit End Sub '------------------------------------------------------------ ' Кнопка3_Click ' '------------------------------------------------------------ Private Sub Кнопка3_Click() On Error GoTo Кнопка3_Click_Err DoCmd.OpenForm "Отчеты", acNormal, "", "", , acNormal Кнопка3_Click_Exit: Exit Sub Кнопка3_Click_Err: MsgBox Error$ Resume Кнопка3_Click_Exit End Sub '------------------------------------------------------------ ' Кнопка5_Click ' '------------------------------------------------------------ Private Sub Кнопка5_Click() On Error GoTo Кнопка5_Click_Err DoCmd.OpenForm "ВВод и редактирование", acNormal, "", "", , acNormal Кнопка5_Click_Exit: Exit Sub Кнопка5_Click_Err: MsgBox Error$ Resume Кнопка5_Click_Exit End Sub '------------------------------------------------------------ ' Кнопка7_Click ' '------------------------------------------------------------ Private Sub Кнопка7_Click() On Error GoTo Кнопка7_Click_Err DoCmd.Quit acExit Кнопка7_Click_Exit: Exit Sub Кнопка7_Click_Err: MsgBox Error$ Resume Кнопка7_Click_Exit End Sub '------------------------------------------------------------ ' Кнопка9_Click ' '------------------------------------------------------------ Private Sub Кнопка9_Click() On Error GoTo Кнопка9_Click_Err DoCmd.Close acForm, "ГЛАВНАЯ" Кнопка9_Click_Exit: Exit Sub Кнопка9_Click_Err: MsgBox Error$ Resume Кнопка9_Click_Exit End Sub Ввод и редактирование данных Private Sub Form_Load() End Sub '------------------------------------------------------------ ' Кнопка1_Click ' '------------------------------------------------------------ Private Sub Кнопка1_Click() On Error GoTo Кнопка1_Click_Err DoCmd.OpenForm "Запросы", acNormal, "", "", , acNormal Кнопка1_Click_Exit: Exit Sub Кнопка1_Click_Err: MsgBox Error$ Resume Кнопка1_Click_Exit End Sub '------------------------------------------------------------ ' Кнопка3_Click ' '------------------------------------------------------------ Private Sub Кнопка3_Click() On Error GoTo Кнопка3_Click_Err DoCmd.OpenForm "Отчеты", acNormal, "", "", , acNormal Кнопка3_Click_Exit: Exit Sub Кнопка3_Click_Err: MsgBox Error$ Resume Кнопка3_Click_Exit End Sub '------------------------------------------------------------ ' Кнопка5_Click ' '------------------------------------------------------------ Private Sub Кнопка5_Click() On Error GoTo Кнопка5_Click_Err DoCmd.OpenForm "ВВод и редактирование", acNormal, "", "", , acNormal Кнопка5_Click_Exit: Exit Sub Кнопка5_Click_Err: MsgBox Error$ Resume Кнопка5_Click_Exit End Sub '------------------------------------------------------------ ' Кнопка7_Click ' '------------------------------------------------------------ Private Sub Кнопка7_Click() On Error GoTo Кнопка7_Click_Err DoCmd.Quit acExit Кнопка7_Click_Exit: Exit Sub Кнопка7_Click_Err: MsgBox Error$ Resume Кнопка7_Click_Exit End Sub '------------------------------------------------------------ ' Кнопка9_Click ' '------------------------------------------------------------ Private Sub Кнопка9_Click() On Error GoTo Кнопка9_Click_Err DoCmd.Close acForm, "ГЛАВНАЯ" Кнопка9_Click_Exit: Exit Sub Кнопка9_Click_Err: MsgBox Error$ Resume Кнопка9_Click_Exit End Sub все делалось в Microsoft Office Access, прошу помощи в виде конечной программы, т.е. самого файла софтины! ash1 |
07.06.2008, 11:54 | #2 |
Новичок
Джуниор
Регистрация: 07.06.2008
Сообщений: 2
|
Т.к. количество символов(макс. 5000) не позволяет уместить текст проги в одном посте, то не судите строго, вот вторая часть, т.е. продолжение....
ЗАСТАВКА Private Sub Кнопка2_Click() On Error GoTo Err_Кнопка2_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1055) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1097) & ChrW(1080) & ChrW(1082) & ChrW(1080) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Кнопка2_Click: Exit Sub Err_Кнопка2_Click: MsgBox Err.Description Resume Exit_Кнопка2_Click End Sub Private Sub Кнопка3_Click() On Error GoTo Err_Кнопка3_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1057) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1082) & ChrW(1080) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Кнопка3_Click: Exit Sub Err_Кнопка3_Click: MsgBox Err.Description Resume Exit_Кнопка3_Click End Sub Private Sub Кнопка12_Click() On Error GoTo Err_Кнопка12_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1091) & ChrW(1087) & ChrW(1082) & ChrW(1080) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Кнопка12_Click: Exit Sub Err_Кнопка12_Click: MsgBox Err.Description Resume Exit_Кнопка12_Click End Sub Private Sub Кнопка13_Click() On Error GoTo Err_Кнопка13_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1050) & ChrW(1086) & ChrW(1084) & ChrW(1087) & ChrW(1087) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1091) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1077) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Кнопка13_Click: Exit Sub Err_Кнопка13_Click: MsgBox Err.Description Resume Exit_Кнопка13_Click End Sub Private Sub Кнопка22_Click() On Error GoTo Err_Кнопка22_Click Dim stDocName As String stDocName = ChrW(1050) & ChrW(1086) & ChrW(1084) & ChrW(1087) & ChrW(1087) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1091) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1077) DoCmd.OpenReport stDocName, acPreview Exit_Кнопка22_Click: Exit Sub Err_Кнопка22_Click: MsgBox Err.Description Resume Exit_Кнопка22_Click End Sub Private Sub Кнопка26_Click() On Error GoTo Err_Кнопка26_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1042) & ChrW(1099) & ChrW(1095) & ChrW(1080) & ChrW(1089) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Кнопка26_Click: Exit Sub Err_Кнопка26_Click: MsgBox Err.Description Resume Exit_Кнопка26_Click End Sub Private Sub Кнопка28_Click() On Error GoTo Err_Кнопка28_Click DoCmd.Close Exit_Кнопка28_Click: Exit Sub Err_Кнопка28_Click: MsgBox Err.Description Resume Exit_Кнопка28_Click End Sub Private Sub Кнопка33_Click() On Error GoTo Err_Кнопка33_Click Dim stDocName As String stDocName = ChrW(1052) & ChrW(1072) & ChrW(1082) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(49) DoCmd.RunMacro stDocName Exit_Кнопка33_Click: Exit Sub Err_Кнопка33_Click: MsgBox Err.Description Resume Exit_Кнопка33_Click End Sub |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевести текст | marinchik | Свободное общение | 15 | 02.07.2008 11:40 |
Нужно перевести задачу с паскаля на DELPHI | VDK23RUS | Помощь студентам | 8 | 16.06.2007 15:38 |
как перевести дату в текст | zetrix | Microsoft Office Excel | 0 | 31.10.2006 07:37 |