frmjblb.~pas

这是一个间歇的小唾弃,希望大家希望,以后大家多学习,多多交流共同进步

unit frmJBLB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls;

type
  TfrmJiaBLB = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtJBLB: TEdit;
    edtZJYGZ: TEdit;
    edtNDFH: TEdit;
    btOkJBLB: TButton;
    btCancelJBLB: TButton;
    btContinueAddJBLB: TButton;
    dbnJBLB: TDBNavigator;
    procedure btOkJBLBClick(Sender: TObject);
    procedure btCancelJBLBClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edtZJYGZKeyPress(Sender: TObject; var Key: Char);
    procedure edtNDFHKeyPress(Sender: TObject; var Key: Char);
    procedure dbnJBLBClick(Sender: TObject; Button: TNavigateBtn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmJiaBLB: TfrmJiaBLB;

implementation

uses datamodule, frmMain, unitComment;

{$R *.dfm}

procedure TfrmJiaBLB.btOkJBLBClick(Sender: TObject);
var
strJBLB,strUpdateJBLB:string;
begin
     if frmMain.Judge then begin
        with dm.qryJBLB do begin
             Append;
             FieldValues ['jblb']:=self.edtJBLB.Text;
             FieldValues ['jbgz']:=self.edtZJYGZ.Text;
             FieldValues ['ndxs']:=self.edtNDFH.Text ;
             Post;
        end;
     end;
     if frmMain.Judge =False then begin
         strjblb:=frmmain.Form1.dbgJBLB.SelectedField.AsString;
         strUpdateJBLB:='Update jblb set jblb="'+self.edtJBLB.Text
                         +'",jbgz="'+self.edtZJYGZ.Text+'",ndxs="'
                           +self.edtNDFH.Text+'" where jblb="'+strJBLB+'"';
         dm.qryJBLB.Close;
         dm.qryJBLB.SQL.Clear;
         dm.qryJBLB.SQL.Add(strUpdateJBLB);
         dm.qryJBLB.ExecSQL ;
         SqlJBLB;
     end;

     close;
end;

procedure TfrmJiaBLB.btCancelJBLBClick(Sender: TObject);
begin
     close;
end;

procedure TfrmJiaBLB.FormShow(Sender: TObject);
begin
     if frmmain.Judge then begin
         edtJBLB.Text :='';
         edtZJYGZ.Text :='';
         edtNDFH.Text :='';
         edtJBLB.SetFocus;
     end
     else begin
         //edtJBLB.Text :=str1;
         //edtJBLB.SetFocus;
         //edtZJYGZ.Text :='0';
         //edtNDFH.Text :='0.00';
        self.edtJBLB.Text :=frmMain.Form1.dbgJBLB.Fields[0].AsString;
        self.edtZJYGZ.Text:=frmMain.Form1.dbgJBLB.Fields[1].AsString;
        self.edtNDFH.Text :=frmMain.Form1.dbgJBLB.Fields[2].AsString;
     end;

end;

procedure TfrmJiaBLB.edtZJYGZKeyPress(Sender: TObject; var Key: Char);
begin
     if not (Key in ['0'..'9','.',#8]) then Key:=#0;  //此语句限止文本框只能输入数字，小数点，退格建
end;

procedure TfrmJiaBLB.edtNDFHKeyPress(Sender: TObject; var Key: Char);
begin
     if not (Key in ['0'..'9','.',#8]) then Key:=#0;  //此语句限止文本框只能输入数字，小数点，退格建
end;

procedure TfrmJiaBLB.dbnJBLBClick(Sender: TObject; Button: TNavigateBtn);
begin
//实现文本模型与数据表的字段关联.
         self.edtJBLB.Text :=frmMain.Form1.dbgJBLB.Fields[0].AsString;
         self.edtZJYGZ.Text:=frmMain.Form1.dbgJBLB.Fields[1].AsString;
         self.edtNDFH.Text :=frmMain.Form1.dbgJBLB.Fields[2].AsString;
end;

end.