Определения, обозначения и сокращения
N |
Сокращение |
Расшифровка |
1 |
КГБ ОУ СПО |
Краевое государственное бюджетное образовательное учреждение среднего профессионального образования |
2 |
ККРЭУ |
Красноярский Колледж Радиоэлектроники Экономики и Управления |
3 |
ТЗ |
Техническое задание |
4 |
АИС |
Автоматизированная информационная система |
5 |
УЧ |
Учебная часть |
6 |
БД |
База данных |
Описание программы
.
Программа «Список сотрудников» предназначена для автоматизации работы со списком сотрудников, добавлением и удалением записей.
Исходный код программы
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,
Vcl.DBGrids, Vcl.StdCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
ADODataSet1: TADODataSet;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ADOTable1.Append;
dbgrid1.SetFocus
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if dbgrid1.DataSource.DataSet.RecordCount<>0 then
begin
if (MessageBox(Handle, 'Удаление записей может привести к нарушению работы всей Базы данных.Self Удалить запись?', 'Внимание!!!', MB_YESNO) = IDYES) then
form1.ADOTable1.Delete
else ShowMessage ('Нет записей для удаления');
end;
end;
procedure Load(s: string);
var
g: array [1..14] of string;
i: Integer;
s1: string;
begin
//s:=s.Substring(s.IndexOf('"')+1);
//g[1]:=s.Substring(0,s.IndexOf('"'));
for i := 1 to 14 do
begin
s:=s.Substring(s.IndexOf('"')+1);
g[i]:=s.Substring(0,s.IndexOf('"'));
s:=s.Substring(s.IndexOf('"')+1);
end;
//s1:='INSERT into sotr (Nom_Sotr, FIO) Values (''' + g[1]+''', ''' + g[2]+' ' + g[3] + ' ' + g[4]+''')';
//ShowMessage(s1);
Form1.ADOQuery1.SQL.Add('INSERT into sotr (Nom_Sotr, FIO, Pol, Data_r, Pasport, Data_v, Kem_vyd, Adres) Values (''' + g[1]+''', ''' + g[2]+' ' + g[3] + ' ' + g[4]+''',''' + g[5]+''',''' + g[6]+''',''' + g[7]+''','''+ g[8]+' ' + g[9] + ''', '''+ g[10]+''','''+ g[11]+' ' + g[12] + ' ' + g[13]+ ' ' +g[14] +''')');
//Form1.ADOQuery1.SQL.Add('INSERT into sotr (FIO) Values (''' + g[2]+' ' + g[3] + ' ' + g[4]+''')');
Form1.ADOQuery1.ExecSQL;
//ShowMessage(Form1.ADOQuery1.SQL[0]);
Form1.ADOQuery1.SQL.Clear;
end;
end.
Скриншоты программы
(
Рис
1 – программа)
(
Рис
2 – добавлена новая запись)
(Рис 3 – удаление записи)