dwqktjfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 269 行

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,'人数输入错误，总人数不能小于干部数和士官数之和。','营房工作管理系统',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,'单位代码或单位名称发生重复，请重新输入单位代码和单位名称。','营房工作管理系统',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('部队代号').AsString:=dwqktj.Edit3.Text;
              yfgldata.dwqk.fieldbyname('单位地址').AsString:=dwqktj.Edit4.Text;
              yfgldata.dwqk.fieldbyname('单位性质').AsString:=dwqktj.Edit5.Text;
              yfgldata.dwqk.fieldbyname('隶属关系').AsString:=dwqktj.Edit6.Text;
              yfgldata.dwqk.fieldbyname('供应关系').AsString:=dwqktj.Edit7.Text;
              yfgldata.dwqk.fieldbyname('联勤关系').AsString:=dwqktj.Edit8.Text;
              yfgldata.dwqk.fieldbyname('部队类别').AsString:=dwqktj.Edit9.Text;
              yfgldata.dwqk.fieldbyname('单位级别').AsString:=dwqktj.Edit10.Text;
              yfgldata.dwqk.fieldbyname('上级单位代码').AsString:=dwqktj.Edit11.Text;
              yfgldata.dwqk.fieldbyname('地区代码').AsString:=dwqktj.Edit12.Text;
              yfgldata.dwqk.fieldbyname('邮编').AsString:=dwqktj.Edit13.Text;
              yfgldata.dwqk.fieldbyname('总人数').AsInteger:=dwqktj.DBNumberEditEh3.Value;
              yfgldata.dwqk.fieldbyname('干部数').AsInteger:=dwqktj.DBNumberEditEh4.Value;
              yfgldata.dwqk.fieldbyname('士官数').AsInteger:=dwqktj.DBNumberEditEh5.Value;
              yfgldata.dwqk.fieldbyname('单位用房').AsInteger:=dwqktj.DBNumberEditEh1.Value;
              yfgldata.dwqk.fieldbyname('公寓房').AsInteger:=dwqktj.DBNumberEditEh2.Value;
              yfgldata.dwqk.fieldbyname('变更依据').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,'单位代码或单位名称发生重复，请重新输入单位代码和单位名称。','营房工作管理系统',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('部队代号').AsString:=dwqktj.Edit3.Text;
              yfgldata.dwqk.fieldbyname('单位地址').AsString:=dwqktj.Edit4.Text;
              yfgldata.dwqk.fieldbyname('单位性质').AsString:=dwqktj.Edit5.Text;
              yfgldata.dwqk.fieldbyname('隶属关系').AsString:=dwqktj.Edit6.Text;
              yfgldata.dwqk.fieldbyname('供应关系').AsString:=dwqktj.Edit7.Text;
              yfgldata.dwqk.fieldbyname('联勤关系').AsString:=dwqktj.Edit8.Text;
              yfgldata.dwqk.fieldbyname('部队类别').AsString:=dwqktj.Edit9.Text;
              yfgldata.dwqk.fieldbyname('单位级别').AsString:=dwqktj.Edit10.Text;
              yfgldata.dwqk.fieldbyname('上级单位代码').AsString:=dwqktj.Edit11.Text;
              yfgldata.dwqk.fieldbyname('地区代码').AsString:=dwqktj.Edit12.Text;
              yfgldata.dwqk.fieldbyname('邮编').AsString:=dwqktj.Edit13.Text;
              yfgldata.dwqk.fieldbyname('总人数').AsInteger:=dwqktj.DBNumberEditEh3.Value;
              yfgldata.dwqk.fieldbyname('干部数').AsInteger:=dwqktj.DBNumberEditEh4.Value;
              yfgldata.dwqk.fieldbyname('士官数').AsInteger:=dwqktj.DBNumberEditEh5.Value;
              yfgldata.dwqk.fieldbyname('单位用房').AsInteger:=dwqktj.DBNumberEditEh1.Value;
              yfgldata.dwqk.fieldbyname('公寓房').AsInteger:=dwqktj.DBNumberEditEh2.Value;
              yfgldata.dwqk.fieldbyname('变更依据').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,'单位代码、单位名称、部队代号、单位地址、部队类别和单位级别不能为空值。','营房工作管理系统',16);
    dwqktj.Edit1.SetFocus;
  end;
end;

end.