【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:MC_WXXXCX.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
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.
上一篇:
Frm_CommCx.frm
下一篇:
汝康皮肤护理液医治烧伤的可行性和效果分析