rs_docunit.pas

来自「DELPHI 编写的人事管理系统,根据职工查询各种信息」· PAS 代码 · 共 189 行

unit RS_DocUnit;

interface

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

type
  TRS_DocForm = class(TForm)
    Panel1: TPanel;
    Label4: TLabel;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    ComboBox3: TComboBox;
    StringGrid1: TStringGrid;
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
    str0,str1:string;
  public
    { Public declarations }
  end;

var
  RS_DocForm: TRS_DocForm;

implementation
  uses Login_Unit;
{$R *.dfm}

procedure TRS_DocForm.ComboBox1Click(Sender: TObject);
begin
   str0:=combobox1.Text;
   label2.Enabled:=true;
   combobox2.Enabled:=true;
end;

procedure TRS_DocForm.ComboBox2Click(Sender: TObject);
begin
     if combobox2.Text='不等于' then
        str1:='<>'
     else if combobox2.Text='等于' then
             str1:='='
          else
             str1:=' like ';
     label3.Enabled:=true;
     edit1.Enabled:=true;
end;

procedure TRS_DocForm.ComboBox3Click(Sender: TObject);
begin
    stringgrid1.Cells[3,stringgrid1.rowcount-1]:=combobox3.Text;
    stringgrid1.RowCount:=stringgrid1.RowCount+1;
    if combobox3.Text='和' then
       memo1.Text:=memo1.Text+' and '
    else
       memo1.Text:=memo1.Text+' or ';
    combobox3.Enabled:=false;
    edit1.Text:='';
end;

procedure TRS_DocForm.Edit1Change(Sender: TObject);
begin
   if edit1.Text<>'' then
      bitbtn1.Enabled:=true
   else
      bitbtn1.Enabled:=false;
end;

procedure TRS_DocForm.BitBtn1Click(Sender: TObject);
var
  str2:string;
begin
    stringgrid1.Cells[0,stringgrid1.rowcount-1]:=combobox1.Text;
    stringgrid1.Cells[1,stringgrid1.rowcount-1]:=combobox2.Text;
    stringgrid1.Cells[2,stringgrid1.rowcount-1]:=edit1.Text;
    if combobox2.Text='前含于' then
       str2:=edit1.Text+'%'
    else if combobox2.Text='后含于' then
            str2:='%'+edit1.Text
         else if combobox2.Text='含于' then
                 str2:='%'+edit1.Text+'%'
              else
                 str2:=edit1.Text;
    memo1.Lines.Add(str0+str1+''''+str2+'''');
    bitbtn5.Enabled:=true;
    combobox3.enabled:=true;
    bitbtn6.Enabled:=true;
end;

procedure TRS_DocForm.BitBtn1KeyPress(Sender: TObject; var Key: Char);
begin
      if key=#13 then
         begin
           key:=#0;
           bitbtn6.SetFocus;
         end;
end;

procedure TRS_DocForm.BitBtn6Click(Sender: TObject);
begin
 if (edit1.Text='') or (combobox1.Text='') or (combobox2.Text='') then
   begin
    messagebox(RS_Docform.handle,'条件不正确，请检查所设条件式！','提示',mb_iconerror);
   end
 else
  begin
    Self.ADOQuery1.Close;
    Self.ADOQuery1.SQL.Clear;
    Self.ADOQuery1.SQL.Add('select * from ZG_Table where '+memo1.Text);
  if Self.ADOQuery1.Prepared=false then Self.ADOQuery1.Prepared;
    begin
      Self.ADOQuery1.open;
      bitbtn2.Enabled:=true;
    end;
  end;
end;

procedure TRS_DocForm.BitBtn5Click(Sender: TObject);
begin
    stringgrid1.RowCount:=2;
    stringgrid1.Cells[0,stringgrid1.rowcount-1]:='';
    stringgrid1.Cells[1,stringgrid1.rowcount-1]:='';
    stringgrid1.Cells[2,stringgrid1.rowcount-1]:='';
    stringgrid1.Cells[3,stringgrid1.rowcount-1]:='';
    memo1.Text:='';
    label2.Enabled:=false;
    label3.Enabled:=false;
    combobox2.Enabled:=false;
    edit1.Enabled:=false;
    edit1.Text:='';
    bitbtn5.Enabled:=false;
    bitbtn6.Enabled:=false;
    combobox3.Enabled:=false;
end;

procedure TRS_DocForm.BitBtn3Click(Sender: TObject);
begin
  Self.ADOQuery1.close;
  Self.ADOQuery1.SQL.Clear;
  Self.ADOQuery1.SQL.Add('select * from ZG_Table');
  if Self.ADOQuery1.Prepared=false then Self.ADOQuery1.Prepared;
     Self.ADOQuery1.open;
end;

procedure TRS_DocForm.BitBtn2Click(Sender: TObject);
begin
  Self.ADOQuery1.close;
  Self.ADOQuery1.sql.clear;
  Self.ADOQuery1.sql.Add('delete from zg where '+memo1.Text);
  Self.ADOQuery1.ExecSQL;
  bitbtn2.Enabled:=false;
end;

procedure TRS_DocForm.BitBtn4Click(Sender: TObject);
begin
 close;
end;

end.