unit dwqktjfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, Mask, db,DBCtrlsEh, ExtCtrls, Buttons;

type
  Tdwqktj = class(TForm)
    Panel4: TPanel;
    Label9: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label1: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    GroupBox1: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Panel2: TPanel;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    DBNumberEditEh3: TDBNumberEditEh;
    DBNumberEditEh4: TDBNumberEditEh;
    DBNumberEditEh5: TDBNumberEditEh;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit9: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    tj:boolean;
    dm:string;
  end;

var
  dwqktj: Tdwqktj;

implementation
uses datafrm,dwqkfrm;
{$R *.dfm}

procedure Tdwqktj.SpeedButton13Click(Sender: TObject);
begin
close;
end;

procedure Tdwqktj.SpeedButton12Click(Sender: TObject);
var
  s1:integer;
begin
if (dwqktj.Edit1.Text<>'') and (dwqktj.Edit2.Text<>'') and (dwqktj.Edit3.Text<>'') and (dwqktj.Edit4.Text<>'') and (dwqktj.Edit9.Text<>'') and (dwqktj.Edit10.Text<>'') then
  begin
    s1:=dwqktj.DBNumberEditEh4.Value+dwqktj.DBNumberEditEh5.Value;
    if s1>dwqktj.DBNumberEditEh3.Value then
      begin
        messagebox(dwqktj.handle,'人數(shù)輸入錯(cuò)誤，總?cè)藬?shù)不能小于干部數(shù)和士官數(shù)之和。','營(yíng)房工作管理系統(tǒng)',16);
        dwqktj.DBNumberEditEh3.SetFocus;
      end
    else
      begin
        if dwqktj.tj then
          if yfgldata.dwqk.Locate('單位代碼',dwqktj.Edit1.Text,[loCaseInsensitive]) or yfgldata.dwqk.Locate('單位名稱',dwqktj.Edit2.Text,[loCaseInsensitive]) then
            begin
              messagebox(dwqktj.handle,'單位代碼或單位名稱發(fā)生重復(fù)，請(qǐng)重新輸入單位代碼和單位名稱。','營(yíng)房工作管理系統(tǒng)',16);
              dwqktj.Edit1.SetFocus;
            end
          else
            begin
              yfgldata.dwqk.Append;
              yfgldata.dwqk.fieldbyname('單位代碼').AsString:=dwqktj.Edit1.Text;
              yfgldata.dwqk.fieldbyname('單位名稱').AsString:=dwqktj.Edit2.Text;
              yfgldata.dwqk.fieldbyname('部隊(duì)代號(hào)').AsString:=dwqktj.Edit3.Text;
              yfgldata.dwqk.fieldbyname('單位地址').AsString:=dwqktj.Edit4.Text;
              yfgldata.dwqk.fieldbyname('單位性質(zhì)').AsString:=dwqktj.Edit5.Text;
              yfgldata.dwqk.fieldbyname('隸屬關(guān)系').AsString:=dwqktj.Edit6.Text;
              yfgldata.dwqk.fieldbyname('供應(yīng)關(guān)系').AsString:=dwqktj.Edit7.Text;
              yfgldata.dwqk.fieldbyname('聯(lián)勤關(guān)系').AsString:=dwqktj.Edit8.Text;
              yfgldata.dwqk.fieldbyname('部隊(duì)類別').AsString:=dwqktj.Edit9.Text;
              yfgldata.dwqk.fieldbyname('單位級(jí)別').AsString:=dwqktj.Edit10.Text;
              yfgldata.dwqk.fieldbyname('上級(jí)單位代碼').AsString:=dwqktj.Edit11.Text;
              yfgldata.dwqk.fieldbyname('地區(qū)代碼').AsString:=dwqktj.Edit12.Text;
              yfgldata.dwqk.fieldbyname('郵編').AsString:=dwqktj.Edit13.Text;
              yfgldata.dwqk.fieldbyname('總?cè)藬?shù)').AsInteger:=dwqktj.DBNumberEditEh3.Value;
              yfgldata.dwqk.fieldbyname('干部數(shù)').AsInteger:=dwqktj.DBNumberEditEh4.Value;
              yfgldata.dwqk.fieldbyname('士官數(shù)').AsInteger:=dwqktj.DBNumberEditEh5.Value;
              yfgldata.dwqk.fieldbyname('單位用房').AsInteger:=dwqktj.DBNumberEditEh1.Value;
              yfgldata.dwqk.fieldbyname('公寓房').AsInteger:=dwqktj.DBNumberEditEh2.Value;
              yfgldata.dwqk.fieldbyname('變更依據(jù)').AsString:=dwqktj.Edit14.Text;
              yfgldata.dwqk.Post;
              dwqk.showbutton;
              close;
            end
        else
          if ((yfgldata.dwqk.FieldByName('單位代碼').AsString<>dwqktj.Edit1.Text) and yfgldata.dwqk.Locate('單位代碼',dwqktj.Edit1.Text,[loCaseInsensitive])) or ((yfgldata.dwqk.FieldByName('單位名稱').AsString<>dwqktj.Edit2.Text) and yfgldata.dwqk.Locate('單位名稱',dwqktj.Edit2.Text,[loCaseInsensitive])) then
            begin
              messagebox(dwqktj.handle,'單位代碼或單位名稱發(fā)生重復(fù)，請(qǐng)重新輸入單位代碼和單位名稱。','營(yíng)房工作管理系統(tǒng)',16);
              dwqktj.Edit1.SetFocus;
            end
          else
            begin
              yfgldata.dwqk.Locate('單位代碼',dwqktj.dm,[loCaseInsensitive]);
              yfgldata.dwqk.Edit;
              yfgldata.dwqk.fieldbyname('單位代碼').AsString:=dwqktj.Edit1.Text;
              yfgldata.dwqk.fieldbyname('單位名稱').AsString:=dwqktj.Edit2.Text;
              yfgldata.dwqk.fieldbyname('部隊(duì)代號(hào)').AsString:=dwqktj.Edit3.Text;
              yfgldata.dwqk.fieldbyname('單位地址').AsString:=dwqktj.Edit4.Text;
              yfgldata.dwqk.fieldbyname('單位性質(zhì)').AsString:=dwqktj.Edit5.Text;
              yfgldata.dwqk.fieldbyname('隸屬關(guān)系').AsString:=dwqktj.Edit6.Text;
              yfgldata.dwqk.fieldbyname('供應(yīng)關(guān)系').AsString:=dwqktj.Edit7.Text;
              yfgldata.dwqk.fieldbyname('聯(lián)勤關(guān)系').AsString:=dwqktj.Edit8.Text;
              yfgldata.dwqk.fieldbyname('部隊(duì)類別').AsString:=dwqktj.Edit9.Text;
              yfgldata.dwqk.fieldbyname('單位級(jí)別').AsString:=dwqktj.Edit10.Text;
              yfgldata.dwqk.fieldbyname('上級(jí)單位代碼').AsString:=dwqktj.Edit11.Text;
              yfgldata.dwqk.fieldbyname('地區(qū)代碼').AsString:=dwqktj.Edit12.Text;
              yfgldata.dwqk.fieldbyname('郵編').AsString:=dwqktj.Edit13.Text;
              yfgldata.dwqk.fieldbyname('總?cè)藬?shù)').AsInteger:=dwqktj.DBNumberEditEh3.Value;
              yfgldata.dwqk.fieldbyname('干部數(shù)').AsInteger:=dwqktj.DBNumberEditEh4.Value;
              yfgldata.dwqk.fieldbyname('士官數(shù)').AsInteger:=dwqktj.DBNumberEditEh5.Value;
              yfgldata.dwqk.fieldbyname('單位用房').AsInteger:=dwqktj.DBNumberEditEh1.Value;
              yfgldata.dwqk.fieldbyname('公寓房').AsInteger:=dwqktj.DBNumberEditEh2.Value;
              yfgldata.dwqk.fieldbyname('變更依據(jù)').AsString:=dwqktj.Edit14.Text;
              yfgldata.dwqk.Post;
              yfgldata.guolu.First;
              for s1:=1 to yfgldata.guolu.RecordCount do
                begin
                  if yfgldata.guolu.FieldByName('單位代碼').AsString=dm then
                    begin
                      yfgldata.guolu.Edit;
                      yfgldata.guolu.FieldByName('單位代碼').AsString:=dwqktj.Edit1.Text;
                      yfgldata.guolu.FieldByName('住用單位').AsString:=dwqktj.Edit2.Text;
                      yfgldata.guolu.Post;
                    end;
                  yfgldata.guolu.Next;
                end;
              yfgldata.guolu.First;
              yfgldata.gx.First;
              for s1:=1 to yfgldata.gx.RecordCount do
                begin
                  if yfgldata.gx.FieldByName('單位代碼').AsString=dm then
                    begin
                      yfgldata.gx.Edit;
                      yfgldata.gx.FieldByName('單位代碼').AsString:=dwqktj.Edit1.Text;
                      yfgldata.gx.FieldByName('住用單位').AsString:=dwqktj.Edit2.Text;
                      yfgldata.gx.Post;
                    end;
                  yfgldata.gx.Next;
                end;
              yfgldata.gx.First;
              yfgldata.xjyf.First;
              for s1:=1 to yfgldata.xjyf.RecordCount do
                begin
                  if yfgldata.xjyf.FieldByName('單位代碼').AsString=dm then
                    begin
                      yfgldata.xjyf.Edit;
                      yfgldata.xjyf.FieldByName('單位代碼').AsString:=dwqktj.Edit1.Text;
                      yfgldata.xjyf.FieldByName('住用單位').AsString:=dwqktj.Edit2.Text;
                      yfgldata.xjyf.Post;
                    end;
                  yfgldata.xjyf.Next;
                end;
              yfgldata.xjyf.First;
              yfgldata.yfda.First;
              for s1:=1 to yfgldata.yfda.RecordCount do
                begin
                  if yfgldata.yfda.FieldByName('單位代碼').AsString=dm then
                    begin
                      yfgldata.yfda.Edit;
                      yfgldata.yfda.FieldByName('單位代碼').AsString:=dwqktj.Edit1.Text;
                      yfgldata.yfda.FieldByName('住用單位').AsString:=dwqktj.Edit2.Text;
                      yfgldata.yfda.Post;
                    end;
                  yfgldata.yfda.Next;
                end;
              yfgldata.yfda.First;
              yfgldata.yffd.First;
              for s1:=1 to yfgldata.yffd.RecordCount do
                begin
                  if yfgldata.yffd.FieldByName('單位代碼').AsString=dm then
                    begin
                      yfgldata.yffd.Edit;
                      yfgldata.yffd.FieldByName('單位代碼').AsString:=dwqktj.Edit1.Text;
                      yfgldata.yffd.FieldByName('住用單位').AsString:=dwqktj.Edit2.Text;
                      yfgldata.yffd.Post;
                    end;
                  yfgldata.yffd.Next;
                end;
              yfgldata.yffd.First;
              yfgldata.yfsb.First;
              for s1:=1 to yfgldata.yfsb.RecordCount do
                begin
                  if yfgldata.yfsb.FieldByName('單位代碼').AsString=dm then
                    begin
                      yfgldata.yfsb.Edit;
                      yfgldata.yfsb.FieldByName('單位代碼').AsString:=dwqktj.Edit1.Text;
                      yfgldata.yfsb.FieldByName('住用單位').AsString:=dwqktj.Edit2.Text;
                      yfgldata.yfsb.Post;
                    end;
                  yfgldata.yfsb.Next;
                end;
              yfgldata.yfsb.First;
              yfgldata.yfwz.First;
              for s1:=1 to yfgldata.yfwz.RecordCount do
                begin
                  if yfgldata.yfwz.FieldByName('單位代碼').AsString=dm then
                    begin
                      yfgldata.yfwz.Edit;
                      yfgldata.yfwz.FieldByName('單位代碼').AsString:=dwqktj.Edit1.Text;
                      yfgldata.yfwz.FieldByName('住用單位').AsString:=dwqktj.Edit2.Text;
                      yfgldata.yfwz.Post;
                    end;
                  yfgldata.yfwz.Next;
                end;
              yfgldata.yfwz.First;
              yfgldata.yfzl.First;
              for s1:=1 to yfgldata.yfzl.RecordCount do
                begin
                  if yfgldata.yfzl.FieldByName('單位代碼').AsString=dm then
                    begin
                      yfgldata.yfzl.Edit;
                      yfgldata.yfzl.FieldByName('單位代碼').AsString:=dwqktj.Edit1.Text;
                      yfgldata.yfzl.FieldByName('住用單位').AsString:=dwqktj.Edit2.Text;
                      yfgldata.yfzl.Post;
                    end;
                  yfgldata.yfzl.Next;
                end;
              yfgldata.yfzl.First;
              dwqk.showbutton;
              close;
            end;
      end;
  end
else
  begin
    messagebox(dwqktj.handle,'單位代碼、單位名稱、部隊(duì)代號(hào)、單位地址、部隊(duì)類別和單位級(jí)別不能為空值。','營(yíng)房工作管理系統(tǒng)',16);
    dwqktj.Edit1.SetFocus;
  end;
end;

end.