worker_unt.pas

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

unit Worker_Unt;

interface

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

type
  TWorker_Frm = class(TDataEdit_BaseFrm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    DBEdit3: TDBEdit;
    MineEquip_DataS: TDataSource;
    DrillEquip_DataS: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Worker_Frm: TWorker_Frm;

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

procedure TWorker_Frm.FormCreate(Sender: TObject);
var
str:string;
begin
  inherited;
  str:=Base_DataS.DataSet.FieldByName('WorkGroup_Type').value;
  if (strpos(PChar(str),PChar('采'))<>nil)or(strpos(PChar(str),PChar('综'))<>nil) then
    begin
      DBLookUpComboBox1.ListSource:=MineEquip_DataS;
      DBLookUpComboBox1.KeyField:='MineEquip_Id';
      DBLookUpComboBox1.ListField:='MineEquip_Id';
      exit;
    end;
  if strpos(Pchar(str),Pchar('掘'))<>nil then
    begin
      DBLookUpComboBox1.ListSource:=DrillEquip_DataS;
      DBLookUpComboBox1.KeyField:='DrillEquip_Id';
      DBLookUpComboBox1.ListField:='DrillEquip_Id';
      exit;
    end;
  DBLookUpComboBox1.ListSource:=MineEquip_DataS;
  DBLookUpComboBox1.KeyField:='MineEquip_Id';
  DBLookUpComboBox1.ListField:='MineEquip_Id';
  Base_DataS.DataSet.FieldByName('Equip').Value:=-1;
end;

procedure TWorker_Frm.BitBtn8Click(Sender: TObject);
begin
  inherited;
  DBComboBox1.SetFocus;
end;

procedure TWorker_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,'WorkGroup_Id');
    Base_DataS.DataSet.Append;
    Base_DataS.DataSet.FieldByName('WorkGroup_Id').Value:=LastId+1;
  except
    showmessage('数据库未连接正确！');
  end;
  DBComboBox1.SetFocus;
end;

procedure TWorker_Frm.BitBtn3Click(Sender: TObject);
begin
  if VarIsNull(Base_DataS.DataSet.FieldByName('WorkGroup_Type').Value)
    then
      begin
        showmessage('请输入区队对应的工作类型！');
        BitBtn3.Enabled:=true;
        DBComboBox1.Enabled:=true;
        DBComboBox1.SetFocus;
        exit;
      end;
  if VarIsNull(Base_DataS.DataSet.FieldByName('WorkGroup_Name').Value)
    then
      begin
        showmessage('请确定区队的名称!');
        BitBtn3.Enabled:=true;
        DBComboBox2.Enabled:=true;
        DBComboBox2.SetFocus;
        exit;
      end;
  if VarIsNull(Base_DataS.DataSet.FieldByName('Equip').Value)
    then
      begin
        if messagedlg('您确定这个区队不需要装备吗？',
                mtConfirmation,[mbyes,mbno],0)=mryes then
           Base_DataS.DataSet.FieldByName('Equip').Value:=-1;
        BitBtn3.Enabled:=true;
        DBLookUpComboBox1.Enabled:=true;
        DBLookUpComboBox1.SetFocus;
        exit;
      end;
  inherited;

end;

procedure TWorker_Frm.DBComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then DBComboBox2.SetFocus;

end;

procedure TWorker_Frm.DBComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then DBEdit1.SetFocus;

end;

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

end;

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

end;

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

end;

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

end.