Материал: Автоматизация учёта выпуска готовой продукции ООО «КорпусМастер»

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
112
end;
procedure TForm8.N2Click(Sender: TObject);
begin
Form8.frxReport1.ShowReport();
Form8.frxReport1.Print;
end;
end.
Приложение 3: Форма справочника «номенклатура» (представлен как
пример работы справочников в системе):
unit Unit2;
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.Menus, Vcl.StdCtrls, Vcl.Imaging.jpeg, Vcl.ExtCtrls,
Vcl.Mask, Vcl.DBCtrls, Vcl.Imaging.pngimage;
type
TForm2 = class(TForm)
MainMenu1: TMainMenu;
N2: TMenuItem;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N12: TMenuItem;
113
Panel1: TPanel;
Image1: TImage;
Button2: TButton;
Button3: TButton;
Panel3: TPanel;
Button1: TButton;
N8: TMenuItem;
Panel2: TPanel;
Label1: TLabel;
Edit1: TEdit;
Button4: TButton;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
ADOTable1id: TIntegerField;
ADOTable1name: TStringField;
ADOTable1kolvo: TIntegerField;
ADOTable1summ1: TBCDField;
ADOTable1date_sklad: TWideStringField;
procedure N3Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure ДобавитьClick(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
114
procedure N13Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
uses Unit1, Unit4, Unit3, Unit8, Unit9, Unit12, Unit5, Unit6, Unit25, Unit7,
Unit26, Unit27;
procedure TForm2.Button1Click(Sender: TObject);
begin
Form12.Show;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.ADOTable1.Append;
Form4.Show;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
if ADOTable1.IsEmpty then
begin
ShowMessage('Таблица пустая')
end
115
else if
MessageBox(Handle, 'Вы действительно хотите удалить запись?', 'Запрос на
удаление',(MB_YESNO+MB_ICONQUESTION))=idYes then
begin
ADOTable1.Delete;
end;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
if not ADOTable1.Locate('Наименование', Edit1.Text, []) then
ShowMessage('Запись не найдена');
end;
procedure TForm2.N10Click(Sender: TObject);
begin
Form8.Show;
end;
procedure TForm2.N12Click(Sender: TObject);
begin
Form25.Show;
Form2.Close;
end;
procedure TForm2.N13Click(Sender: TObject);
begin
end;
procedure TForm2.N1Click(Sender: TObject);
begin
if Form1.CloseQuery then Form1.Close;
end;
procedure TForm2.N3Click(Sender: TObject);
begin
116
Form1.Show;
Form2.Close;
end;
procedure TForm2.N6Click(Sender: TObject);
begin
Form3.Show;
Form2.Close;
end;
procedure TForm2.N7Click(Sender: TObject);
begin
Form5.Show;
Form2.Close;
end;
procedure TForm2.N8Click(Sender: TObject);
begin
Form6.Show;
Form2.Close;
end;
procedure TForm2.N9Click(Sender: TObject);
begin
end;
procedure TForm2.ДобавитьClick(Sender: TObject);
begin
Form4.Show;
Form2.Hide;
end;
end.
Приложение 4: исходный код «Списание готовой продукции»:
unit Unit7;
interface
Источник: https://baza.diplomsite.ru/previewfile/733

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы