gen_q.pas

本人编写的有关军队营房工作的管理系统

unit gen_q;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, db, dbtables, Buttons, StdCtrls, ExtCtrls, comctrls, dbclient;

type
  Tf_query = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    cmb_zdm: TComboBox;
    cmb_czf: TComboBox;
    cmb_zdz: TComboBox;
    btn_listall: TSpeedButton;
    Memo1: TMemo;
    btn_cs: TSpeedButton;
    btn_bq: TSpeedButton;
    btn_hz: TSpeedButton;
    btn_qktj: TSpeedButton;
    btn_jgxs: TSpeedButton;
    btn_fq: TSpeedButton;
    procedure btn_valid;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure btn_csClick(Sender: TObject);
    procedure btn_bqClick(Sender: TObject);
    procedure btn_hzClick(Sender: TObject);
    procedure btn_qktjClick(Sender: TObject);
    procedure btn_jgxsClick(Sender: TObject);
    procedure btn_fqClick(Sender: TObject);
    procedure btn_listallClick(Sender: TObject);
    procedure cmb_zdmChange(Sender: TObject);
  private
    { Private declarations }
  public
    tablename:string;
    fields:tstrings;
    fieldsalias:tstrings;
    conf:boolean;
    filtervalue:string;
    { Public declarations }
  end;

var
  f_query: Tf_query;

implementation

uses datafrm;
{$R *.dfm}

procedure tf_query.btn_valid;
begin
  btn_cs.Enabled:=not btn_cs.Enabled;
  btn_bq.Enabled:=not btn_bq.Enabled;
  btn_hz.Enabled:=not btn_hz.Enabled;
  btn_qktj.Enabled:=not btn_qktj.Enabled;
  btn_jgxs.Enabled:=not btn_jgxs.Enabled;
end;

procedure Tf_query.FormCreate(Sender: TObject);
begin
  fields:=tstringlist.Create;
  fieldsalias:=tstringlist.Create;
  conf:=false;
  cmb_czf.Items.Clear;
  cmb_czf.Items.Add('=');
  cmb_czf.Items.Add('>');
  cmb_czf.Items.Add('>=');
  cmb_czf.Items.Add('<');
  cmb_czf.Items.Add('<=');
  cmb_czf.Items.Add('<>');
end;

procedure Tf_query.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  fields.Free;
  fieldsalias.Free;
end;

procedure Tf_query.FormActivate(Sender: TObject);
begin
  cmb_zdm.Items.AddStrings(fieldsalias);
end;

procedure Tf_query.btn_csClick(Sender: TObject);
var
  xx101:string;
  xx101name:string;
  xx201:string;
  xx301:string;
begin
  if trim(cmb_zdm.Text)='' then
  begin
    messagebox(f_query.handle,'字段名不能为空。','营房工作管理系统',16);
    exit;
  end;
  if trim(cmb_czf.Text)='' then
  begin
    messagebox(f_query.handle,'操作符不能为空。','营房工作管理系统',16);
    exit;
  end;
  if trim(cmb_zdz.Text)='' then
  begin
    messagebox(f_query.handle,'字段值不能为空。','营房工作管理系统',16);
    exit;
  end;
  xx101:=cmb_zdm.Items.Strings[cmb_zdm.Itemindex];
  xx101name:=fields[cmb_zdm.Itemindex];
  xx201:=cmb_czf.Items.Strings[cmb_czf.Itemindex];
  xx301:=cmb_zdz.Text;
  filtervalue:=xx101name+' '+xx201+' '''+xx301+''' ';
  memo1.Lines.Add(xx101+' '+xx201+' '+cmb_zdz.Text);
  btn_valid;
end;

procedure Tf_query.btn_bqClick(Sender: TObject);
var
  xx102:string;
  xx102name:string;
  xx202:string;
  xx302:string;
begin
  if trim(cmb_zdm.Text)='' then
  begin
    messagebox(f_query.handle,'字段名不能为空。','营房工作管理系统',16);
    exit;
  end;
  if trim(cmb_czf.Text)='' then
  begin
    messagebox(f_query.handle,'操作符不能为空。','营房工作管理系统',16);
    exit;
  end;
  if trim(cmb_zdz.Text)='' then
  begin
    messagebox(f_query.handle,'字段值不能为空。','营房工作管理系统',16);
    exit;
  end;
  xx102:=cmb_zdm.Items.Strings[cmb_zdm.Itemindex];
  xx102name:=fields[cmb_zdm.Itemindex];
  xx202:=cmb_czf.Items.Strings[cmb_czf.Itemindex];
  xx302:=cmb_zdz.Text;
  filtervalue:=filtervalue+' and '+xx102name+' '+xx202+' '''+xx302+''' ';
  memo1.Lines.Add('并且 '+xx102+' '+xx202+' '+cmb_zdz.Text);
end;

procedure Tf_query.btn_hzClick(Sender: TObject);
var
  xx103:string;
  xx103name:string;
  xx203:string;
  xx303:string;
begin
  if trim(cmb_zdm.Text)='' then
  begin
    messagebox(f_query.handle,'字段名不能为空。','营房工作管理系统',16);
    exit;
  end;
  if trim(cmb_czf.Text)='' then
  begin
    messagebox(f_query.handle,'操作符不能为空。','营房工作管理系统',16);
    exit;
  end;
  if trim(cmb_zdz.Text)='' then
  begin
    messagebox(f_query.handle,'字段值不能为空。','营房工作管理系统',16);
    exit;
  end;
  xx103:=cmb_zdm.Items.Strings[cmb_zdm.Itemindex];
  xx103name:=fields[cmb_zdm.Itemindex];
  xx203:=cmb_czf.Items.Strings[cmb_czf.Itemindex];
  xx303:=cmb_zdz.Text;
  filtervalue:=filtervalue+' and '+xx103name+' '+xx203+' '''+xx303+''' ';
  memo1.Lines.Add('或者 '+xx103+' '+xx203+' '+cmb_zdz.Text);
end;

procedure Tf_query.btn_qktjClick(Sender: TObject);
begin
  memo1.Lines.Clear;
  cmb_zdm.SetFocus;
  btn_valid;
end;

procedure Tf_query.btn_jgxsClick(Sender: TObject);
begin
  conf:=true;
  close;
end;

procedure Tf_query.btn_fqClick(Sender: TObject);
begin
  close;
end;

procedure Tf_query.btn_listallClick(Sender: TObject);
var
  s_value,s_value1:string;
begin
  cmb_zdz.Items.Clear;
  if cmb_zdm.ItemIndex<0 then
    exit;
  s_value:=fields[cmb_zdm.itemindex];
  yfgldata.Query1.Active:=false;
  yfgldata.Query1.SQL.Clear;
  yfgldata.Query1.SQL.Add('select distinct '+s_value);
  yfgldata.Query1.SQL.Add(' from '+tablename);
  try
    yfgldata.Query1.Active:=true;
  except
    messagebox(f_query.handle,'字段值列举出错。','营房工作管理系统',16);
    exit;
  end;
  yfgldata.Query1.First;
  while not yfgldata.Query1.Eof do
  begin
    s_value1:=yfgldata.Query1.fieldbyname(s_value).AsString;
    cmb_zdz.Items.Add(s_value1);
    yfgldata.Query1.Next;
  end;
  yfgldata.Query1.Active:=false;
end;

procedure Tf_query.cmb_zdmChange(Sender: TObject);
begin
  cmb_zdz.Items.Clear;
end;

end.