unit Bm;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    CheckBox1: TCheckBox;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
  private
    { Private declarations }
     procedure get_req;
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses Data, BMadd;
//***************************************
//2004-05-13 qhb
//檢索函數
//***************************************
procedure Tform1.get_req;
var
  s:string;
begin
  s:='';
 if checkbox1.Checked then
 begin
  if trim(edit1.Text)<>'' then
   s:=s+' and 部門編碼='''+trim(edit1.Text)+'''';
  if trim(edit2.Text)<>'' then
   s:=s+' and 部門名稱='''+trim(edit2.Text)+'''';
 end;  
 dm.ADOQuery1.close;
 dm.ADOQuery1.SQL.Text:='select * from 部門';
 if s<>'' then
  dm.ADOQuery1.SQL.Add(' where '+copy(s,5,length(s)-4));
  dm.ADOQuery1.Open;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  //
 dm.ADOQuery1.SQL.Text:='select * from 部門';
 dm.ADOQuery1.open;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='部門編碼';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='部門編碼';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=80;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='部門名稱';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='部門名稱';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=120;
 dm.ADOQuery1.First;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  dm.ADOQuery1.close;
 application.CreateForm(tformBmAdd,formBmAdd);
 formBmAdd.ty:=1;
 formBmAdd.ShowModal;
 dm.ADOQuery1.open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  application.CreateForm(tformBmAdd,formBmAdd);
  formBmAdd.edit1.text:=dm.ADOQuery1.fieldbyname('部門編碼').AsString;
  dm.ADOQuery1.close;
  formbmadd.ty:=2;
  formbmadd.ShowModal;
  dm.ADOQuery1.open;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  na:string;
begin
  na:=trim(dm.ADOQuery1.fieldbyname('部門編碼').AsString);
 if application.MessageBox(pchar('確定刪除'+na+'？'),'',MB_YESNO)<>IDYES then
  exit;
 dm.ADOQuery1.close;
 dm.ADOConnection1.Execute('delete from 部門 where 部門編碼='''
 +na+'''');
 dm.ADOQuery1.Open;
 application.MessageBox('已刪除','',64);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  panel2.Visible:=checkbox1.Checked;
  get_req;
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
  get_req;
end;

end.