• Дисциплины
• Виды работ

Проектування автоматизованої інформаційної системи для менеджера фірми

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

unit UPrint2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

TForm5 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRLabel1: TQRLabel;

QRBand2: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRSubDetail1: TQRSubDetail;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

end.

unit USyperMarket;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

procedure N2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N15Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit1, UAgentu, UMagazin, UTovar, UZajavka, UPeregljad, UZaput1,

UZaput2, UZaput3, UPrint2, UZaput4;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

DataModule1.IBDatabase1.Connected:=true;

DataModule1.IBTable1.Open;

DataModule1.IBTable2.Open;

DataModule1.IBTable3.Open;

DataModule1.IBTable4.Open;

DataModule1.IBTable5.Open;

N6.Enabled:=True;

N10.Enabled:=true;

N13.Enabled:=true;

N14.Enabled:=true;

N12.Enabled:=true;

N3.Enabled:=true;

N2.Enabled:=false;

N5.Enabled:=false;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

N6.Enabled:=false;

N10.Enabled:=false;

N13.Enabled:=false;

N14.Enabled:=false;

N12.Enabled:=false;

N3.Enabled:=false;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

DataModule1.IBDatabase1.Connected:=false;

DataModule1.IBTable1.Close;

DataModule1.IBTable2.Close;

DataModule1.IBTable3.Close;

DataModule1.IBTable4.Close;

DataModule1.IBTable5.Close;

N6.Enabled:=false;

N10.Enabled:=false;

N13.Enabled:=false;

N14.Enabled:=false;

N12.Enabled:=false;

N3.Enabled:=false;

N2.Enabled:=true;

N5.Enabled:=true;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Agentu.ShowModal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Magazin.ShowModal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Tovar.ShowModal;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Zajavka.ShowModal;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Peregljad.ShowModal;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm1.N18Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.N19Click(Sender: TObject);

begin

DataModule1.IBTable3.Active:=true;

Form5:=TForm5.Create(Self);

Form5.QuickRep1.Preview;

Form5.Free;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

Form6.ShowModal;

end;

end.

unit UTovar;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TTovar = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Tovar: TTovar;

implementation

uses Unit1;

{$R *.dfm}

end.

unit UZajavka;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TZajavka = class(TForm)

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

GroupBox2: TGroupBox;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBLookupComboBox3: TDBLookupComboBox;

DBLookupComboBox4: TDBLookupComboBox;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Zajavka: TZajavka;

implementation

uses Unit1;

{$R *.dfm}

end.

unit UZaput1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids;

type

TForm2 = class(TForm)

DBGrid1: TDBGrid;

Panel2: TPanel;

Label2: TLabel;

Edit2: TEdit;

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var i:integer;

sum:real;

begin

DataModule1.IBQuery1.Close;

DataModule1.IBQuery1.SQL.Clear;

DataModule1.IBQuery1.SQL.Add(select ID_agenta, Surname, Name, Po_batkovi, Oklad);

DataModule1.IBQuery1.SQL.Add(from torgovuj);

DataModule1.IBQuery1.Open;

sum:=0;

for i:=1 to DataModule1.IBQuery1.RecordCount do

begin

sum:=sum+DataModule1.IBQuery1.fieldbyname(Oklad).AsFloat;

DataModule1.IBQuery1.Next;

end;

Edit2.Text:=FloatToStr(sum);

end;

end.

unit UZaput2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBCtrls, Grids, DBGrids, StdCtrls;

type

TForm3 = class(TForm)

DBLookupComboBox1: TDBLookupComboBox;

GroupBox1: TGroupBox;

Label1: TLabel;

Button1: TButton;

DBGrid1: TDBGrid;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

DataModule1.IBQuery2.Close;

DataModule1.IBQuery2.SQL.Clear;

DataModule1.IBQuery2.SQL.Add(select id_magazin, name_magazin, aresa);

DataModule1.IBQuery2.SQL.Add(from torgovuj, zajavka, magazin);

DataModule1.IBQuery2.SQL.Add(where torgovuj.id_agenta=zajavka.id_agenta and magazin.id_magazin=zajavka.id_magazin and surname="+DBLookupComboBox1.Text+");

DataModule1.IBQuery2.Open;

end;

end.

unit UZaput3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, DBCtrls, ExtCtrls;

type

TForm4 = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Button1: T

• Назад
• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• Далее