pselect.pas

通用的条码打印程序

unit pSelect;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Db, ADODB, Buttons;

type
  TFormSelect = class(TForm)
    DataSourceSelect: TDataSource;
    DBGridSelect: TDBGrid;
    ButtonCancle: TButton;
    ButtonOK: TButton;
    ADOQuerySelect: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure ButtonOKClick(Sender: TObject);
    procedure ButtonCancleClick(Sender: TObject);
    procedure DBGridSelectCellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
    procedure DBGridSelectDblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    sTableName:String;
    sFieldName:String;
    sCaption,sADOConnectionM:String;
    sResult:String;
    { Public declarations }
  end;

var
  FormSelect: TFormSelect;

implementation

uses PDataModuleMain;

{$R *.DFM}

procedure TFormSelect.FormShow(Sender: TObject);
begin
    sResult:='';
    ADOQuerySelect.Close;
    ADOQuerySelect.SQL.Clear;
    ADOQuerySelect.SQL.Add('Select '+sFieldName+' from '+sTableName+' order by '+sFieldName);
    ADOQuerySelect.Open;
    DBGridSelect.Columns[0].Title.Caption:=sCaption;
    DBGridSelect.Columns[0].Width:=trunc(DBGridSelect.Width*0.9);
end;

procedure TFormSelect.ButtonOKClick(Sender: TObject);
begin
    ADOQuerySelect.Close;
    Close;
end;

procedure TFormSelect.ButtonCancleClick(Sender: TObject);
begin
    ADOQuerySelect.Close;
    sResult:='';
    Close;
end;

procedure TFormSelect.DBGridSelectCellClick(Column: TColumn);
begin
        sResult:=DBGridSelect.SelectedField.Text;
end;

procedure TFormSelect.FormCreate(Sender: TObject);
begin
    ADOQuerySelect.Connection:=DataModuleMain.ADOConnectionBarCode;
end;

procedure TFormSelect.DBGridSelectDblClick(Sender: TObject);
begin
    sResult:=DBGridSelect.SelectedField.Text;
    Close;
end;

procedure TFormSelect.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    //Action:= caFree	;
end;

end.