end;
procedure TForm3.bsSkinButton1Click(Sender: TObject);
var s,b:string;
a:integer;
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (combobox2.Text='') or (combobox3.Text='') then
ShowMessage('Введите все обязательные' +#13 + 'поля');
exit;
end
else begin
s:=datetostr(datetimepicker1.Date);
a:=strtoint(copy(s,7,4));
a:=a+1;
b:=copy(s,1,6);
s:=b+inttostr(a);
datamodule4.ADOQuery1.Insert;
datamodule4.ADOQuery1['Fam']:=edit1.Text;
datamodule4.ADOQuery1['Imia']:=edit2.Text;
datamodule4.ADOQuery1['Otc']:=edit3.Text;
datamodule4.ADOQuery1['Zvanie']:=edit4.Text;
datamodule4.ADOQuery1['Rugo']:=combobox2.Text;
datamodule4.ADOQuery1['Sl']:=edit6.Text;
datamodule4.ADOQuery1['Podr']:=edit7.Text;
datamodule4.ADOQuery1['Dolj']:=edit8.Text;
datamodule4.ADOQuery1['Vzisk']:=combobox1.Text;
datamodule4.ADOQuery1['Chpr']:=combobox3.Text;
datamodule4.ADOQuery1['Nompr']:=edit11.Text;
datamodule4.ADOQuery1['Datapr']:=datetimepicker1.Date;
datamodule4.ADOQuery1['Opis']:=edit13.Text;
datamodule4.ADOQuery1['Dataspr']:=strtodate(s);
datamodule4.ADOQuery1.Post;
form3.Hide;
procedure TForm3.bsSkinButton2Click(Sender: TObject);
end.
unit Unit4; //модуль компонент
interface
uses
SysUtils, Classes, DB, ADODB, RpBase, RpSystem, RpRave, RpDefine, RpCon,
RpConDS;
type
TDataModule4 = class(TDataModule)
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource3: TDataSource;
ADOQuery1Fam: TWideStringField;
ADOQuery1Imia: TWideStringField;
ADOQuery1Otc: TWideStringField;
ADOQuery1Zvanie: TWideStringField;
ADOQuery1Rugo: TWideStringField;
ADOQuery1Sl: TWideStringField;
ADOQuery1Podr: TWideStringField;
ADOQuery1Dolj: TWideStringField;
ADOQuery1Vzisk: TWideStringField;
ADOQuery1Chpr: TWideStringField;
ADOQuery1Nompr: TWideStringField;
ADOQuery1Datapr: TDateTimeField;
ADOQuery1Opis: TWideStringField;
ADOQuery1Nomspr: TWideStringField;
ADOQuery1Dataspr: TDateTimeField;
ADOQuery2Fam: TWideStringField;
ADOQuery2Imia: TWideStringField;
ADOQuery2Otc: TWideStringField;
ADOQuery2Zvanie: TWideStringField;
ADOQuery2Rugo: TWideStringField;
ADOQuery2Sl: TWideStringField;
ADOQuery2Podr: TWideStringField;
ADOQuery2Dolj: TWideStringField;
ADOQuery2Vzisk: TWideStringField;
ADOQuery2Chpr: TWideStringField;
ADOQuery2Nompr: TWideStringField;
ADOQuery2Datapr: TDateTimeField;
ADOQuery2Opis: TWideStringField;
ADOQuery2Nomspr: TWideStringField;
ADOQuery2Dataspr: TDateTimeField;
ADOTable1Fam: TWideStringField;
ADOTable1Imia: TWideStringField;
ADOTable1Otc: TWideStringField;
ADOTable1Zvanie: TWideStringField;
ADOTable1Rugo: TWideStringField;
ADOTable1Sl: TWideStringField;
ADOTable1Podr: TWideStringField;
ADOTable1Dolj: TWideStringField;
ADOTable1Vzisk: TWideStringField;
ADOTable1Chpr: TWideStringField;
ADOTable1Nompr: TWideStringField;
ADOTable1Datapr: TDateTimeField;
ADOTable1Opis: TWideStringField;
ADOTable1Nomspr: TWideStringField;
ADOTable1Dataspr: TDateTimeField;
ADOQuery3: TADOQuery;
DataSource4: TDataSource;
ADOTable2: TADOTable;
ADOTable2Fam: TWideStringField;
ADOTable2Imia: TWideStringField;
ADOTable2Otc: TWideStringField;
ADOTable2Zvanie: TWideStringField;
ADOTable2Rugo: TWideStringField;
ADOTable2Sl: TWideStringField;
ADOTable2Podr: TWideStringField;
ADOTable2Dolj: TWideStringField;
ADOTable2Vzisk: TWideStringField;
ADOTable2Chpr: TWideStringField;
ADOTable2Nompr: TWideStringField;
ADOTable2Datapr: TDateTimeField;
ADOTable2Opis: TWideStringField;
ADOTable2Nomspr: TWideStringField;
ADOTable2Dataspr: TDateTimeField;
RvDataSetConnection1: TRvDataSetConnection;
RvProject1: TRvProject;
RvSystem1: TRvSystem;
RvDataSetConnection2: TRvDataSetConnection;
RvProject2: TRvProject;
RvProject3: TRvProject;
RvDataSetConnection3: TRvDataSetConnection;
ADOQuery4: TADOQuery;
private
{ Private declarations }
public
{ Public declarations }
var
DataModule4: TDataModule4;
implementation
{$R *.dfm}
unit Unit5; //форма редактирования записи
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, ComCtrls, Mask, Buttons, Menus,
bsSkinData, BusinessSkinForm, bsSkinCtrls;
TForm5 = class(TForm)
Label2: TLabel;
Label3: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
DateTimePicker1: TDateTimePicker;
DBEdit4: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit5: TDBEdit;
Label5: TLabel;
DBEdit6: TDBEdit;
Label6: TLabel;
DBEdit7: TDBEdit;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
DBComboBox3: TDBComboBox;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
Form5: TForm5;
uses Unit4;
procedure TForm5.Button1Click(Sender: TObject);
DataSource1.DataSet.Edit;
DataSource1.DataSet.FieldValues['Datapr']:=DateTimePicker1.Date;
DataSource1.DataSet.Post;
form5.Hide;
procedure TForm5.BitBtn1Click(Sender: TObject);
procedure TForm5.bsSkinButton1Click(Sender: TObject);
DataSource1.DataSet.FieldValues['Dataspr']:=strtodate(s);
procedure TForm5.bsSkinButton2Click(Sender: TObject);
unit Unit6; //форма отображения найденной информации
Dialogs, StdCtrls, Buttons, Grids, DBGrids, bsSkinCtrls, bsSkinData,
BusinessSkinForm;
TForm6 = class(TForm)
DBGrid1: TDBGrid;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10