1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
program mssqlconnsample;
{
Demonstrates connecting to a Sybase ASE or MS SQL Server database.
Allows user to specify username/password, server, port and db in separate form.
See readme.txt for details on required drivers.
}
{$mode objfpc}{$H+}
{$IF FPC_FULLVERSION<20601}
{$ERROR this example requires at least fpc 2.6.1}
{$ENDIF}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, dbform, dbloginform
{ you can add units after this };
begin
Application.Title:='MSSQLConn';
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
|
