?? kfdj.pas

?? 房屋出租信息管理系統(tǒng),房屋出租信息的錄入、查詢、刪除以及用戶管理等功能
?? PAS
字號:
unit Kfdj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, Mask,
  ExtCtrls, ADODB;

type
  TKfdjForm = class(TForm)
    Panel2: TPanel;
    bitbtn_insert: TBitBtn;
    bitbtn_modify: TBitBtn;
    bitbtn_delete: TBitBtn;
    bitbtn_post: TBitBtn;
    bitbtn_cancel: TBitBtn;
    bitbtn_quit: TBitBtn;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    DS_Kudj: TDataSource;
    ADQ_Kudj: TADOQuery;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Com_Xb: TComboBox;
    ADOQry_insert: TADOQuery;
    ADOQry_update: TADOQuery;
    Label3: TLabel;
    Ed_Kubh: TEdit;
    Ed_Xm: TEdit;
    Ed_Dw: TEdit;
    Ed_Dz: TEdit;
    Ed_Sfzh: TEdit;
    Ed_Lxdh: TEdit;
    procedure bitbtn_quitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bitbtn_insertClick(Sender: TObject);
    procedure bitbtn_deleteClick(Sender: TObject);
    procedure bitbtn_postClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bitbtn_modifyClick(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure bitbtn_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
     Select_flag:integer;
     procedure cleardata;
     procedure enabledAdd;
     procedure enabledfalse;
     procedure AddData;

    { Public declarations }
  end;

var
  KfdjForm: TKfdjForm;

implementation

uses DataModule, Unit_common_files;

{$R *.dfm}

procedure TKfdjForm.cleardata ;
begin
  Ed_Kubh.Text      :='';
  Ed_Xm.Text        :='';
  com_xb.Text       :='';
  Ed_dw.Text        :='';
  Ed_Dz.Text        :='';
  Ed_Lxdh.Text      :='';
  Ed_Sfzh.Text      :='';
end;
procedure TKFdjForm.enabledAdd ;
begin
  bitbtn_insert.Enabled :=false;
  bitbtn_delete.Enabled :=false;
  bitbtn_post.Enabled   :=true;
  bitbtn_cancel.Enabled :=true;
  Ed_Kubh.Enabled       :=true;
  Ed_Xm.Enabled         :=true;
  com_xb.Enabled        :=true;
  Ed_dw.Enabled         :=true;
  Ed_Dz.Enabled         :=true;
  Ed_Lxdh.Enabled       :=true;
  Ed_Sfzh.Enabled       :=true;
end;
procedure TKfdjForm.enabledfalse ;
begin
  Ed_Kubh.Enabled       :=false;
  Ed_Xm.Enabled         :=false;
  com_xb.Enabled        :=false;
  Ed_dw.Enabled         :=false;
  Ed_Dz.Enabled         :=false;
  Ed_Lxdh.Enabled       :=false;
  Ed_Sfzh.Enabled       :=false;
end;
procedure TKfdjForm.AddData ;
begin
   Ed_Kubh.Text :=ADQ_Kudj.FieldByName('manid').Text;
   Ed_Xm.Text   :=ADQ_Kudj.FieldByName('manname').Text;
   Com_xb.Text  :=ADQ_Kudj.FieldByName('sex').Text;
   Ed_Sfzh.Text :=ADQ_Kudj.FieldByName('idcard').Text;
   Ed_Dz.Text   :=ADQ_Kudj.FieldByName('iddress').Text ;
   Ed_Lxdh.Text :=ADQ_Kudj.FieldByName('handset').Text ;
   Ed_Dw.Text   :=ADQ_Kudj.FieldByName('company').Text ;
end;
procedure TKfdjForm.bitbtn_quitClick(Sender: TObject);
begin
 close;
end;

procedure TKfdjForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 action  :=cafree;
 Kfdjform:=nil; 
end;

procedure TKfdjForm.bitbtn_insertClick(Sender: TObject);
begin
  select_flag:=1;
  enabledAdd;
  cleardata;
  Ed_kubh.SetFocus ;
end;

procedure TKfdjForm.bitbtn_deleteClick(Sender: TObject);
begin
try
   if DB_module.ADOCon.InTransaction then DB_module.ADOCon.RollbackTrans ;
     DB_module.ADOCon.BeginTrans;
   if ADQ_Kudj.RecordCount >0 then
      begin
        if (MessageBox(Handle,'確實(shí)要?jiǎng)h除該客戶嗎?','警告',MB_YESNO+MB_ICONWARNING)=IDYES) then
           ADQ_Kudj.Delete;
           DB_module.ADOCon.CommitTrans;
      end
   else
      begin
       MessageBox(0,'空記錄不能刪除!','余科華提示',MB_OK+MB_ICONWARNING);
      end; 
 except
   begin
    MessageBox(0,'操作用戶失敗！','錯(cuò)誤',MB_OK+MB_ICONERROR);
    DB_module.ADOCon.RollbackTrans;
    exit;
   end;
end;
end;

procedure TKfdjForm.bitbtn_postClick(Sender: TObject);
begin
 try
   if Ed_Kubh.Text=''  then
        begin
          Application.MessageBox('請?zhí)顚懹脩艟幪?#039;,'余科華提示',MB_OK+MB_ICONINFORMATION);
          Ed_Kubh.SetFocus ;
          exit;
        end;
   if Ed_Xm.Text=''  then
        begin
          Application.MessageBox('請?zhí)顚懹脩粜彰?#039;,'余科華提示',MB_OK+MB_ICONINFORMATION);
          Ed_xm.SetFocus ;
          exit;
        end;
   if Ed_Sfzh.Text=''  then
        begin
          Application.MessageBox('請?zhí)顚懹脩羯矸葑C號','余科華提示',MB_OK+MB_ICONINFORMATION);
          Ed_Sfzh.SetFocus ;
          exit;
        end;
   if Ed_Lxdh.Text =''  then
        begin
          Application.MessageBox('請?zhí)顚懹脩袈?lián)系電話','余科華提示',MB_OK+MB_ICONINFORMATION);
          Ed_Lxdh.SetFocus ;
          exit;
        end;
   if Ed_Dz.Text=''  then
        begin
          Application.MessageBox('請?zhí)顚懮矸葑C地址','余科華提示',MB_OK+MB_ICONINFORMATION);
          Ed_Dz.SetFocus ;
          exit;
        end;  

  if DB_module.ADOCon.InTransaction then DB_module.ADOCon.RollbackTrans ;
     DB_module.ADOCon.BeginTrans;
  if Select_flag=1 then
  begin
     if ADOQry_insert.Active  then
        ADOQry_insert.Close;
        ADOQry_insert.Parameters.ParamByName('manid').Value:=Ed_Kubh.Text ;
        ADOQry_insert.Parameters.ParamByName('manname').Value:=Ed_Xm.Text;
        ADOQry_insert.Parameters.ParamByName('zjm').Value:=get_goods_zjm(Ed_Xm.Text);
        ADOQry_insert.Parameters.ParamByName('idcard').Value:=Ed_Sfzh.Text;
        ADOQry_insert.Parameters.ParamByName('iddress').Value:=Ed_Dz.Text;
        ADOQry_insert.Parameters.ParamByName('handset').Value:=Ed_Lxdh.Text;
        ADOQry_insert.Parameters.ParamByName('company').Value:=Ed_Dw.Text ;
     if  trim(com_xb.text)='男' then
        ADOQry_insert.Parameters.ParamByName('sex').Value:='1'
         else
        ADOQry_insert.Parameters.ParamByName('sex').Value:='0';
        ADOQry_insert.ExecSQL;
        DB_module.ADOCon.CommitTrans;
        showmessage('保存成功！');
        if ADQ_Kudj.Active then
           ADQ_Kudj.Close;
           ADQ_Kudj.Open ;
  end 
 else if select_flag=2 then
  begin
  if ADOQry_update.Active then
     ADOQry_update.Close;
        ADOQry_update.Parameters.ParamByName('manid').Value:=Ed_Kubh.Text;
        ADOQry_update.Parameters.ParamByName('manname').Value:=Ed_Xm.Text;
        ADOQry_update.Parameters.ParamByName('zjm').Value:=get_goods_zjm(Ed_Xm.Text);
        ADOQry_update.Parameters.ParamByName('idcard').Value:=Ed_Sfzh.Text;
        ADOQry_update.Parameters.ParamByName('iddress').Value:=Ed_Dz.Text;
        ADOQry_update.Parameters.ParamByName('handset').Value:=Ed_Lxdh.Text;
        ADOQry_update.Parameters.ParamByName('company').Value:=Ed_Dw.Text ;
    if  trim(com_xb.text)='男' then
        ADOQry_update.Parameters.ParamByName('sex').Value:='1'
         else
        ADOQry_update.Parameters.ParamByName('sex').Value:='0';
        ADOQry_update.Parameters.ParamByName('oldmanid').value:=ADQ_Kudj.FieldByName('manid').Value ;
        ADOQry_update.ExecSQL; 
        DB_module.ADOCon.CommitTrans;
        showmessage('修改成功！');
    if ADQ_Kudj.Active then
         ADQ_Kudj.Close;
         ADQ_Kudj.Open ;
 end
 except
  begin
   MessageBox(0,'操作失敗，用戶可能插入了相同的客戶編號！','',MB_OK+MB_ICONERROR);
   DB_module.ADOCon.RollbackTrans;
   exit;
  end;
end;
  enabledfalse ;
  bitbtn_insert.Enabled:=true;
  bitbtn_delete.Enabled:=true;
end;

procedure TKfdjForm.FormCreate(Sender: TObject);
begin
   ADQ_Kudj.Close;
   ADQ_Kudj.Open ;
   AddData;
end;

procedure TKfdjForm.bitbtn_modifyClick(Sender: TObject);
begin
   select_flag:=2;
   AddData;
   enabledAdd;
end;

procedure TKfdjForm.DBGrid2CellClick(Column: TColumn);
begin
   AddData;
end;

procedure TKfdjForm.bitbtn_cancelClick(Sender: TObject);
begin
   enabledfalse ;   
   bitbtn_insert.Enabled:=true;
   bitbtn_delete.Enabled:=true;
   bitbtn_post.Enabled:=false;
   bitbtn_cancel.Enabled:=false;
   bitbtn_post.Enabled:=false;
   bitbtn_cancel.Enabled:=false;
end;

end.
?? 文件大小 822 K
?? 上傳用戶 lingyun579
?? 所屬分類其他行業(yè)
??? 相關(guān)標(biāo)簽

#房屋 #信息管理系統(tǒng) #刪除 #查詢
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? kfdj.pas

?? 快捷鍵說明
