【delphi开源代码栏目提醒】：网学会员在delphi开源代码频道为大家收集整理了modisf.pas提供大家参考，希望对大家有所帮助!

    unit modisf;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ComCtrls, StdCtrls, ExtCtrls, jpeg;
    
    type
      Tmodisf_Form = class(TForm)
        Image1: TImage;
        Label1: TLabel;
        Label2: TLabel;
        cmdok: TButton;
        cmdclose: TButton;
        bh_LEdit: TLabeledEdit;
        Mph_LEdit: TLabeledEdit;
        sf_LEdit: TLabeledEdit;
        df_LEdit: TLabeledEdit;
        qf_LEdit: TLabeledEdit;
        wgf_LEdit: TLabeledEdit;
        qtf_LEdit: TLabeledEdit;
        sfsj_DTP: TDateTimePicker;
        procedure cmdokClick(Sender: TObject);
        procedure cmdcloseClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      modisf_Form: Tmodisf_Form;
    
    implementation
    
    uses Main, login, sfb;
    
    {$R *.dfm}
    
    procedure Tmodisf_Form.cmdokClick(Sender: TObject);
    var
      sqlstr:string;
      n:integer;
      sfsj:TDate;
      vsfsj:Tdatetime;
    begin
      sfsj:=sfsj_DTP.Date;
      vsfsj:=sfsj;
      if Length(TrimLeft(bh_LEdit.Text))<1 then
      begin
        ShowMessage('编号不能为空 !');
        exit;
      end;
      if Length(TrimLeft(mph_LEdit.Text))<1 then
      begin
        ShowMessage('门牌号不能为空 !');
        exit;
      end;
      if Length(TrimLeft(sf_LEdit.Text))<1 then
      begin
        ShowMessage('水费不能为空 !');
        exit;
      end;
      if Length(TrimLeft(df_LEdit.Text))<1 then
      begin
        ShowMessage('电费不能为空 !');
        exit;
      end;
        if Length(TrimLeft(qf_LEdit.Text))<1 then
      begin
        ShowMessage('气费不能为空 !');
        exit;
      end;
        if Length(TrimLeft(wgf_LEdit.Text))<1 then
      begin
        ShowMessage('物管费不能为空 !');
        exit;
      end;
        if Length(TrimLeft(qtf_LEdit.Text))<1 then
      begin
        ShowMessage('其它费不能为空 !');
        exit;
      end;
      if Main_Form.Tag=0 then
      begin
        sqlstr:='select * from sfb where (mph='''+mph_LEdit.Text+''')';
        Main_Form.AddSQL(sqlstr,n);
        if n>0 then
        begin
          ShowMessage('您输入的资料已经存在 !');
          exit;
        end;
        sqlstr:='insert into sfb (bh,mph,sf,df,qf,wgf,qtf,sfsj)';
        sqlstr:=sqlstr+'values(:bh,:mph,:sf,:df,:qf,:wgf,:qtf,:sfsj)';
      end
      else
        sqlstr:='update sfb set bh=:bh,mph=:mph,sf=:sf, where (bh='''+bh_LEdit.Text+''')';
    
      with sfb_Form.ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        Parameters.ParamByName('bh').Value:=bh_LEdit.Text;
        Parameters.ParamByName('mph').Value:=mph_LEdit.Text;
        Parameters.ParamByName('sf').Value:=sf_LEdit.Text;
        Parameters.ParamByName('df').Value:=df_LEdit.Text;
        Parameters.ParamByName('qf').Value:=qf_LEdit.Text;
        Parameters.ParamByName('wgf').Value:=wgf_LEdit.Text;
        Parameters.ParamByName('qtf').Value:=qtf_LEdit.Text;
        Parameters.ParamByName('sfsj').Value:=vsfsj;
        ExecSQL;
      end;
      sqlstr:='select Id as Id,Bh as 编号,Mph as 门牌号,Sf as 水费,Df as 电费,Qf as 气费,Wgf as 物管费,Qtf as 其他费,Sfsj as 收费时间 from sfb';
      sfb_Form.ADOQuery1.Close;
      sfb_Form.ADOQuery1.SQL.Clear;
      sfb_Form.ADOQuery1.SQL.Add(sqlstr);
      sfb_Form.ADOQuery1.Open;
      sfb_Form.ADOQuery1.Active:=True;
      Close;
    end;
    
    procedure Tmodisf_Form.cmdcloseClick(Sender: TObject);
    begin
     bh_LEdit.Text:='';
     mph_LEdit.Text:='';
     sf_LEdit.Text:='';
     df_LEdit.Text:='';
     qf_LEdit.Text:='';
     wgf_LEdit.Text:='';
     qtf_LEdit.Text:='';
      cmdokClick(Sender);
    end;
    
    end.