tjdwfrm.pas

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

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.