【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“bkxyunit.pas”一文，供大家参考学习!

    unit bkxyunit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, DBTables, Grids, DBGrids, ExtCtrls, StdCtrls, ToolWin,
      ComCtrls;
    
    type
      Tbkxyfrm = class(TForm)
        ToolBar1: TToolBar;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        Panel1: TPanel;
        DBGrid1: TDBGrid;
        DataSource1: TDataSource;
        qry: TQuery;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      bkxyfrm: Tbkxyfrm;
    
    implementation
    
    uses bkcjxyunit;
    
    {$R *.dfm}
    
    procedure Tbkxyfrm.FormCreate(Sender: TObject);
    begin
    dbgrid1.readonly:=false;
    with qry do
    begin
    close;
    sql.Clear ;
    sql.Add('select * from bkcj where kcmc=:name and bkxq=:time');
    parambyname('name').asstring:=bkcjxytemp.combobox1.text;
    parambyname('time').asstring:=bkcjxytemp.maskedit1.text;
    open;
    
    
    end;
    end;
    
    procedure Tbkxyfrm.Button1Click(Sender: TObject);
    begin
    qry.edit;
    qry.Append;
    end;
    
    procedure Tbkxyfrm.Button2Click(Sender: TObject);
    begin
    if application.MessageBox('确实要删除这条记录吗?','提示',mb_okcancel+mb_iconinformation)=id_ok then
    with qry do
     if isempty=false then
      delete;
    end;
    
    procedure Tbkxyfrm.Button3Click(Sender: TObject);
    begin
    qry.edit;
    qry.Post;
    qry.close;
    qry.Open;
    end;
    
    procedure Tbkxyfrm.Button4Click(Sender: TObject);
    begin
    close;
    end;
    
    end.
    

上一篇：FrmBookTypeEdit.frm
下一篇：国家教育公平政策的思路、问题与对策