xgdwfrm.pas

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

unit xgdwfrm;

interface

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

type
  Txgdw = class(TForm)
    Panel1: TPanel;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Panel7: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label13: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    Memo1: TMemo;
    DBNumberEditEh1: TDBNumberEditEh;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    DBNumberEditEh2: TDBNumberEditEh;
    DBNumberEditEh3: TDBNumberEditEh;
    DBNumberEditEh4: TDBNumberEditEh;
    DBNumberEditEh5: TDBNumberEditEh;
    DBNumberEditEh6: TDBNumberEditEh;
    DBNumberEditEh7: TDBNumberEditEh;
    DBNumberEditEh8: TDBNumberEditEh;
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xgdw: Txgdw;
  

implementation

uses datafrm, yfglszhfrm;
{$R *.dfm}

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

procedure Txgdw.SpeedButton12Click(Sender: TObject);
begin
if (trim(xgdw.Edit1.Text)<>'') and (trim(xgdw.Edit2.Text)<>'') and (trim(xgdw.Edit3.Text)<>'') then
  begin
  yfgldata.dw.Edit;
  yfgldata.dw.FieldByName('单位代码').AsString:=trim(xgdw.Edit1.Text);
  yfgldata.dw.FieldByName('单位名称').AsString:=trim(xgdw.Edit2.Text);
  yfgldata.dw.FieldByName('标题').AsString:=trim(xgdw.Edit2.Text)+'('+trim(xgdw.Edit1.Text)+')';
  yfgldata.dw.FieldByName('单位责任人').AsString:=xgdw.Edit3.Text;
  yfgldata.dw.FieldByName('军职以上干部编制数').AsInteger:=xgdw.DBNumberEditEh1.Value;
  yfgldata.dw.FieldByName('师职干部编制数').AsInteger:=xgdw.DBNumberEditEh2.Value;
  yfgldata.dw.FieldByName('团职干部编制数').AsInteger:=xgdw.DBNumberEditEh3.Value;
  yfgldata.dw.FieldByName('营职干部编制数').AsInteger:=xgdw.DBNumberEditEh4.Value;
  yfgldata.dw.FieldByName('连排职干部编制数').AsInteger:=xgdw.DBNumberEditEh5.Value;
  yfgldata.dw.FieldByName('学员人数').AsInteger:=xgdw.DBNumberEditEh6.Value;
  yfgldata.dw.FieldByName('战士编制数').AsInteger:=xgdw.DBNumberEditEh7.Value;
  yfgldata.dw.FieldByName('职工编制数').AsInteger:=xgdw.DBNumberEditEh8.Value;
  yfgldata.dw.FieldByName('电话').AsString:=trim(xgdw.Edit4.Text);
  yfgldata.dw.FieldByName('备注').AsString:=xgdw.Memo1.Lines.Text;
  yfgldata.dw.Post;
  if trim(yfgldata.dw.FieldByName('上级代码').AsString)='' then
    begin
      yfglszh.szh.Edit;
      yfglszh.szh.FieldByName('单位').AsString:=trim(xgdw.Edit2.Text);
      yfglszh.szh.Post;
    end;
  close;
  end
else
  messagebox(xgdw.handle,'单位名称与单位责任人不能为空值。','营房工作管理系统',16);
end;

end.