frmgz.~pas

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

unit frmGZ;

interface

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

type
  TfrmGongZhong = class(TForm)
    Bevel1: TBevel;
    btOKGZ: TButton;
    btCancelGZ: TButton;
    btContinueAddGZ: TButton;
    Label1: TLabel;
    edtAddGZ: TEdit;
    Label2: TLabel;
    edtJBYGZ: TEdit;
    dbnGZ: TDBNavigator;
    Button1: TButton;
    procedure btOKGZClick(Sender: TObject);
    procedure btCancelGZClick(Sender: TObject);
    procedure btContinueAddGZClick(Sender: TObject);
    procedure edtJBYGZKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dbnGZClick(Sender: TObject; Button: TNavigateBtn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGongZhong: TfrmGongZhong;

implementation

uses frmMain, datamodule, unitComment;

{$R *.dfm}

procedure TfrmGongZhong.btOKGZClick(Sender: TObject);
var
str,strUpdate:string;
begin
  //判断广西框是否为空
  if self.edtAddGZ.Text ='' then
    begin
      showmessage('工种不能为空！');
      self.edtAddGZ.SetFocus;
      exit;
   end;
  if self.edtJBYGZ.Text ='' then
   begin
      showmessage('基本工资不能为空！');
      self.edtJBYGZ.SetFocus ;
      exit;
   end;
     
  if frmMain.Judge then  begin
     with dm.qrygongzhong do
       begin
        Append; //添加一条记录
        FieldValues ['gz']:=self.edtAddGZ.Text ;
        FieldValues ['jbgz']:=self.edtJBYGZ.Text;
        post;
     end;
  end;
  if frmMain.Judge =false then begin
      str:=frmMain.Form1.dbgGZ.SelectedField.AsString;
      strUpdate:='Update gz set gz="'+self.edtAddGZ.Text
                    +'",jbgz="'+self.edtJBYGZ.Text+'"where gz="'+str+'"';
      dm.qrygongzhong.Close;
      dm.qrygongzhong.SQL.Clear;
      dm.qrygongzhong.SQL.Add(strUpdate);
      dm.qrygongzhong.ExecSQL;
      sqlGongZhong;
  end;
  close;
end;

procedure TfrmGongZhong.btCancelGZClick(Sender: TObject);
begin
    close;
end;

procedure TfrmGongZhong.btContinueAddGZClick(Sender: TObject);
begin
  if self.edtAddGZ.Text ='' then    
    begin
      showmessage('工种不能为空！');
      self.edtAddGZ.SetFocus;
      exit;
    end;
  if self.edtJBYGZ.Text ='' then
    begin
      showmessage('基本工资不能为空！');
      self.edtJBYGZ.SetFocus ;
      exit;
    end;
  with dm.qrygongzhong do
     begin
      Append; //添加一条记录
      FieldValues ['gz']:=self.edtAddGZ.Text ;
      FieldValues ['jbgz']:=self.edtJBYGZ.Text;
      post;
  end;
   edtAddGZ.Text :='';
   edtJBYGZ.text:='0';
   edtAddGZ.SetFocus;
end;

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

procedure TfrmGongZhong.Button1Click(Sender: TObject);
var
str1,str2:string;
begin
    str1:=frmMain.Form1.dbgGZ.SelectedField.AsString;
  { // showmessage(str1);
    str2:='select jbgz from gz where gz='+str1;
    dm.qrygongzhong.SQL.Add(str2);
    dm.qrygongzhong.ExecSQL;
 //   self.edtJBYGZ.Text :=
    // showmessage(inttostr(dm.qrygongzhong.ExecSQL));}
    dm.qrygongzhong.Close;
    dm.qrygongzhong.SQL.Clear;
    str2:='insert into gz(gz,jbgz) values ('+self.edtAddGZ.Text +','+self.edtJBYGZ.Text+')';
    dm.qrygongzhong.SQL.Add(str2);
    dm.qrygongzhong.ExecSQL;
    SqlGongZhong;
end;

procedure TfrmGongZhong.FormShow(Sender: TObject);
begin
     if frmMain.Judge then
        begin
           edtAddGZ.Text :='';
           edtJBYGZ.Text :='';
           edtAddGZ.SetFocus;
        end
     else
        begin
           {self.edtAddGZ.Text :=frmMain.Form1.dbgGZ.SelectedField.AsString;
           self.edtAddGZ.SetFocus;}
           edtAddGZ.Text :=frmmain.Form1.dbgGZ.Fields[0].AsString;
           edtJBYGZ.Text :=frmMain.Form1.dbgGZ.Fields[1].AsString;
        end;
end;

procedure TfrmGongZhong.dbnGZClick(Sender: TObject; Button: TNavigateBtn);
begin
    edtAddGZ.Text :=frmmain.Form1.dbgGZ.Fields[0].AsString;
    edtJBYGZ.Text :=frmMain.Form1.dbgGZ.Fields[1].AsString;
end;

end.