Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Листинг А
|
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB, Buttons;
type
TFormBD = class(TForm)
Panel1: TPanel;
Panel3: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Splitter1: TSplitter;
Panel2: TPanel;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormBD: TFormBD;
search1, search2: string;
implementation
uses Unit3, Unit4;
{$R *.dfm}
procedure TFormBD.BitBtn1Click(Sender: TObject);
begin
FormRegistr.Font.Color: =clBlack;
FormRegistr.Show;
FormRegistr.Caption: ='Добавление сотрудника';
ADOTable1.Insert;
end;
procedure TFormBD.BitBtn3Click(Sender: TObject);
var
buttonSelected: Integer;
Sotrudnik: string;
begin
Sotrudnik: =DataSource1.DataSet.Fields.Fields[1].Value+' '+DataSource1.DataSet.Fields.Fields[2].Value+' '+DataSource1.DataSet.Fields.Fields[3].Value+'? ';
buttonSelected: =MessageDlg('Вы уверены, что хотите удалить сотрудника: '+Sotrudnik, mtConfirmation, [mbOk, mbCancel], 0);
if buttonSelected = mrOK then
FormBD.ADOTable1.Delete;
end;
procedure TFormBD.BitBtn2Click(Sender: TObject);
begin
FormRegistr.Caption: ='Редактирование данных сотрудника';
FormRegistr.Show;
end;
procedure TFormBD.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
search1: =edit1.Text;
dbgrid1.DataSource.DataSet.Locate('Фамилия', search1, [loPartialKey])
end;
procedure TFormBD.Edit2Change(Sender: TObject);
begin
search2: =edit2.Text;
dbgrid1.DataSource.DataSet.Locate('Кабинет', search2, [loPartialKey]);
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBCtrls, Mask;
type
TFormRegistr = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBComboBox1: TDBComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormRegistr: TFormRegistr;
implementation
uses Unit1;
{$R *.dfm}
procedure TFormRegistr.BitBtn1Click(Sender: TObject);
var
buttonSelected: integer;
begin
If DBEdit1.Text='' then Label1.Font.Color: =clRed else Label1.Font.Color: =clBlack;
If DBEdit2.Text='' then Label2.Font.Color: =clRed else Label2.Font.Color: =clBlack;
If DBEdit3.Text='' then Label3.Font.Color: =clRed else Label3.Font.Color: =clBlack;
If DBEdit4.Text='' then Label4.Font.Color: =clRed else Label4.Font.Color: =clBlack;
If DBEdit5.Text='' then Label5.Font.Color: =clRed else Label5.Font.Color: =clBlack;
If DBEdit6.Text='' then Label6.Font.Color: =clRed else Label6.Font.Color: =clBlack;
If DBEdit7.Text='' then Label7.Font.Color: =clRed else Label7.Font.Color: =clBlack;
If DBEdit8.Text='' then Label8.Font.Color: =clRed else Label8.Font.Color: =clBlack;
If DBComboBox1.Text='' then Label9.Font.Color: =clRed else Label9.Font.Color: =clBlack;
If ((Label1.Font.Color=clRed) or (Label2.Font.Color=clRed) or (Label3.Font.Color=clRed) or (Label4.Font.Color=clRed) or (Label5.Font.Color=clRed)
or (Label6.Font.Color=clRed) or (Label7.Font.Color=clRed) or (Label8.Font.Color=clRed) or (DBComboBox1.Text='')) then
buttonSelected: =MessageDlg('Вы ввели не все данные.', mtError, [mbOk], 0)
else
begin
FormBD.ADOTable1.Post;
FormRegistr.Close;
end;
end;
procedure TFormRegistr.BitBtn2Click(Sender: TObject);
begin
FormRegistr.Close;
FormBD.ADOTable1.Delete;
end;
procedure TFormRegistr.FormShow(Sender: TObject);
begin
Label1.Font.Color: =clBlack;
Label2.Font.Color: =clBlack;
Label3.Font.Color: =clBlack;
Label4.Font.Color: =clBlack;
Label5.Font.Color: =clBlack;
Label6.Font.Color: =clBlack;
Label7.Font.Color: =clBlack;
Label8.Font.Color: =clBlack;
Label9.Font.Color: =clBlack;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
type
TFormEnter = class(TForm)
EditPassword: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Label4: TLabel;
EditLogin: TEdit;
procedure Label3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure EditPasswordKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormEnter: TFormEnter;
Index: integer;
implementation
uses Unit1, Unit6, Unit7, Unit8;
{$R *.dfm}
procedure TFormEnter.Label3Click(Sender: TObject);
var
buttonSelected: integer;
begin
buttonSelected: =MessageDlg('Если вы испытываете сложности со входом, позвоните в отдел тех.поддержки по телефону 1010', mtConfirmation, [mbOk], 0);
end;
procedure TFormEnter.Button1Click(Sender: TObject);
var
LogPass: array of string;
I, H, Counst: integer;
Login, Password, LoginAndPassword: string;
begin
setLength(LogPass, 50);
Login: =EditLogin.Text;
if ((EditLogin.Text=('Admin')) and (EditPassword.Text=('qwerty'))) then
begin
FormEnter.Visible: =False;
FormAdmin.Show;
end
else
FormBD.ADOTable1.First;
For I: =0 to FormBD.ADOTable1.RecordCount -1 do
begin
LogPass[I]: =FormBD.ADOTable1.FieldValues['Логин']+' '+FormBD.ADOTable1.FieldValues['Пароль'];
FormBD.ADOTable1.Next;
Inc(Counst);
end;
LoginAndPassword: =Trim(EditLogin.Text)+' '+Trim(EditPassword.Text);
For H: =0 to Counst-1 do
begin
if LoginAndPassword = LogPass[H] then
begin
FormEnter.Visible: =False;
FormKlient.Show;
Index: =H+1;
FormBD.DBGrid1.DataSource.DataSet.Locate('Логин', Login, [loPartialKey]); FormKlient.Label6.Caption: =FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[1].Value+' '+FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[2].Value+' '+FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[3].Value;
end
else
Label4.Visible: =true;
EditLogin.Clear;
EditPassword.Clear;
end;
end;
procedure TFormEnter.EditPasswordKeyPress(Sender: TObject; var Key: Char);
begin
if key =#13 then Button1.Click; //нажатие кнопки по клавише Enter
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TFormKlient = class(TForm)
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
Label5: TLabel;
Memo2: TMemo;
Button1: TButton;
ComboBoxProblem: TComboBox;
ComboBoxProblem2: TComboBox;
ClientSocket1: TClientSocket;
Label6: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure ComboBoxProblemClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ComboBoxProblemSelect(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
{ procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); }
private
{ Private declarations }
public
{ Public declarations }
end;
var
WorkDate: TDate;
FormKlient: TFormKlient;
Packet, Kabinet, Telefon, Prioritet, Fam, Imya, Otch, Problema1, Problema2, Opisanie: string;
implementation
uses Unit5;
{$R *.dfm}
procedure TFormKlient.Button1Click(Sender: TObject);
begin
WorkDate: = Now;
If ComboBoxProblem.Text=('Выберите тип проблемы') then
begin
Label1.Font.Color: =clRed;
Label1.Caption: =('Вы не выбрали тип проблемы');
end
else
If (ComboBoxProblem.Text=('Затрудняюсь выбрать')) and (memo2.Text='') then
begin
label1.Caption: =('Тип проблемы');
Label1.Font.Color: =clBlack;
Label5.Font.Color: =clRed;
Label5.Caption: =('Приложите описание проблемы');
end
else
If (ComboBoxProblem2.Visible=True) and ((ComboBoxProblem2.Text='Выберите вид устройства') or (ComboBoxProblem2.Text='Выберите вид программного обеспечения')) then
begin
Label2.Font.Color: =clRed;
end
else
begin
if ComboBoxProblem2.Text='' then
ComboBoxProblem2.Text: ='Нет';
if memo2.Text='' then
memo2.Text: ='Нет';
label5.Caption: =('Описание проблемы');
label1.Caption: =('Тип проблемы');
Label1.Font.Color: =clBlack;
Label5.Font.Color: =clBlack;
Label2.Font.Color: =clBlack; Packet: =ComboBoxProblem.Text+#13+ComboBoxProblem2.Text+#13+Memo2.text+#13+inttostr(Index); //формирование пакета для передачи
ClientSocket1.Socket.SendText(ansistring(Packet));
memo1.Lines.Add('Ваша заявка была отправлена, сортрудник техничекой поддержки свяжется с вами в ближайшее время'+TimeToStr(WorkDate));
end;
end;
procedure TFormKlient.ComboBoxProblemClick(Sender: TObject);
begin
comboboxproblem2.Items.Clear;
end;
procedure TFormKlient.FormShow(Sender: TObject);
begin
ClientSocket1.Host: ='25.69.41.231';
ClientSocket1.Active: =True;
Memo1.ReadOnly: =True;
Memo2.SetFocus;
end;
procedure TFormKlient.ComboBoxProblemSelect(Sender: TObject);
begin
If ComboBoxProblem.text=('Выберите тип проблемы') then
begin
label2.Visible: =false;
Comboboxproblem2.Visible: =false;
end;
if ComboBoxProblem.text=('Программная') then
begin
label1.Caption: =('Тип проблемы');
Label1.Font.Color: =clBlack;
Label2.Font.Color: =clBlack;
label2.Visible: =true;
Comboboxproblem2.Visible: =true;
label2.Caption: =('Вид программного обеспечения');
ComboBoxProblem2.Text: =('Выберите вид программного обеспечения');
ComboBoxProblem2.Items.Add('Операционная система');
ComboBoxProblem2.Items.Add('Пакет Office');
ComboBoxProblem2.Items.Add('Сопровождающее ПО');
ComboBoxProblem2.Items.Add('Затрудняюсь выбрать');
end;
if ComboBoxProblem.text=('Аппаратная') then
begin
label1.Caption: =('Тип проблемы');
Label1.Font.Color: =clBlack;
Label2.Font.Color: =clBlack;
label2.Visible: =true;
Comboboxproblem2.Visible: =true;
label2.Caption: =('Вид устройства');
ComboBoxProblem2.Text: =('Выберите вид устройства');
ComboBoxProblem2.Items.Add('Компьютер и комплектующие');
ComboBoxProblem2.Items.Add('Принтер');
ComboBoxProblem2.Items.Add('Затрудняюсь выбрать');
end;
if ComboBoxProblem.text=('Отсутствует интернет подключение') then
begin
label1.Caption: =('Тип проблемы');
Label1.Font.Color: =clBlack;
Label2.Visible: =false;
Comboboxproblem2.Visible: =false;
end;
If ComboBoxProblem.Text=('Затрудняюсь выбрать') then
begin
label1.Caption: =('Тип проблемы');
Label1.Font.Color: =clBlack;
Label2.Visible: =false;
Comboboxproblem2.Visible: =false;
ComboBoxProblem2.Items.Clear;
Label5.Caption: =('Опишите свою проблему');
end;
end;
procedure TFormKlient.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Ваша заявка номер '+ClientSocket1.Socket.ReceiveText+', была принята.'+' '+TimeToStr(WorkDate));
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp, DB, ADODB, Grids, DBGrids, ExtCtrls;
type
TFormAdmin = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Memo1: TMemo;
Button4: TButton;
Panel1: TPanel;
Panel2: TPanel;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
ServerSocket1: TServerSocket;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure FormShow(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
PacketList: TstringList;
FormAdmin: TFormAdmin;
WorkDate: TDate;
implementation
uses Unit1, Unit10, Unit11, Unit12;
{$R *.dfm}
procedure TFormAdmin.Button1Click(Sender: TObject);
begin
FormBD.Show;
end;
procedure TFormAdmin.Button3Click(Sender: TObject);
begin
FormRabota.show;
end;
procedure TFormAdmin.Button4Click(Sender: TObject);
begin
FormSdelano.show;
end;
procedure TFormAdmin.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('к вам поделючились'+ Socket.RemoteAddress);
end;
procedure TFormAdmin.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
j: integer;
Tip1, Tip, Podr, Opisanie, NomerKlienta: string;
begin
WorkDate: = Now;
begin
ansistring(tip1): =ServerSocket1.Socket.Connections[0].ReceiveText;
PacketList.Clear;
ExtractStrings([#13], [], PChar(tip1), PacketList);
Tip: =PacketList[0];
Podr: =PacketList[1];
Opisanie: =PacketList[2];
NomerKlienta: =PacketList[3];
memo1.Lines.Add('получено'+Tip+Podr+Opisanie+NomerKlienta);
end;
begin
FormBD.ADOTable1.First;
for j: =0 to (strtoint(NomerKlienta)-2) do
begin
FormBD.ADOTable1.Next;
end;
end;
begin
ADOTable1.Insert; DBGrid1.DataSource.DataSet.FieldByName('Приоритет').AsString: =FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[9].Value; DBGrid1.DataSource.DataSet.FieldByName('Фамилия').AsString: =FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[1].Value; DBGrid1.DataSource.DataSet.FieldByName('Имя').AsString: =FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[2].Value; DBGrid1.DataSource.DataSet.FieldByName('Отчество').AsString: =FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[3].Value; DBGrid1.DataSource.DataSet.FieldByName('Кабинет').AsString: =FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[7].Value;
DBGrid1.DataSource.DataSet.FieldByName('Номер телефона').AsString: =FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[8].Value;
DBGrid1.DataSource.DataSet.FieldByName('Время поступления').AsString: =DateToStr(WorkDate)+TimeToStr(WorkDate);
DBGrid1.DataSource.DataSet.FieldByName('Описание').AsString: =Opisanie;
DBGrid1.DataSource.DataSet.FieldByName('Тип проблемы').AsString: =Tip;
DBGrid1.DataSource.DataSet.FieldByName('Подробности').AsString: =Podr;
ADOTable1.Post;
PacketList.Free();
memo1.Lines.Add('Новая заявка'+(inttostr(DBGrid1.DataSource.DataSet.Fields.Fields[0].Value))); ServerSocket1.Socket.Connections[0].SendText(inttostr(DBGrid1.DataSource.DataSet.Fields.Fields[0].Value));
end;
end;
procedure TFormAdmin.FormShow(Sender: TObject);
begin
PacketList: = TStringList.Create();
end;
procedure TFormAdmin.Button2Click(Sender: TObject);
begin
FormSpec.show;
end;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, DB, ADODB, StdCtrls;
type
TBDzayavok = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
private
{ Private declarations }
public
{ Public declarations }
end;
var
BDzayavok: TBDzayavok;
implementation
{$R *.dfm}
end.
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls;
type
TFormRabota = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormRabota: TFormRabota;
implementation
uses Unit8, Unit11;
{$R *.dfm}
procedure TFormRabota.Edit1KeyPress(Sender: TObject; var Key: Char);
var
search1: string;
begin
search1: =edit1.Text;
dbgrid1.DataSource.DataSet.Locate('Специалист', search1, [loPartialKey])
end;
procedure TFormRabota.Button1Click(Sender: TObject);
var
f: string;
buttonSelected: Integer;
begin
WorkDate: =Now;
f: =FormRabota.DataSource1.DataSet.Fields.Fields[0].Value;
buttonSelected: =MessageDlg('Вы уверены, что хотите закрыть заявку номер '+f, mtConfirmation, [mbOk, mbCancel], 0);
if buttonSelected = mrOK then
begin
FormSdelano.ADOTable1.Insert;
FormSdelano.DataSource1.DataSet.FieldByName('Номер заявки').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[0].Value; FormSdelano.DataSource1.DataSet.FieldByName('Фамилия').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[1].Value; FormSdelano.DataSource1.DataSet.FieldByName('Имя').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[2].Value; FormSdelano.DataSource1.DataSet.FieldByName('Отчество').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[3].Value; FormSdelano.DataSource1.DataSet.FieldByName('Кабинет').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[4].Value;
FormSdelano.DataSource1.DataSet.FieldByName('Номер телефона').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[5].Value;
FormSdelano.DataSource1.DataSet.FieldByName('Тип проблемы').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[7].Value; FormSdelano.DataSource1.DataSet.FieldByName('Подробности').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[8].Value; FormSdelano.DataSource1.DataSet.FieldByName('Описание').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[9].Value;
FormSdelano.DataSource1.DataSet.FieldByName('Время поступления').AsDateTime: =FormRabota.DataSource1.DataSet.Fields.Fields[11].AsDateTime;
FormSdelano.DataSource1.DataSet.FieldByName('Время начала выполнения').AsDateTime: =FormRabota.DataSource1.DataSet.Fields.Fields[12].AsDateTime; FormSdelano.DataSource1.DataSet.FieldByName('Специалист').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[6].Value;
FormSdelano.DataSource1.DataSet.FieldByName('Время окончания работ').AsString: =DateToStr(WorkDate)+TimeToStr(WorkDate);
FormSdelano.ADOTable1.Post;
FormRabota.ADOTable1.Delete;
end;
end;
end.
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DB, ADODB;
type
TFormSdelano = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Panel2: TPanel;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormSdelano: TFormSdelano;
implementation
{$R *.dfm}
end.
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFormSpec = class(TForm)
ComboBoxSpec: TComboBox;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormSpec: TFormSpec;
implementation
uses Unit8, Unit10;
{$R *.dfm}
procedure TFormSpec.Button2Click(Sender: TObject);
begin
FormSpec.Close;
end;
procedure TFormSpec.Button1Click(Sender: TObject);
begin
if ComboBoxSpec.Text='Специалисты' then
begin
Label1.Font.Color: =clRed;
Label1.Caption: ='Вы не выбрали специалиста'
end
else
begin
WorkDate: =Now;
Label1.Font.Color: =clBlack;
Label1.Caption: ='Выберите специалиста';
begin
FormRabota.ADOTable1.Insert;
FormRabota.DataSource1.DataSet.FieldByName('Номер заявки').AsString: =FormAdmin.DataSource1.DataSet.Fields.Fields[0].Value;
FormRabota.DataSource1.DataSet.FieldByName('Фамилия').AsString: =FormAdmin.DataSource1.DataSet.Fields.Fields[2].Value; FormRabota.DataSource1.DataSet.FieldByName('Имя').AsString: =FormAdmin.DataSource1.DataSet.Fields.Fields[3].Value; FormRabota.DataSource1.DataSet.FieldByName('Отчество').AsString: =FormAdmin.DataSource1.DataSet.Fields.Fields[4].Value; FormRabota.DataSource1.DataSet.FieldByName('Кабинет').AsString: =FormAdmin.DataSource1.DataSet.Fields.Fields[5].Value;
FormRabota.DataSource1.DataSet.FieldByName('Номер телефона').AsString: =FormAdmin.DataSource1.DataSet.Fields.Fields[6].Value;
FormRabota.DataSource1.DataSet.FieldByName('Тип проблемы').AsString: =FormAdmin.DataSource1.DataSet.Fields.Fields[7].Value; FormRabota.DataSource1.DataSet.FieldByName('Подробности').AsString: =FormAdmin.DataSource1.DataSet.Fields.Fields[8].Value; FormRabota.DataSource1.DataSet.FieldByName('Описание').AsString: =FormAdmin.DataSource1.DataSet.Fields.Fields[9].Value; FormRabota.DataSource1.DataSet.FieldByName('Приоритет').AsString: =FormAdmin.DataSource1.DataSet.Fields.Fields[1].Value;
FormRabota.DataSource1.DataSet.FieldByName('Время поступления').AsDateTime: =FormAdmin.DataSource1.DataSet.Fields.Fields[10].AsDateTime;
FormRabota.DataSource1.DataSet.FieldByName('Время начала выполнения').AsString: =DateToStr(WorkDate)+TimeToStr(WorkDate); FormRabota.DataSource1.DataSet.FieldByName('Специалист').AsString: =ComboBoxSpec.Text;
FormRabota.ADOTable1.Post;
end;
FormAdmin.ADOTable1.Delete;
FormSpec.Close;
end;
end;
end.
|
|