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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
| uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, WinSkinData, WinSkinStore,
jpeg, ColorGrd, DB, ADODB;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
SkinData1: TSkinData;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Image1: TImage;
GroupBox3: TGroupBox;
Image2: TImage;
Label2: TLabel;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable1F1: TFloatField;
ADOTable1F2: TWideStringField;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Image3: TImage;
procedure Image1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Image1Click(Sender: TObject);
begin
Tabsheet2.Show;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
TabSheet3.Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
var dig : string;
e,b: integer;
begin
dig:= edit1.Text;
val(dig,b,e);
if length(dig)<> 6 then Label2.caption:=('ERROR: Bin number should be 6 digits')
else if e <> 0 then Label2.caption:=('ERROR: Enter only numeric')
else begin
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('Select * From bin Where ChampTXT='+QuotedStr('dig'));
AdoQuery1.Open;
end;
end;
end. |
Partager