lpgl.pas.~2~

Delphi数据库开发毕业设计指导及实例 一书的源码

unit lpgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids;

type
  Tlpgl_Form = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    Panel1: TPanel;
    MPH_LEdit: TLabeledEdit;
    cmdok: TButton;
    cmdclose: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    modi:boolean;
    xcaption:string;
  end;

var
  lpgl_Form: Tlpgl_Form;

implementation

uses modilp, main;

{$R *.dfm}

procedure Tlpgl_Form.cmdokClick(Sender: TObject);
var
    sqlstr,mph:string;
begin
    mph:=trim(mph_ledit.Text);
    if length(mph)<1 then
    begin
        sqlstr:='select * from t_lpb order by mph';
    end
    else
    begin
        mph:='%'+mph+'%';
        sqlstr:='select * from t_lpb where (mph like '''+mph+''')order by mph';
    end;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
end;

procedure Tlpgl_Form.N1Click(Sender: TObject);
begin
    modi:=false;
    xcaption:='添加楼盘信息';
    Application.CreateForm(Tmodilp_Form, modilp_Form);
    modilp_form.Show;
end;

procedure Tlpgl_Form.N2Click(Sender: TObject);
begin
    modi:=true;
    xcaption:='修改楼盘信息';
    Application.CreateForm(Tmodilp_Form, modilp_Form);
    modilp_form.Show;
end;

procedure Tlpgl_Form.N3Click(Sender: TObject);
var
    mph:string;
begin
    mph:=Query1.fieldbyname('mph').AsString;
    if MessageDlg('确认要删除选中的记录码?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        with tquery.Create(nil) do
        begin
            try
            Close;
            SessionName:=MainForm.Database1.SessionName;
            DatabaseName:=MainForm.Database1.DatabaseName;
            SQL.Clear;
            SQL.Add('delete from t_lpb where mph='''+mph+'''');
            ExecSQL;
            finally
            Free;
            end;
        end;
    end;
end;

procedure Tlpgl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N21.Enabled:=true;
end;

procedure Tlpgl_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Tlpgl_Form.FormCreate(Sender: TObject);
begin
  Query1.SessionName:=MainForm.Database1.SessionName;
  Query1.DatabaseName:=MainForm.Database1.DatabaseName;
end;

end.