Разработка информационно-программного комплекса для использования на IBM-совместимых ПК в качестве автоматизированного рабочего места обработки информации
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
IBQuery2.FieldByName(SUM).AsString;.Close;.SQL.Clear;.Lines[0] :=select * from KORZINA;.SQL := Memo2.Lines;.Open;;TForm1.Button16Click(Sender: TObject);.SQL.Text :=delete from KORZINA +
nilthen.memo.text:=Edit13.Text;.Close;.SQL.Clear;.Lines.Clear;.Lines[0]:=select*fromDOGOVORwhereid=+Edit13.Text;.SQL:=Memo1.Lines;.Open;:=TfrxMemoView(Form8.frxReport1.FindObject(Memo11));t nil then.memo.Text := IBQuery1.FieldByName(SUMMA).AsString;.SQL.Clear;.Lines.Clear;.Lines[0]:=select * from TOVARY_DOGOVOR where id_dogovor= + Edit13.Text;.SQL := Memo1.Lines;.Open;.Show;.frxReport1.ShowReport;;
end.
unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, unit1, IBDatabase, DB, IBCustomDataSet, IBQuery;= class(TForm): TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TIBQuery;: TIBTransaction;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TLabel;: TCheckBox;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm2;
{$R *.dfm}TForm2.Button1Click(Sender: TObject);check:string;.Close;.SQL.Clear;Form2.CheckBox1.Checked then check := + else check := -;Flag thenIBQuery2 do.Text := execute procedure PROC_NAL(-1, +.Text +,+ Edit2.Text +,+ Edit3.Text +, ++,+ Edit5.Text +,+ Edit6.Text +, +.Text +);;IBQuery2 do.Text := execute procedure PROC_NAL(+ Form1.IBQuery1.FieldByName(ID).AsString +, +.Text +,+ Edit2.Text +,+ Edit3.Text +, ++,+ Edit5.Text +,+ Edit6.Text +, +.Text +);;;.Open;.Close;.IBQuery1.Close;.IBQuery1.Open;Flag1 then Form2.Close;;TForm2.Button2Click(Sender: TObject);.Close;;
end.
unit Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, unit1, StdCtrls;= class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TCheckBox;: TLabel;: TButton;: TEdit;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm3;Unit2;
{$R *.dfm}TForm3.Button1Click(Sender: TObject);check:string;.IBQuery2.Close;.IBQuery2.SQL.Clear;Form3.CheckBox1.Checked then check := + else check := -;Flag thenForm2.IBQuery2 do.Text := execute procedure PROC_PROD(-1, +.Text +,+ Edit2.Text +,+ Edit3.Text +, ++,+ Edit5.Text +,+ Edit6.Text +, +.Text +);;Form2.IBQuery2 do.Text := execute procedure PROC_PROD(+ Form1.IBQuery1.FieldByName(ID).AsString +, +.Text +,+ Edit2.Text +,+ Edit3.Text +, ++,+ Edit5.Text +,+ Edit6.Text +, +.Text +);;;.IBQuery2.Open;.IBQuery2.Close;.IBQuery1.Close;.IBQuery1.Open;Flag1 then Form3.Close;;TForm3.Button2Click(Sender: TObject);.Close;;
end.
unit Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, unit1;= class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm4;Unit2;
{$R *.dfm}TForm4.Button1Click(Sender: TObject);.IBQuery2.Close;.IBQuery2.SQL.Clear;Flag thenForm2.IBQuery2 do.Text := execute procedure PROC_DISC(-1, +.Text +,+ Edit2.Text +,+ Edit3.Text +,+.Text +, +
1 +);;Form2.IBQuery2 do.Text := execute procedure PROC_DISC(+ Form1.IBQuery1.FieldByName(ID).AsString +, +.Text +,+ Edit2.Text +,+ Edit3.Text +,+.Text +, +
1 +);;;.IBQuery2.Open;.IBQuery2.Close;.IBQuery1.Close;.IBQuery1.Open;Flag1 then Form4.Close;;TForm4.Button2Click(Sender: TObject);.Close;;
end.
unit Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TButton;: TButton;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm5;Unit2, Unit1;
{$R *.dfm}TForm5.Button1Click(Sender: TObject);.IBQuery2.Close;.IBQuery2.SQL.Clear;Form2.IBQuery2 do.Text :=execute procedure PROC_SHOP(+ Form1.IBQuery1.FieldByName(ID_SHOP).AsString +,+.Text +,+Edit1.Text +,+ Edit2.Text +,+ Edit3.Text +,+.Text +,+ Edit5.Text +,+ Edit6.Text +);;.IBQuery2.Open;.IBQuery2.Close;.IBQuery1.Close;.IBQuery1.Open;Flag1 then Form5.Close;;TForm5.Button2Click(Sender: TObject);.Close;;
end.
unit Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, unit1;= class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm6;Unit2;
{$R *.dfm}TForm6.Button1Click(Sender: TObject);.IBQuery2.Close;.IBQuery2.SQL.Clear;Flag thenForm2.IBQuery2 do.Text := execute procedure PROC_OTDELY(-1, +.Text +,+ Edit2.Text +,+ Edit3.Text +,+.Text +,+ Edit6.Text +,1);;Form2.IBQuery2 do.Text := execute procedure PROC_OTDELY(+ Form1.IBQuery1.FieldByName(ID_OTDEL).AsString +, +.Text +,+ Edit2.Text +,+ Edit3.Text +,+.Text +,+ Edit6.Text +,1);;;.IBQuery2.Open;.IBQuery2.Close;.IBQuery1.Close;.