Отдел сбыта
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ЖЕНИЕ Б
Код программы
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, Menus, StdCtrls,, ShellAPI, NXDBGrids;= class(TForm): TADOConnection;: TDataSource;: TDBGrid;: TDBNavigator;: TADOTable;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TButton;: TMenuItem;: TMenuItem;: TLabel;: TImage;: TMenuItem;: TNXDBGrid;N2Click(Sender: TObject);N3Click(Sender: TObject);N4Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender: TObject);Button1Click(Sender: TObject);N10Click(Sender: TObject);N11Click(Sender: TObject);N12Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;
uses Unit2, Unit3, Unit4;
{$R *.dfm}TForm1.N2Click(Sender: TObject);.NXDBGrid1.Visible:= true;.DBGrid1.Visible:= true;.Label1.Visible:= False;.Image1.Visible:= False;.DBNavigator1.Visible:= true;.ADOTable1.Active:=False;.ADOTable1.TableName:=вид_запаса;.ADOTable1.Active:=true;;TForm1.N3Click(Sender: TObject);.NXDBGrid1.Visible:= true;.DBGrid1.Visible:= true;.Label1.Visible:= False;.Image1.Visible:= False;.DBNavigator1.Visible:= true;.ADOTable1.Active:=False;.ADOTable1.TableName:=задачи;.ADOTable1.Active:=true;;TForm1.N4Click(Sender: TObject);.NXDBGrid1.Visible:= true;.DBGrid1.Visible:= true;.Label1.Visible:= False;.Image1.Visible:= False;.DBNavigator1.Visible:= true;.ADOTable1.Active:=False;.ADOTable1.TableName:=затраты;.ADOTable1.Active:=true;;TForm1.N5Click(Sender: TObject);.NXDBGrid1.Visible:= true;.DBGrid1.Visible:= true;.Label1.Visible:= False;.Image1.Visible:= False;.DBNavigator1.Visible:= true;.ADOTable1.Active:=False;.ADOTable1.TableName:=метод;.ADOTable1.Active:=true;;TForm1.N6Click(Sender: TObject);.NXDBGrid1.Visible:= true;.DBGrid1.Visible:= true;.Label1.Visible:= False;.Image1.Visible:= False;.DBNavigator1.Visible:= true;.ADOTable1.Active:=False;.ADOTable1.TableName:=подвид_запаса;.ADOTable1.Active:=true;;TForm1.N7Click(Sender: TObject);.NXDBGrid1.Visible:= true;.DBGrid1.Visible:= true;.Label1.Visible:= False;.Image1.Visible:= False;.DBNavigator1.Visible:= true;.ADOTable1.Active:=False;.ADOTable1.TableName:=причина;.ADOTable1.Active:=true;;TForm1.N8Click(Sender: TObject);.NXDBGrid1.Visible:= true;.DBGrid1.Visible:= true;.Label1.Visible:= False;.Image1.Visible:= False;.DBNavigator1.Visible:= true;.ADOTable1.Active:=False;.ADOTable1.TableName:=размер_заказа;.ADOTable1.Active:=true;;TForm1.N9Click(Sender: TObject);.NXDBGrid1.Visible:= true;.DBGrid1.Visible:= true;.Label1.Visible:= False;.Image1.Visible:= False;.DBNavigator1.Visible:= true;.ADOTable1.Active:=False;.ADOTable1.TableName:=заказ;.ADOTable1.Active:=true;;TForm1.N15Click(Sender: TObject);,j,index: Integer;,sheet: Variant;:= CreateOleObject(Excel.Application);.Visible := False;
//ArrayData:=varArrayCreate([1,RowCount,1,ColCount],varVariant);.WorkBooks.Add(C:\отчет.xlsx);.WorkBooks[1].WorkSheets[1].name := отчет1;:=ExcelApp.WorkBooks[1].WorkSheets[отчет1];:=3; // номер строки начала.DBGrid1.DataSource.DataSet.First;i:=1 to form2.DBGrid1.DataSource.DataSet.RecordCount doj:=1 to form2.DBGrid1.FieldCount do.cells[index,j]:=form2.DBGrid1.fields[j-1].asstring;(index);.DBGrid1.DataSource.DataSet.Next;;.Visible := true;;TForm1.Button1Click(Sender: TObject);.Visible:=False;.Visible:=true;;TForm1.N10Click(Sender: TObject);(0,open,справка.chm,,,SW_SHOW);;TForm1.N11Click(Sender: TObject);.Close;TForm1.N12Click(Sender: TObject);.visible:= True;
{procedure TForm1.DBNavigator1Click(Sender: TObject; Button: );f:textfile;(f,resultat.txt);(f);
//TDBNavigator.BeforeAction ;(f);; }.
Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, StdCtrls, ComCtrls, DB, ADODB, DBGrids, DBTables,, DBCtrls, jpeg;= class(TForm): TADOConnection;: TDBGrid;: TDataSource;: TADOQuery;: TADOQuery;: TDataSource;: TDBGrid;: TDBGrid;: TDataSource;: TADOQuery;: TGroupBox;: TRadioButton;: TRadioButton;: TRadioButton;: TButton;: TRadioButton;: TADOQuery;: TDataSource;: TDBGrid;: TImage;: TImage;RadioButton1Click(Sender: TObject);RadioButton2Click(Sender: TObject);RadioButton3Click(Sender: TObject);Button1Click(Sender: TObject);RadioButton4Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm2;Unit1;
{$R *.dfm}
procedure TForm2.RadioButton1Click(Sender: TObject);.DBGrid1.Visible:=true ;.DBGrid3.Visible:=False ;.DBGrid2.Visible:=False ;.DBGrid4.Visible:=False ;;TForm2.RadioButton2Click(Sender: TObject);.DBGrid2.Visible:=true ;.DBGrid1.Visible:=False ;.DBGrid3.Visible:=False ;.DBGrid4.Visible:=False ;;TForm2.RadioButton3Click(Sender: TObject);.DBGrid3.Visible:=true ;.DBGrid1.Visible:=False ;.DBGrid2.Visible:=False ;.DBGrid4.Visible:=False ;;TForm2.Button1Click(Sender: TObject);.Visible:=False;.Visible:=true;.DBGrid1.Visible:= False;.Label1.Visible:= true;.Image1.Visible:= true;.DBNavigator1.Visible:= False;.NXDBGrid1.Visible:= False;;TForm2.RadioButton4Click(Sender: TObject);.DBGrid4.Visible:=true ;.DBGrid1.Visible:=False ;.DBGrid2.Visible:=False ;.DBGrid3.Visible:=False ;;.Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, StdCtrls, Menus;= class(TForm): TMemo;: TLabel;: TImage;: TMainMenu;: TMenuItem;: TMenuItem;N1Click(Sender: TObject);N2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm4;Unit1;
{$R *.dfm}TForm4.N1Click(Sender: TObject);.visible := true ;.visible := false ;.DBGrid1.Visible:= False;.Label1.Visible:= true;.Image1.Visible:= true;.DBNavigator1.Visible:= False;.NXDBGrid1.Visible:= False;;TForm4.N2Click(Sender: TObject);;