bsearch.pas

来自「三层ERP系统 (SQL)」· PAS 代码 · 共 68 行

unit Bsearch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_DLL, StdCtrls, Grids, DBGridEh, wwdbedit, Mask, DB, DBClient,
  ComCtrls;

type
  TfrmSearch = class(TfrmBase_DLL)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    btnexit: TButton;
    btnsearch: TButton;
    btncleartiao: TButton;
    btnsettiao: TButton;
    grid: TDBGridEh;
    filename: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    tiaovalue: TwwDBEdit;
    tiaoset: TComboBox;
    CDSgrid: TClientDataSet;
    DSgrid: TDataSource;
    CDSgridfid: TAutoIncField;
    CDSgridftableName: TWideStringField;
    CDSgridfname: TWideStringField;
    CDSgridftype: TWideStringField;
    CDSgridflength: TIntegerField;
    CDSgridfisnullable: TBooleanField;
    CDSgridfdesc: TWideStringField;
    CDSgridfisvisible: TBooleanField;
    listtiao: TListView;
    rband: TRadioButton;
    rbor: TRadioButton;
    procedure btnexitClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure gridGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure FormCreate(Sender: TObject);
    procedure tiaosetChange(Sender: TObject);
    procedure DSgridDataChange(Sender: TObject; Field: TField);
    procedure btnsettiaoClick(Sender: TObject);
    procedure btncleartiaoClick(Sender: TObject);
    procedure btnsearchClick(Sender: TObject);
    procedure gridTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    procedure AddComboData;
    procedure GetgridData;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSearch: TfrmSearch;

implementation

uses DataProcess, Global;

{$R *.dfm}

procedure TfrmSearch.AddComboData;
begin
  tiaoset.Items.Add('