unit tjdwfrm;

interface

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

type
  Ttjdw = 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 SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    str0:string;
  end;

var
  tjdw: Ttjdw;

implementation

uses datafrm;
{$R *.dfm}

procedure Ttjdw.SpeedButton12Click(Sender: TObject);
begin
if (trim(tjdw.Edit2.Text)<>'') and (trim(tjdw.Edit3.Text)<>'') then
  begin
  yfgldata.dw.Append;
  yfgldata.dw.FieldByName('上級代碼').AsString:=str0;
  yfgldata.dw.FieldByName('單位代碼').AsString:=trim(tjdw.Edit1.Text);
  yfgldata.dw.FieldByName('單位名稱').AsString:=trim(tjdw.Edit2.Text);
  yfgldata.dw.FieldByName('標題').AsString:=trim(tjdw.Edit2.Text)+'('+trim(tjdw.Edit1.Text)+')';
  yfgldata.dw.FieldByName('單位責任人').AsString:=tjdw.Edit3.Text;
  yfgldata.dw.FieldByName('軍職以上干部編制數').AsInteger:=tjdw.DBNumberEditEh1.Value;
  yfgldata.dw.FieldByName('師職干部編制數').AsInteger:=tjdw.DBNumberEditEh2.Value;
  yfgldata.dw.FieldByName('團職干部編制數').AsInteger:=tjdw.DBNumberEditEh3.Value;
  yfgldata.dw.FieldByName('營職干部編制數').AsInteger:=tjdw.DBNumberEditEh4.Value;
  yfgldata.dw.FieldByName('連排職干部編制數').AsInteger:=tjdw.DBNumberEditEh5.Value;
  yfgldata.dw.FieldByName('學員人數').AsInteger:=tjdw.DBNumberEditEh6.Value;
  yfgldata.dw.FieldByName('戰士編制數').AsInteger:=tjdw.DBNumberEditEh7.Value;
  yfgldata.dw.FieldByName('職工編制數').AsInteger:=tjdw.DBNumberEditEh8.Value;
  yfgldata.dw.FieldByName('電話').AsString:=trim(tjdw.Edit4.Text);
  yfgldata.dw.FieldByName('備注').AsString:=tjdw.Memo1.Lines.Text;
  yfgldata.dw.FieldByName('原始圖標').AsInteger:=0;
  yfgldata.dw.FieldByName('選擇圖標').AsInteger:=1;
  yfgldata.dw.FieldByName('靜止圖標').AsInteger:=-1;
  yfgldata.dw.Post;
  close;
  end
else
  messagebox(tjdw.handle,'單位名稱與單位責任人不能為空值。','營房工作管理系統',16);
end;

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

end.