| Код |
unit general;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.DBCtrls;
type
TForm_general = class(TForm)
ADOConnection1: TADOConnection;
Label1: TLabel;
TableUsers: TADOTable;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
TableQSklad: TADOTable;
QSklad: TDataSource;
DBGrid1: TDBGrid;
TableQSkladmed_name: TWideStringField;
TableQSkladdei_veshestvo: TWideStringField;
TableQSkladfirma: TWideStringField;
TableQSkladName_kat: TWideStringField;
TableQSkladkolvo: TIntegerField;
TableKategoria: TADOTable;
TableKategoriaid: TAutoIncField;
TableKategoriaName_kat: TWideStringField;
TableSklad: TADOTable;
TableSkladid: TAutoIncField;
TableSkladid_med: TIntegerField;
TableSkladkolvo: TIntegerField;
N7: TMenuItem;
N8: TMenuItem;
QueryId: TADOQuery;
N9: TMenuItem;
DBGrid2: TDBGrid;
TableSkladOtdel: TADOTable;
TableQSkladOtdel: TADOTable;
QSkladOtdel: TDataSource;
TableQSkladOtdelmed_name: TWideStringField;
TableQSkladOtdeldei_veshestvo: TWideStringField;
TableQSkladOtdelfirma: TWideStringField;
TableQSkladOtdelkolvo: TWideStringField;
TableQSkladOtdelid_otdel: TIntegerField;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
TableSkladOtdelid: TAutoIncField;
TableSkladOtdelid_otdel: TIntegerField;
TableSkladOtdelid_med: TIntegerField;
TableSkladOtdelkolvo: TWideStringField;
N13: TMenuItem;
TableQSkladid: TAutoIncField;
TableQSkladid_Kat: TAutoIncField;
TableUsersid: TAutoIncField;
TableUserslogin: TWideStringField;
TableUserspass: TWideStringField;
TableUsersfio: TWideStringField;
TableUsersid_otdel: TIntegerField;
TableUsersid_prava: TIntegerField;
TableOtdelenia: TADOTable;
TableOtdeleniaid: TAutoIncField;
TableOtdelenianame_otdel: TWideStringField;
TableMedikam: TADOTable;
TableMedikamid: TAutoIncField;
TableMedikammed_name: TWideStringField;
TableMedikamdei_veshestvo: TWideStringField;
TableMedikamfirma: TWideStringField;
TableMedikamid_kat: TIntegerField;
N14: TMenuItem;
Label2: TLabel;
Label6: TLabel;
Edit3: TEdit;
Button1: TButton;
DBLookupComboBox1: TDBLookupComboBox;
Label7: TLabel;
procedure Label1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_general: TForm_general;
i,ii,n,f,prava,otdel,user:integer;
db,pfail:string;
fail:TextFile;
implementation
{$R *.dfm}
Uses login,otdelenia,medikam,prihod,prihod_med,spisanie,spisanie_med,
treb_naklad,treb_naklad_med,treb_nakladA,treb_naklad_medA,prihod_naklad,prihod_naklad_med;
procedure TForm_general.FormCreate(Sender: TObject);
begin
pfail:=ExtractFilePath(Application.ExeName)+'data.txt';
AssignFile(fail, pfail);
Reset(fail); // открыть для чтения
readln(fail, db);
CloseFile(fail); // закрыть файл
ADOConnection1.Connected:=False;
//db:='C:/Users/Артем/Desktop/medikamenti 0.1/db.mdb';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0; '+
'Persist Security Info=False; Data Source='+db+';';
ADOConnection1.Connected:=True;
TableQSklad.Active:=True;
TableSklad.Active:=True;
TableQSkladOtdel.Active:=True;
TableSkladOtdel.Active:=True;
TableUsers.Active:=True;
TableOtdelenia.Active:=True;
end;
procedure TForm_general.Label1Click(Sender: TObject);
begin
TableUsers.First;
for ii := 1 to TableUsers.RecordSet.RecordCount do
begin
//Label1.Caption:=ADOTable1.FieldByName('fio').AsString;
if (Form_login.Edit1.Text=TableUsers.FieldByName('login').AsString)
then
begin
Label1.Caption:=TableUsers.FieldByName('fio').AsString;
end
else
TableUsers.Next;
// ShowMessage('Ошибка!');
end;
end;
procedure TForm_general.N11Click(Sender: TObject);
begin
FormTrebNaklad.ShowModal;
end;
procedure TForm_general.N12Click(Sender: TObject);
begin
FormTrebNakladA.ShowModal;
end;
procedure TForm_general.N13Click(Sender: TObject);
begin
FormPrihodNaklad.ShowModal;
end;
procedure TForm_general.N2Click(Sender: TObject);
begin
FormOtdelenia.ShowModal;
end;
procedure TForm_general.N5Click(Sender: TObject);
begin
FormMedikam.ShowModal;
end;
procedure TForm_general.N8Click(Sender: TObject);
begin
FormPrihod.ShowModal;
end;
procedure TForm_general.N9Click(Sender: TObject);
begin
FormSpisania.ShowModal;
end;
end.
|
|