Рейтинг@Mail.ru
Rambler's Top100




Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ

реферат на тему: Разработка системы автоматизации документооборота

скачать реферат

m3.Button1Click(Sender: TObject); begin if RadioButton1.Checked=true then Table1.Locate('Rukov', Edit1.Text, [loPartialKey]) else if RadioButton2.Checked=true then Table1.Locate('VidDoc', Edit1.Text, [loPartialKey]) else if RadioButton3.Checked=true then Table1.Locate('DataPost', Edit1.Text, [loPartialKey]) else ShowMessage('Такие данные отсутствуют в таблице') end;

procedure TForm3.Button2Click(Sender: TObject); begin with Table1 do Next end;

end.

Unit4.pas

unit Unit4;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, Db, DBTables;

type TForm4 = class(TForm) Table2: TTable; Table2IdPor: TFloatField; Table2IdDoc: TFloatField; Table2Poruchenie: TMemoField; Table2Poruchitel: TStringField; Table2KomuPor: TStringField; Table2DataPor: TDateField; Table2DataIspol: TDateField; DataSource2: TDataSource; Panel1: TPanel; RadioButton1: TRadioButton; Button1: TButton; Edit1: TEdit; DBGrid1: TDBGrid; RadioButton2: TRadioButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.Button1Click(Sender: TObject); begin if RadioButton1.Checked=true then Table2.Locate('Poruchitel', Edit1.Text, [loPartialKey]) else if RadioButton2.Checked=true then Table2.Locate('Datapor', Edit1.Text, [loPartialKey]) else ShowMessage('Такие данные отсутствуют в таблице') end;

end.

Unit5.pas

unit Unit5;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, Db, DBTables;

type TForm5 = class(TForm) Table3: TTable; Table3IdDoc: TFloatField; Table3IdIspol: TFloatField; Table3Ispolnitel: TStringField; Table3DataFact: TDateField; Table3Otchet: TMemoField; DataSource3: TDataSource; Panel1: TPanel; RadioButton1: TRadioButton; Edit1: TEdit; DBGrid1: TDBGrid; Button1: TButton; RadioButton2: TRadioButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form5: TForm5;

implementation

{$R *.DFM}

procedure TForm5.Button1Click(Sender: TObject); begin if RadioButton1.Checked=true then Table3.Locate('Ispolnitel', Edit1.Text, [loPartialKey]) else if RadioButton2.Checked=true then Table3.Locate('DataFact', Edit1.Text, [loPartialKey]) else ShowMessage('Такие данные отсутствуют в таблице') end;

end.


Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ





скачать реферат
первая   ... 9 10 11 12

Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ

Внимание! Студенческий отдых и мегатусовка после сессии!


Обратная связь.

IsraLux отзывы Израиль отзывы