pas_housetype.pas

比较详细的功能

unit pas_houseType;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls, Buttons, ToolWin, StdCtrls;

type
  TForm_housetype = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit_no: TEdit;
    Edit_ht: TEdit;
    ToolBar1: TToolBar;
    ToolButton5: TToolButton;
    select: TSpeedButton;
    ToolButton3: TToolButton;
    add: TSpeedButton;
    ToolButton7: TToolButton;
    del: TSpeedButton;
    DBGrid: TDBGrid;
    procedure selectClick(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure delClick(Sender: TObject);
    procedure DBGridCellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_housetype: TForm_housetype;

implementation
  uses Pas_DM;
{$R *.dfm}

procedure TForm_housetype.selectClick(Sender: TObject);
begin
  with pas_dm.DM.query_ht do
  begin
    close;
    sql.Clear;
    sql.Add('select ht_no 户型编号,ht_name 户型 from housetype');
    open;
  end;
end;

procedure TForm_housetype.addClick(Sender: TObject);
var
  s:string;
begin
    if (edit_no.Text='') or (edit_ht.Text='') then
    begin
     exit;
    end;
      try
          with pas_dm.DM.query_ht  do
          begin
          Close;
          SQL.Clear;
          s:='insert into housetype(ht_no,ht_name) values('''+trim(edit_no.Text)+''','''+trim(edit_ht.text)+''')';
          SQL.Add(s);
          ExecSQL;
          showmessage('添加 '+edit_ht.Text+' 成功！');
          select.Click;
          end;
          except
          showmessage('添加'+edit_ht.Text+'失败！');
        end;
end;

procedure TForm_housetype.delClick(Sender: TObject);
var
  s:string;
begin
   if IDCancel=messagebox(handle,pchar('编号为 '+dbgrid.Fields[0].AsString+' 的将被删除'),'警告', MB_OKCANCEL)
   then
   begin
   exit;
   end;

   try
          with pas_dm.DM.query_ht  do
          begin
          Close;
          SQL.Clear;
          s:='delete from housetype where ht_no='''+edit_no.Text+'''';
          SQL.Add(s);
          ExecSQL;
          showmessage('删除 '+edit_ht.Text+' 成功！');
          select.Click;
          end;
          except
          showmessage('删除'+edit_ht.Text+'失败！');
        end;
end;

procedure TForm_housetype.DBGridCellClick(Column: TColumn);
begin
with pas_dm.DM.Query_ht do
   begin
   if dbgrid.FieldCount=0 then
   begin
    showmessage('没有打开数据库');
    exit;
   end;
    if dbgrid.Fields[0].AsString='' then
    begin
    showmessage('数据库没有数据');
    exit;
    end;
    edit_no.Text:=Fields.Fields[0].AsString;
    edit_ht.Text:=Fields.Fields[1].AsString;
    end;
 end;


procedure TForm_housetype.FormShow(Sender: TObject);
begin
            select.Click;
end;

end.