mc_wxxxcx.~pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

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.