worksysinfo_unt.pas

煤矿行业采掘接替计划自动生成系统

unit WorkSysInfo_Unt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DataEdit_BaseUnt, DB, Grids, DBGrids, StdCtrls, Buttons,
  ExtCtrls, Mask, DBCtrls;

type
  TWorkSysInfo_Frm = class(TDataEdit_BaseFrm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WorkSysInfo_Frm: TWorkSysInfo_Frm;

implementation
uses Data_Unt,Tools_Unt;
{$R *.dfm}

procedure TWorkSysInfo_Frm.BitBtn8Click(Sender: TObject);
begin
  inherited;
DBEdit1.SetFocus;
end;

procedure TWorkSysInfo_Frm.BitBtn1Click(Sender: TObject);
var
LastId:integer;
begin
  inherited;
  try
    if Base_DataS.DataSet.RecordCount=0 then LastId:=0
       else LastId:=GetLastRecId(Base_DataS.DataSet,'Sys_Id');
    Base_DataS.DataSet.Append;
    Base_DataS.DataSet.FieldByName('Sys_Id').Value:=LastId+1;
  except
    showmessage('数据库未连接正确！');
  end;
  DBEdit1.SetFocus;
end;

procedure TWorkSysInfo_Frm.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then DBEdit2.SetFocus;

end;

procedure TWorkSysInfo_Frm.DBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then DBEdit3.SetFocus;

end;

procedure TWorkSysInfo_Frm.DBEdit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then BitBtn3.SetFocus;

end;

procedure TWorkSysInfo_Frm.FormResize(Sender: TObject);
begin
  inherited;
  Label1.Width:=Label1.Width+60;
  Label1.Top:=Label1.Top-15;
  Label2.Width:=Label2.Width+60;
  Label2.Top:=Label2.Top-15;
  Label3.Width:=Label3.Width+60;
  Label3.Top:=Label3.Top-15;
end;

end.