Форум программистов, компьютерный форум, киберфорум
C#: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
2 / 2 / 0
Регистрация: 22.11.2018
Сообщений: 305

Перевести код на C# c Delphi

16.01.2020, 00:35. Показов 741. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
var
 log: String; i:integer;
begin
 try
   if (Trim(sedit1.Text)='')
 
 
    then
     begin
     showmessage('Ошибка, не верный формат данных');
      exit;
 
     end;
 
 log := scombobox1.Text;
 with dm.Qauthorization, Parameters do
  begin
 
    i:=scombobox1.ItemIndex;
     case i of
     0:
      begin
       SQL.Text:='SELECT * FROM сотрудник  WHERE (Должность= :логин) and (Пароль = :пароль)';
      end;
       1:
        begin
        SQL.Text:='SELECT * FROM тренер  WHERE (Должность= :логин) and (Пароль = :пароль)';
        end;
       end;
    ParamByName('логин').Value := log;
    ParamByName('пароль').Value := sEdit1.Text;
    Open;
     if RecordCount > 0 then
      if FieldValues['Должность'] = 'Администратор' then
       begin
       hide;
        showmessage('Вход выполнен:Администратор');
        form2.sstatusbar1.Panels[7].text:='Администратор' ;
        form2.Caption:='Главное окно';
        form2.show;
       end
        else
         if FieldValues['Должность']='Тренер' then
          begin
          hide;
           showmessage('Вход выполнен:Тренер');
           form2.sstatusbar1.Panels[7].text:='Тренер' ;
           form2.Caption:='Главное окно';
           form2.show;
 
              end
                else
                 begin
                  SQL.Text:='SELECT Сотрудник.*, Тренер.*';
                 SQL.Text:='FROM Тренер INNER JOIN (Абонемент INNER JOIN (Сотрудник INNER JOIN Продажа_абонемента ON Сотрудник.Идсотрудник = Продажа_абонемента.Идсотрудник) ON Абонемент.Идабонемент = ';
                   SQL.Text:=' Продажа_абонемента.Идабонемент) ON Тренер.Идтренер = Абонемент.Идтренер; ';
                  Open;
                 //Edit1.Clear;
                  sEdit1.Clear   end
                 else
                 showmessage('Введен не верный пароль, повторите попытку');
 end;
 except
         on e:Exception do
 
   end;
Добавлено через 19 минут
или сделать приблизительный помогите пожалуйста
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.01.2020, 00:35
Ответы с готовыми решениями:

Как перевести этот код на код Delphi
uses crt; const nmax=100; var a:arrayof integer; n,i,k,j,x:integer; begin clrscr; randomize; repeat write('Размер...

перевести код из Си в Delphi
#include<stdio.h> #include<conio.h> void main() {int a,b,c; printf("vvedi chisla\n"); scanf("%d%d%d",&a,&b,&c); if (a>b) ...

Перевести код из C++ на Delphi
Помогите ребята мне нужно из C+ перевести в Delfi //n -- требуемая длина кода, //m -- указатель на массив, способный хранить //...

6
800 / 583 / 207
Регистрация: 21.02.2019
Сообщений: 2,095
16.01.2020, 11:13
tudswt,
.. а вы не пробовали в запросах к Google сразу добавлять "C#", чтобы отсеивать решения на Python и Delphi ..?
0
2 / 2 / 0
Регистрация: 22.11.2018
Сообщений: 305
16.01.2020, 11:38  [ТС]
Пробовал но проблема в том что авторизация в c# везде с одной таблицей а мне нужно брать данные из двух.
0
2810 / 1679 / 885
Регистрация: 14.04.2015
Сообщений: 5,723
16.01.2020, 13:48
tudswt, ужас, а селект на JOIN двух таблиц написать не судьба? не многим сложнее, чем запрос на выборку из одной таблицы
0
2 / 2 / 0
Регистрация: 22.11.2018
Сообщений: 305
16.01.2020, 14:08  [ТС]
Помочь можете сделать на c#?
0
 Аватар для Andrey-MSK
3339 / 2226 / 387
Регистрация: 14.08.2018
Сообщений: 7,515
Записей в блоге: 4
16.01.2020, 14:16
Цитата Сообщение от tudswt Посмотреть сообщение
Помочь можете сделать на c#?
SQL вам в помощь. Пишете нужный SELECT, а потом его уже вставляете в код на C#.
0
 Аватар для Kazbek17
1484 / 939 / 454
Регистрация: 06.02.2012
Сообщений: 2,868
16.01.2020, 20:16
tudswt, Примерно выглядит так.
Код взят из проекта не относящийся к Delphi
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
public partial class Authorization : Form
    {
        bool exit = true;
        public string Input { get; set; }
        public string Role { get; set; }
        public static string GetInputId { get; set; }
        public Authorization()
        {
            InitializeComponent();
        }
 
        public MySqlConnection con = new MySqlConnection("");
        public DataTable RunQuery(string script)
        {
            MySqlDataAdapter dataAdapter = new MySqlDataAdapter(script, con);
            DataTable Table = new DataTable();
            dataAdapter.Fill(Table);
            return Table;
        }
        private void Authorization_Load(object sender, EventArgs e)
        {
 
             //Выполняем скрипт и загружаем в comboBox все роли
            cb1.DataSource = RunQuery(@"SELECT  `Должность`.`Название`
                                               FROM `Авторизация`
                                               JOIN `Сотрудники` ON `Сотрудники`.`id` = `Авторизация`.`id_сотрудник`
                                               JOIN `Должность` ON `Должность`.`id` = `Сотрудники`.`id_должность` 
                                           GROUP BY `Должность`.`Название`");
             //Указываем на то что нужно отображать (ФИО)
            cb1.DisplayMember = "Название";
           
        }
 
        private void Authorization_FormClosing(object sender, FormClosingEventArgs e)
        {
            e.Cancel = exit;
        }
 
        //Выход из формы авторизация и закрываем приложение
        private void btnCancel_Click(object sender, EventArgs e)
        {
            Button button = sender as Button;
            exit = false;
            this.Close();
            if (button.Name != "btnOk")
            {
                Application.Exit();
            }
        }
 
       //Событие происходит при выборе значение из combBox
        private void cb1_SelectedIndexChanged(object sender, EventArgs e)
        {
            //Выполняем скрипт на выборку по условию роли. После выборки, получаем  список всех Админов,дворников, // 
           //сторожей и.т.д
            cbLogin.DataSource = RunQuery($@"SELECT `Логин`,
                                                        `Пароль`,
                                                        `id_сотрудник`
                                                   FROM `Авторизация`
                                                   JOIN `Сотрудники` ON `Сотрудники`.`id` = `Авторизация`.`id_сотрудник`
                                                   JOIN `Должность` ON `Должность`.`id` = `Сотрудники`.`id_должность`
                                                 WHERE `Название` = '{cb1.Text}'");
 
            //Отображаем Логин
            cbLogin.DisplayMember = "Логин";
            cbLogin.ValueMember = "Пароль";
        }
 
        private void btnOk_Click(object sender, EventArgs e)
        {
            //Проверяем условие пароля, выбранного пользователя
            if (!cbLogin.SelectedValue.Equals(txPass.Text))
                MessageBox.Show("Неверный пароль!!!", "Внимание!!!", MessageBoxButtons.OK, MessageBoxIcon.Error);
            else
            {
                Role = cb1.Text;
                Input = $"Вход в программу произведен пользователем:({cbLogin.Text})";
                btnCancel_Click(sender, e);
            }
        }
 
        private void cbLogin_SelectedValueChanged(object sender, EventArgs e)
        {
            if (cbLogin.SelectedItem != null)
            {
                GetInputId = (cbLogin.SelectedItem as DataRowView).Row.ItemArray[2].ToString();
            }
        }
    }
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.01.2020, 20:16
Помогаю со студенческими работами здесь

Перевести код на Delphi
добрый вечер, срочно , помогите адекватно перевести программу с паскаль на делфи, вот код: PROGRAM ArTrening; uses Crt; const ...

Перевести код с Delphi
Помогите перевести участок кода, написанный на Delphi в код C#. type ukazatel=^zveno; zveno=record FIO:string; ...

Перевести код с Delphi на C#
В общем, переписывал прогу с делфи на си#, и что-то как то не удаётся. program project1; uses Math; var i, N :...

Перевести код с delphi
var Form1: TForm1; a:array of integer; n:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender:...

Перевести код с delphi в С#
Прошу помочь перевести код с delphi в С# а также ответить на несколько моих проблем очень прошу! 1. Как сделать чтобы 1 столбец в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru