otheruse.pas

来自「房产售楼CRM系统是以房地产销售业务为主线」· PAS 代码 · 共 88 行

unit OtherUse;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls, DBGridEh;

type
  TOtherUseForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    AddBitBtn: TBitBtn;
    DeleteBitBtn: TBitBtn;
    AddTypeBitBtn: TBitBtn;
    DeleteTypeBitBtn: TBitBtn;
    ReturnBitBtn: TBitBtn;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    Use_cDBEdit: TDBEdit;
    Type_cDBEdit: TDBEdit;
    procedure ReturnBitBtnClick(Sender: TObject);
    procedure AddBitBtnClick(Sender: TObject);
    procedure DeleteBitBtnClick(Sender: TObject);
    procedure AddTypeBitBtnClick(Sender: TObject);
    procedure DeleteTypeBitBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OtherUseForm: TOtherUseForm;

implementation

uses udm,main,EditRecord;

{$R *.DFM}

procedure TOtherUseForm.ReturnBitBtnClick(Sender: TObject);
begin
  Close;
end;


procedure TOtherUseForm.AddBitBtnClick(Sender: TObject);
begin
  DM.Use_c.Insert;
  Use_cDBEdit.EditText:=InputBox('新增加[用途]：', '用途', '');
  DM.Use_c.Post;
end;

procedure TOtherUseForm.DeleteBitBtnClick(Sender: TObject);
begin
  with DM.Use_c do
  begin
    Edit;
    Delete;
    Post;
  end;
end;

procedure TOtherUseForm.AddTypeBitBtnClick(Sender: TObject);
begin
  DM.Type_c.Insert;
  Type_cDBEdit.EditText:=InputBox('新增加[类型]：', '类型', '');
  DM.Type_c.Post;
end;

procedure TOtherUseForm.DeleteTypeBitBtnClick(Sender: TObject);
begin
  with DM.Type_c do
  begin
    Edit;
    Delete;
    Post;
  end;
end;

end.