Модуль хранения невизуальных компонентов

unit Unit2;

interface

uses

SysUtils, Classes, IBDatabase, DB;

type

TDataModule2 = class(TDataModule)

IBDatabase1: TIBDatabase;

IBTransaction1: TIBTransaction;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

Модуль основной формы

unit Unit1;

interface

uses

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

Dialogs, DB, Grids, DBGrids, IBCustomDataSet, IBTable, ExtCtrls,

StdCtrls, Mask, DBCtrls, XPMan, Menus, IBQuery, ComCtrls, ExtDlgs;

type

TForm1 = class(TForm)

DataSource1: TDataSource;

Panel1: TPanel;

Panel2: TPanel;

DBGrid1: TDBGrid;

XPManifest1: TXPManifest;

OpenDialog1: TOpenDialog;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

IBQuery1: TIBQuery;

IBQuery2: TIBQuery;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

GroupBox4: TGroupBox;

Label19: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Edit18: TEdit;

Edit20: TEdit;

Edit21: TEdit;

Edit22: TEdit;

GroupBox5: TGroupBox;

Label24: TLabel;

Label25: TLabel;

Edit23: TEdit;

Edit24: TEdit;

GroupBox2: TGroupBox;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Edit15: TEdit;

Edit14: TEdit;

GroupBox3: TGroupBox;

Label17: TLabel;

Label18: TLabel;

Label20: TLabel;

Edit16: TEdit;

Edit17: TEdit;

Edit19: TEdit;

GroupBox6: TGroupBox;

Label28: TLabel;

Label29: TLabel;

Edit27: TEdit;

Edit28: TEdit;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label26: TLabel;

Label27: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit5: TEdit;

Edit4: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit25: TEdit;

Edit26: TEdit;

Button1: TButton;

Button3: TButton;

TabSheet3: TTabSheet;

IBQuery1NOM: TSmallintField;

IBQuery1FAM: TIBStringField;

IBQuery1NAME: TIBStringField;

IBQuery1OTCH: TIBStringField;

IBQuery1POL: TIBStringField;

IBQuery1ROST: TIBStringField;

IBQuery1VES: TIBStringField;

IBQuery1FOTO: TBlobField;

IBQuery1DR: TDateField;

IBQuery1ADR_STR: TIBStringField;

IBQuery1ADR_OBL: TIBStringField;

IBQuery1ADR_GOR: TIBStringField;

IBQuery1ADR_YL: TIBStringField;

IBQuery1ADR_DOM: TIBStringField;

IBQuery1ADR_KV: TIBStringField;

IBQuery1ADR_IND: TIBStringField;

IBQuery1ADR_TEL: TIBStringField;

IBQuery1MROZ_STR: TIBStringField;

IBQuery1MROZ_OBL: TIBStringField;

IBQuery1MROZ_GOR: TIBStringField;

IBQuery1GRAZDAN: TIBStringField;

IBQuery1OBRAZOV: TIBStringField;

IBQuery1NOM_STRAX_SVED: TIBStringField;

IBQuery1INN: TIBStringField;

IBQuery1TRYD_KN_SERIYA: TIBStringField;

IBQuery1TRYD_KN_NOMER: TIBStringField;

IBQuery1PASPOST_NOM: TIBStringField;

IBQuery1PASPOST_SER: TIBStringField;

IBQuery1PASPOST_VIDAN: TIBStringField;

IBQuery1PASPOST_DATA: TDateField;

GroupBox8: TGroupBox;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

GroupBox9: TGroupBox;

Label40: TLabel;

Label41: TLabel;

GroupBox10: TGroupBox;

Label42: TLabel;

Label43: TLabel;

Label44: TLabel;

GroupBox11: TGroupBox;

Label45: TLabel;

Label46: TLabel;

Label47: TLabel;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

Label51: TLabel;

Label52: TLabel;

GroupBox12: TGroupBox;

Label53: TLabel;

Label54: TLabel;

Label55: TLabel;

Label56: TLabel;

GroupBox13: TGroupBox;

Label57: TLabel;

Label58: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

GroupBox7: TGroupBox;

ComboBox1: TComboBox;

Edit500: TEdit;

Button2: TButton;

DBNavigator3: TDBNavigator;

IBQueryFoto: TIBQuery;

OpenPictureDialog1: TOpenPictureDialog;

DBImage2: TDBImage;

DBImage1: TDBImage;

GroupBox14: TGroupBox;

Label59: TLabel;

Label60: TLabel;

Label61: TLabel;

Label62: TLabel;

Label63: TLabel;

Label64: TLabel;

Label65: TLabel;

Label66: TLabel;

Label67: TLabel;

Label68: TLabel;

Edit29: TEdit;

Edit30: TEdit;

Edit31: TEdit;

Edit32: TEdit;

Edit33: TEdit;

Edit34: TEdit;

Edit35: TEdit;

Edit36: TEdit;

Edit37: TEdit;

GroupBox15: TGroupBox;

Label69: TLabel;

Label70: TLabel;

Edit38: TEdit;

Edit39: TEdit;

GroupBox16: TGroupBox;

Label71: TLabel;

Label72: TLabel;

Label73: TLabel;

Edit40: TEdit;

Edit41: TEdit;

Edit42: TEdit;

GroupBox17: TGroupBox;

Label74: TLabel;

Label75: TLabel;

Label76: TLabel;

Label77: TLabel;

Label78: TLabel;

Label79: TLabel;

Label80: TLabel;

Label81: TLabel;

Edit43: TEdit;

Edit44: TEdit;

Edit45: TEdit;

Edit46: TEdit;

Edit47: TEdit;

Edit48: TEdit;

Edit49: TEdit;

Edit50: TEdit;

GroupBox18: TGroupBox;

Label82: TLabel;

Label83: TLabel;

Edit51: TEdit;

Edit52: TEdit;

GroupBox19: TGroupBox;

Label84: TLabel;

Label85: TLabel;

Label86: TLabel;

Label87: TLabel;

Edit53: TEdit;

Edit54: TEdit;

Edit55: TEdit;

Edit56: TEdit;

Button4: TButton;

IBQuery3: TIBQuery;

DBImage3: TDBImage;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

Button5: TButton;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

IBQuery4: TIBQuery;

N18: TMenuItem;

procedure FormDestroy(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure IBQuery1AfterScroll(DataSet: TDataSet);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N18Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);

begin

IBQuery1.Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute Then

begin

DBImage2.Picture.LoadFromFile(OpenPictureDialog1.FileName);

IBQueryFoto.ParamByName('FOTO').LoadFromFile(OpenPictureDialog1.FileName,ftBlob);

IBQueryFoto.ParamByName('Nom').Value := IBQuery1.FieldByName('Nom').Value;

Страницы: 1, 2, 3, 4