Материалы сайта
Это интересно
Разработка системы автоматизации документооборота
Unit1.pas unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, jpeg, StdCtrls; type TForm1 = class(TForm) Panel1: TPanel; Label1: TLabel; Image1: TImage; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin With timer1 do begin Form1.visible:=false; Form2.visible:=true ; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.ShowModal; end; end. Unit2.pas unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ImgList, StdActns, ActnList, Menus, Db, DBTables, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls; type TForm2 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; Save1: TMenuItem; N1: TMenuItem; Exit1: TMenuItem; Serch1: TMenuItem; Documents1: TMenuItem; Ispolnenie1: TMenuItem; Poruchenie1: TMenuItem; ActionList1: TActionList; FileNew1: TAction; FileOpen1: TAction; FileSave1: TAction; FileSaveAs1: TAction; FileExit1: TAction; EditCut1: TEditCut; EditCopy1: TEditCopy; EditPaste1: TEditPaste; HelpAbout1: TAction; ImageList1: TImageList; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet4: TTabSheet; About1: TMenuItem; Table1: TTable; Table1IdDoc: TFloatField; Table1DataPost: TDateField; Table1NazDoc: TStringField; Table1VidDoc: TStringField; Table1Organ: TStringField; Table1Sostavil: TStringField; Table1Rukov: TStringField; Table1Naprav: TStringField; Table1Soder: TMemoField; DataSource1: TDataSource; StatusBar1: TStatusBar; Table2: TTable; Table2IdPor: TFloatField; Table2IdDoc: TFloatField; Table2Poruchenie: TMemoField; Table2Poruchitel: TStringField; Table2KomuPor: TStringField; Table2DataPor: TDateField; Table2DataIspol: TDateField; DataSource2: TDataSource; Table3: TTable; Table3IdDoc: TFloatField; Table3IdIspol: TFloatField; Table3Ispolnitel: TStringField; Table3DataFact: TDateField; Table3Otchet: TMemoField; DataSource3: TDataSource; Table4: TTable; Table4IdKon: TFloatField; Table4IdDoc: TFloatField; Table4DataKon: TDateField; Table4Vivod: TMemoField; DataSource4: TDataSource; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; DBGrid1: TDBGrid; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBComboBox1: TDBComboBox; DBMemo1: TDBMemo; DBNavigator1: TDBNavigator; DBGrid2: TDBGrid; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; DBEdit8: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DBEdit11: TDBEdit; DBEdit12: TDBEdit; DBEdit13: TDBEdit; DBMemo2: TDBMemo; DBNavigator2: TDBNavigator; DBGrid3: TDBGrid; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel; DBEdit14: TDBEdit; DBEdit15: TDBEdit; DBEdit16: TDBEdit; DBEdit17: TDBEdit; DBMemo3: TDBMemo; DBNavigator3: TDBNavigator; DBGrid4: TDBGrid; Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel; Label26: TLabel; DBEdit18: TDBEdit; DBEdit19: TDBEdit; DBEdit20: TDBEdit; DBMemo4: TDBMemo; DBNavigator4: TDBNavigator; Table4Kontrol: TStringField; DBEdit21: TDBEdit; procedure Documents1Click(Sender: TObject); procedure Ispolnenie1Click(Sender: TObject); procedure Poruchenie1Click(Sender: TObject); procedure Rezolution1Click(Sender: TObject); procedure Otchet1Click(Sender: TObject); procedure Rezultat1Click(Sender: TObject); procedure About1Click(Sender: TObject); procedure Save1Click(Sender: TObject); procedure Exit1Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, About; {$R *.DFM} procedure TForm2.Documents1Click(Sender: TObject); begin form3.showmodal; refresh; end; procedure TForm2.Ispolnenie1Click(Sender: TObject); begin form4.showmodal; refresh; end; procedure TForm2.Poruchenie1Click(Sender: TObject); begin form5.showmodal; refresh; end; procedure TForm2.Rezolution1Click(Sender: TObject); begin form6.showmodal; refresh; end; procedure TForm2.Otchet1Click(Sender: TObject); begin form7.showmodal; refresh; end; procedure TForm2.Rezultat1Click(Sender: TObject); begin form8.showModal; refresh; end; procedure TForm2.About1Click(Sender: TObject); begin aboutBox.ShowModal; end; procedure TForm2.Save1Click(Sender: TObject); begin if Table1.Modified then Table1.Post; if Table2.Modified then Table2.Post; if Table3.Modified then Table3.Post; if Table4.Modified then Table4.Post; end; procedure TForm2.Exit1Click(Sender: TObject); begin close; end; procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=MessageDlg('Вы действительно хотите закрыть базу?',mtConfirmation,[mbYes, mbNo],0)=mrYes; end; end. Unit3.pas unit Unit3; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, ExtCtrls, Db, DBTables; type TForm3 = class(TForm) Panel1: TPanel; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; Edit1: TEdit; Button1: TButton; Button2: TButton; Table1: TTable; Table1IdDoc: TFloatField; Table1DataPost: TDateField; Table1NazDoc: TStringField; Table1VidDoc: TStringField; Table1Organ: TStringField; Table1Sostavil: TStringField; Table1Rukov: TStringField; Table1Naprav: TStringField; Table1Soder: TMemoField; DataSource1: TDataSource; DBGrid1: TDBGrid; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form3: TForm3; implementation {$R *.DFM} procedure TForm3.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. ----------------------- Приложение 5. Листинг программы.