frmqqlb.~pas

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

unit frmQQLB;

interface

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

type
  TfrmQueQLB = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtQQLB: TEdit;
    edtKCYGZ: TEdit;
    edtKCNDFHXS: TEdit;
    btOkQQLB: TButton;
    btCancelQQLB: TButton;
    btContinueAddQQLB: TButton;
    dbnQQLB: TDBNavigator;
    procedure FormShow(Sender: TObject);
    procedure dbnQQLBClick(Sender: TObject; Button: TNavigateBtn);
    procedure btCancelQQLBClick(Sender: TObject);
    procedure btOkQQLBClick(Sender: TObject);
    procedure edtKCYGZKeyPress(Sender: TObject; var Key: Char);
    procedure edtKCNDFHXSKeyPress(Sender: TObject; var Key: Char);
    procedure btContinueAddQQLBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQueQLB: TfrmQueQLB;

implementation

uses datamodule, unitComment, frmMain;

{$R *.dfm}

procedure TfrmQueQLB.FormShow(Sender: TObject);
begin
      if frmmain.Judge then begin
         edtQQLB.Text :='';
         edtKCYGZ.Text :='';
         edtKCNDFHXS.Text :='';
         edtQQLB.SetFocus;
      end
      else begin
         edtQQLB.Text :=frmmain.Form1.dbgQQLB.Fields[0].AsString;
         edtKCYGZ.Text :=frmmain.Form1.dbgQQLB.Fields[1].AsString;
         edtKCNDFHXS.Text :=frmmain.Form1.dbgQQLB.Fields[2].AsString;
      end;


end;

procedure TfrmQueQLB.dbnQQLBClick(Sender: TObject; Button: TNavigateBtn);
begin
         edtQQLB.Text :=frmmain.Form1.dbgQQLB.Fields[0].AsString;
         edtKCYGZ.Text :=frmmain.Form1.dbgQQLB.Fields[1].AsString;
         edtKCNDFHXS.Text :=frmmain.Form1.dbgQQLB.Fields[2].AsString;
end;

procedure TfrmQueQLB.btCancelQQLBClick(Sender: TObject);
begin
     close;
end;

procedure TfrmQueQLB.btOkQQLBClick(Sender: TObject);
var
str1,str2:string;
begin
     if edtQQLB.Text ='' then begin
        showmessage('缺勤类别不能为空！');
        edtqqlb.SetFocus;
        exit;
     end;
     if edtKCYGZ.Text ='' then begin
        showmessage('扣除月工资不能为空！');
        edtKCYGZ.SetFocus ;
        exit;
     end;
     if edtKCNDFHXS.Text ='' then begin
        showmessage('扣除年度分红系数不能为空！');
        edtKCNDFHXS.SetFocus;
        exit;
     end;
     if frmmain.Judge then begin
        with dm.qryQQLB do begin
             Append;
             FieldValues['qqlb']:=edtQQLB.Text;
             FieldValues['jbgz']:=edtKCYGZ.Text;
             FieldValues ['ndxs']:=edtKCNDFHXS.Text ;
             post;
        end;
     end
     else begin
        str1:=frmmain.Form1.dbgQQLB.SelectedField.AsString;
        str2:='Update qqlb set qqlb="'+edtQQLB.Text+'",jbgz="'
               +edtKCYGZ.Text+'",ndxs="'+ edtKCNDFHXS.Text+'" where qqlb="'+str1+'"';
        dm.qryQQLB.Close;
        dm.qryQQLB.SQL.Clear;
        dm.qryQQLB.SQL.Add(str2);
        dm.qryQQLB.ExecSQL;
        SqlQQLB
     end;
     close;
end;

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

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

procedure TfrmQueQLB.btContinueAddQQLBClick(Sender: TObject);
begin
     if edtQQLB.Text ='' then begin
        showmessage('缺勤类别不能为空！');
        edtqqlb.SetFocus;
        exit;
     end;
     if edtKCYGZ.Text ='' then begin
        showmessage('扣除月工资不能为空！');
        edtKCYGZ.SetFocus ;
        exit;
     end;
     if edtKCNDFHXS.Text ='' then begin
        showmessage('扣除年度分红系数不能为空！');
        edtKCNDFHXS.SetFocus;
        exit;
     end;
     if frmmain.Judge then begin
        with dm.qryQQLB do begin
             Append;
             FieldValues['qqlb']:=edtQQLB.Text;
             FieldValues['jbgz']:=edtKCYGZ.Text;
             FieldValues ['ndxs']:=edtKCNDFHXS.Text ;
             post;
        end;
     end;
     edtQQLB.Text :='';
     edtKCYGZ.Text :='';
     edtKCNDFHXS.Text :='';
     edtQQLB.SetFocus;
end;

end.