【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了，bxb.pas，希望对大家有所帮助！

    unit bxb;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Menus, DB, DBTables, Grids, DBGrids, StdCtrls, ComCtrls,
      ExtCtrls, ADODB;
    
    type
      Tbxb_Form = class(TForm)
        Panel1: TPanel;
        cmdok: TButton;
        cmdclose: TButton;
        DBGrid1: TDBGrid;
        PopupMenu1: TPopupMenu;
        N1: TMenuItem;
        N3: TMenuItem;
        xm_LEdit: TLabeledEdit;
        ADOQuery1: TADOQuery;
        DataSource1: TDataSource;
        N2: TMenuItem;
        procedure cmdcloseClick(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormCreate(Sender: TObject);
        procedure N1Click(Sender: TObject);
        procedure cmdokClick(Sender: TObject);
        procedure N3Click(Sender: TObject);
        procedure N2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      bxb_Form: Tbxb_Form;
    
    implementation
    
    uses modibx, xg;
    
    {$R *.dfm}
    
    procedure Tbxb_Form.cmdcloseClick(Sender: TObject);
    begin
      xm_LEdit.Text:='';
      cmdokClick(Sender);
    end;
    
    procedure Tbxb_Form.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      Action:=caFree;
    end;
    
    procedure Tbxb_Form.FormCreate(Sender: TObject);
    var
      sqlstr,vProvider,vDataSource,vPersistSecurityInfo:string;
    begin
      AnimateWindow(self.Handle,2000,AW_BLEND or AW_ACTIVATE);
      vProvider:='Provider=Microsoft.Jet.OLEDB.4.0;';
      vDataSource:='Data Source=.\dbs\xsbm.mdb;';
      vPersistSecurityInfo:='Persist Security Info=False';
      ADOQuery1.ConnectionString:=vProvider+vDataSource+vPersistSecurityInfo;
     sqlstr:='select Id as 自动编号,Name as ,Rq as 日期,Wxr as 维修人,Wxf as 维修否,bx as 报修内容 from bxb';
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add(sqlstr);
      ADOQuery1.Open;
      ADOQuery1.Active:=True;
      DataSource1.DataSet:=ADOQuery1;
    end;
    
    procedure Tbxb_Form.N1Click(Sender: TObject);
    begin
      Application.CreateForm(Tmodibx_Form,modibx_Form);
      modibx_Form.show;
    end;
    
    procedure Tbxb_Form.cmdokClick(Sender: TObject);
    var
      vxm,sqlstr:string;
      
    begin
      vxm:=Trim(xm_LEdit.Text);
      sqlstr:='select Name AS ,Rq AS 日期,Wxr AS 维修人,Wxf AS 维修费,'+
      'Bz AS 备注 from bxb ' ;
      if Length(vxm)>0 then
      begin   //有输入,模糊查询
        vxm:='%'+vxm+'%';
        sqlstr:=sqlstr+'where (Rq like '''+vxm+''')';
      end;
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add(sqlstr);
      ADOQuery1.Open;
      ADOQuery1.Active:=True;
    
    end;
    
    procedure Tbxb_Form.N3Click(Sender: TObject);
    var
      vname,sqlstr:string;
    begin
      if MessageDlg('你确认要删除吗?',mtConfirmation ,[mbYes,mbNo],0)=mrNo then
        exit;
      vname:=bxb_Form.ADOQuery1.FieldByName('').AsString;
    
      //main_Form.MyMessageBox('确实要删除"'+vbh+'"记录？',1,'yesno');
      sqlstr:='delete from bxb where (name='''+vname+''')';
      with ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
      end;
      sqlstr:='select Id as Id,name as ,rq as 日期,wxr as 维修人,wxf as 维修否,Bz as 备注 from bxb';
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add(sqlstr);
      ADOQuery1.Open;
      ADOQuery1.Active:=True;
    end;
    
    procedure Tbxb_Form.N2Click(Sender: TObject);
    begin
      Application.CreateForm(Txg_form,xg_form);
      xg_form.show;
    end;
    
    end.
    

上一篇：BuyMaterialForm.pas
下一篇：扛起年轻化大旗，哈弗F系玩转行业新风潮