unit MC_WXXXCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, Buttons;

type
  TWXXXCX = class(TForm)
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WXXXCX: TWXXXCX;

implementation

uses MC_WXDJ, MC_MainForm;

{$R *.DFM}


procedure TWXXXCX.FormShow(Sender: TObject);     //判斷使用者操作權限
begin
  ComboBox1.ItemIndex:=0;
  ComboBox2.ItemIndex:=0;
  if MainForm.Query1.Locate('使用選項','維修信息查詢',[loCaseInsensitive]) then
  begin
   if MainForm.Query1.FieldByName('讀寫').AsString='讀' then
   begin
     BitBtn1.Enabled:=False;
     BitBtn2.Enabled:=False;
   end;
  end;
end;

procedure TWXXXCX.BitBtn1Click(Sender: TObject);  // 修改當前維修信息
begin
  If Query1.Active Then
  If Query1.RecordCount <> 0 Then
  If Not Assigned(WXDJ) Then
  begin
    WXDJ:=TWXDJ.Create(Self);
    WXDJ.Table1.Locate('維修編號',Query1.FieldByName('維修編號').AsString,[loCaseInsensitive]);
    WXDJ.showModal;
    Query1.Close;
    Query1.Open;
  end;
end;
procedure TWXXXCX.BitBtn2Click(Sender: TObject);     //刪除當前維修信息
begin
  If Query1.Active Then
  If Query1.RecordCount <> 0 Then
  if MessageDlg('是否刪除當前記錄?',mtCustom,[mbYes,mbNo],0)=mrYes then
     Query1.Delete;
end;

procedure TWXXXCX.BitBtn4Click(Sender: TObject);  //查詢維修信息
begin
  if ComboBox2.Text='Like' then     //使用運算符 "like" 進行查詢
    if Edit1.Text='*' then begin
      with Query1 do begin
      Close;
      SQL.Clear;
      SQl.Add('Select * From 維修信息');
      Open; end;
    End
    Else: begin
      with Query1 do begin
      Close;
      SQL.Clear;
      SQL.Add('Select * From 維修信息');
      SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+' Like '''+Edit1.Text+'%''');
      Open;  end;
  end;
  if ComboBox2.Text='=' then begin      //使用運算符 "= "進行查詢
    with Query1 do begin
      Close;
      SQL.Clear;
      SQL.Add('Select * From 維修信息');
      SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+' = '''+Edit1.Text+'%''');
      Open; end;
  end;
  if ComboBox2.Text='>' then begin      //使用運算符 ">"進行查詢
    with Query1 do begin
      Close;
      SQL.Clear;
      SQL.Add('Select * From 維修信息');
      SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+' > '''+Edit1.Text+'%''');
      Open; end;
  end;
  if ComboBox2.Text='<' then begin        //使用運算符 "<"進行查詢
  with Query1 do begin
  Close;
  SQL.Clear;
  SQL.Add('Select * From 維修信息');
  SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+' < '''+Edit1.Text+'%''');
  Open; end;
  end;
end;
procedure TWXXXCX.BitBtn3Click(Sender: TObject);  //退出系統
begin
  Close;
end;
procedure TWXXXCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  WXXXCX.Release;
  WXXXCX:=Nil;
end;
end.