Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, Menus, StdCtrls, ComCtrls, uMySqlVio, uMysqlCT, uMysqlClient, uMysqlHelpers ;
- type
- TReachedit = class(TForm)
- Label1: TLabel;
- Label2: TLabel;
- RichEdit1: TRichEdit;
- ListBox1: TListBox;
- ListBox2: TListBox;
- Edit1: TEdit;
- Edit2: TEdit;
- Button1: TButton;
- Button2: TButton;
- procedure FormCreate(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure ListBox1Click(Sender: TObject);
- procedure ListBox2Click(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Reachedit: TReachedit;
- MySQLClient: TMySQLClient;
- MySQLResult: TMysqlResult;
- implementation
- {$R *.dfm}
- procedure TReachedit.FormCreate(Sender: TObject);
- var
- ok :boolean;
- i: integer;
- query1: string;
- begin
- MySQLClient := TMySQLClient.Create;
- RichEdit1.Enabled := false;
- Edit1.Enabled := false;
- Edit2.Enabled := false;
- RichEdit1.Clear;
- MySQLClient.Host := '127.0.0.1';
- MySQLClient.port := 3306;
- MySQLClient.user := 'root';
- MySQLClient.password := '';
- MySQLClient.UnixSocket := '';
- MySQLClient.Db := 'referats';
- MySQLClient.UseNamedPipe := false;
- MySQLClient.UseSSL := false;
- MySQLClient.Compress := false;
- MySQLClient.TrySockets := false;
- if MySQLClient.Connect then ShowMessage('База данных успешно подключена');
- i:=1;
- repeat
- begin
- query1 := Format('SELECT * FROM predmet WHERE id = %d', [i]);
- MySQLResult := MySQLClient.Query(query1, True,ok);
- ListBox1.Items.Add(MySQLResult.FieldValueByName('name'));
- i:=i+1;
- end;
- until MySQLResult.FieldValueByName('id') = nil;
- ListBox1.Items.Delete(i-2);
- end;
- procedure TReachedit.FormDestroy(Sender: TObject);
- begin
- MySQLClient.Free;
- if MySQLResult <> nil then
- MySQLResult.Free;
- end;
- procedure TReachedit.ListBox1Click(Sender: TObject);
- var
- ok :boolean;
- i,j: integer;
- query1 : string;
- begin
- ListBox2.Clear;
- i:=1;
- repeat
- begin
- query1 := Format('SELECT * FROM documents WHERE id_p = %d and id_n = %d', [ListBox1.Itemindex+1,i]);
- MySQLResult := MySQLClient.Query(query1, True,ok);
- if MySQLResult.FieldValueByName('name') <> nil then
- ListBox2.Items.Add(MySQLResult.FieldValueByName('name'));
- i:=i+1;
- end;
- until (i>10) ;
- ListBox2.Items.Delete(i-1);
- end;
- procedure TReachedit.ListBox2Click(Sender: TObject);
- var
- ok :boolean;
- i,j: integer;
- query1, location : string;
- begin
- RichEdit1.Clear;
- query1 := Format('SELECT * FROM documents WHERE id_p = %d and id_n = %d', [ListBox1.Itemindex+1,ListBox2.Itemindex+1]);
- MySQLResult := MySQLClient.Query(query1, True,ok);
- location := 'C:/wamp/www/'+MySQLResult.FieldValueByName('link');
- RichEdit1.Lines.LoadFromFile(location);
- Edit2.Text := MySQLResult.FieldValueByName('name');
- query1 := Format('SELECT * FROM predmet WHERE id = %d', [ListBox1.Itemindex+1]);
- MySQLResult := MySQLClient.Query(query1, True,ok);
- Edit1.Text := MySQLResult.FieldValueByName('name');
- Button1.Enabled := true;
- end;
- procedure TReachedit.Button1Click(Sender: TObject);
- begin
- RichEdit1.Enabled := true;
- Edit1.Enabled := true;
- Edit2.Enabled := true;
- ListBox1.Enabled:=false;
- ListBox2.Enabled:=false;
- Button2.Enabled:=true;
- end;
- procedure TReachedit.Button2Click(Sender: TObject);
- begin
- RichEdit1.Enabled := false;
- Edit1.Enabled := false;
- Edit2.Enabled := false;
- ListBox1.Enabled:=true;
- ListBox2.Enabled:=true;
- Button2.Enabled:=false;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement