sfcx.pas

来自「房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能」· PAS 代码 · 共 72 行

unit SfCx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ComCtrls, ExtCtrls;

type
  TSfCxForm = class(TForm)
    DS_SfCx: TDataSource;
    ADQ_SfCx: TADOQuery;
    Panel2: TPanel;
    Lbl_query_term: TLabel;
    Com_first: TComboBox;
    Com_term: TComboBox;
    DateTP: TDateTimePicker;
    Com_result: TComboBox;
    BitBtn_find: TBitBtn;
    bitbtn_quit: TBitBtn;
    BBtn_Ok: TBitBtn;
    BBtn_Print: TBitBtn;
    fieldname: TComboBox;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    procedure bitbtn_quitClick(Sender: TObject);
    procedure Com_firstChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SfCxForm: TSfCxForm;

implementation

{$R *.dfm}

procedure TSfCxForm.bitbtn_quitClick(Sender: TObject);
begin
  Close;
end;

procedure TSfCxForm.Com_firstChange(Sender: TObject);
begin
   Com_result.Visible := false;
   DateTP.Visible := false;
  case ADQ_SfCx.FieldByName(fieldname.Items.Strings[Com_first.Items.IndexOf(Com_first.Text)]).DataType of
    ftString,ftFloat:Com_result.Visible := true;
    ftDateTime:DateTP.Visible := true;
  end;
end;

procedure TSfCxForm.FormCreate(Sender: TObject);
var
  lop,f_count:integer;
begin
   DateTP.Date :=date();
 if not ADQ_SfCx.Active then ADQ_SfCx.Open;
    f_count := DBGrid1.columns.Count;
  for lop := 0 to f_count -1 do
  begin
    fieldname.Items.Add(DBGrid1.columns[lop].FieldName);
    Com_first.Items.Add(DBGrid1.columns[lop].Title.Caption);
  end;
end;

end.