gssr.pas

制造企业工时定额管理之录入

unit gssr;

interface

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

type
  TgssrForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label30: TLabel;
    Label36: TLabel;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    gs_cpYd: TEdit;
    gs_cpHg: TEdit;
    gs_cpHy: TEdit;
    gs_cpLf: TEdit;
    gs_cpSd: TEdit;
    gs_cpXj: TEdit;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    gs_elCp: TEdit;
    gs_elCpSd: TEdit;
    GroupBox4: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    gs_elfCp: TEdit;
    gs_elfCpSd: TEdit;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    gs_bcCp: TEdit;
    gs_bcCpSd: TEdit;
    GroupBox7: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    gs_bcfCp: TEdit;
    gs_bcfCpSd: TEdit;
    GroupBox8: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label20: TLabel;
    gs_ssQq: TEdit;
    gs_ssTg: TEdit;
    gs_ssGf: TEdit;
    gs_ssXj: TEdit;
    GroupBox9: TGroupBox;
    Label21: TLabel;
    Label22: TLabel;
    gs_scRw: TEdit;
    gs_scRwSd: TEdit;
    Panel4: TPanel;
    Bevel1: TBevel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    gs_zwc: TEdit;
    gs_zsd: TEdit;
    gs_ts: TEdit;
    gs_tsSd: TEdit;
    GroupBox10: TGroupBox;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    gs_yb: TEdit;
    gs_tx: TEdit;
    gs_jb: TEdit;
    Panel5: TPanel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    gs_Name: TEdit;
    gs_gz: TEdit;
    gs_gzID: TEdit;
    gs_zgID: TComboBox;
    gs_dwName: TEdit;
    RadioGroup1: TRadioGroup;
    ComboBox1: TComboBox;
    TabSheet2: TTabSheet;
    ComboBox2: TComboBox;
    Label19: TLabel;
    Label18: TLabel;
    GroupBox11: TGroupBox;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Label35: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    GroupBox12: TGroupBox;
    Label37: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    DBNavigator2: TDBNavigator;
    DBGrid2: TDBGrid;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;

    gs_GsTime: TEdit;
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure gs_zgIDChange(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);

    procedure gs_cpYdExit(Sender: TObject);
    procedure gs_cpHgExit(Sender: TObject);
    procedure gs_cpHyExit(Sender: TObject);
    procedure gs_cpLfExit(Sender: TObject);
    procedure gs_cpSdExit(Sender: TObject);
    procedure gs_ssQqExit(Sender: TObject);
    procedure gs_ssTgExit(Sender: TObject);
    procedure gs_ssGfExit(Sender: TObject);
    procedure gs_elCpExit(Sender: TObject);
    procedure gs_elCpSdExit(Sender: TObject);
    procedure gs_elfCpExit(Sender: TObject);
    procedure gs_elfCpSdExit(Sender: TObject);
    procedure gs_scRwExit(Sender: TObject);
    procedure gs_scRwSdExit(Sender: TObject);
    procedure gs_ybExit(Sender: TObject);
    procedure gs_txExit(Sender: TObject);
    procedure gs_jbExit(Sender: TObject);
    procedure gs_bcCpExit(Sender: TObject);
    procedure gs_bcCpSdExit(Sender: TObject);
    procedure gs_bcfCpExit(Sender: TObject);
    procedure gs_bcfCpSdExit(Sender: TObject);
    
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox2Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);

    procedure gs_cpXjChange(Sender: TObject);
    procedure gs_tsChange(Sender: TObject);

    procedure gs_tsSdChange(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure gs_GsTimeExit(Sender: TObject);
    procedure gs_GsTimeKeyPress(Sender: TObject; var Key: Char);
    
  private
    { Private declarations }
    procedure ENA;//新增或修改记录的时候使所有的控件可用
    procedure DIS;//保存记录后使所有的控件不可用
    procedure NEW;
    function CanSave:Boolean; //Justify at present added or modified records can save or not
    function CanSaveD:Boolean;
    procedure Posting;
    procedure PostingD; //Commit to a unit.
    procedure Jisuan1;  //产品工时小计
    procedure Jisuan2;  //损失工时小计
    procedure Jisuan3;  //计算台时工时
    procedure ZwcJisuan; //计算总完成工时
    procedure TsSdJisuan;//计算台时实动工时
    procedure ZsdJisuan; //计算总实动工时
  public
    { Public declarations }

  end;

var
  gssrForm: TgssrForm;
  year,month,day:word;

implementation
 uses frmMain,dataUnit,PublicFunction, danwei;

{$R *.dfm}

function TgssrForm.Cansave:Boolean;
begin
  if(gs_zgID.Text<>'')and(ComboBox1.Text<>'') then
    begin
     Result:=True;
    end
  else
    begin
     Result:=false;
     Myerror('信息不全，无法保存。请核对之后再保存！');
    end;
end;

function TgssrForm.CansaveD:Boolean;
begin
  if(ComboBox1.Text<>'') and (gs_gsTime.Text<>'')//and(gs_gzID.Text<>'')and(gs_gz.Text<>'')
  then
    begin
     Result:=True;
    end
  else
    begin
     Result:=false;
     Myerror('信息不全，无法保存。请核对之后再保存！');
    end;
end;

procedure TgssrForm.NEW;
var
 i:integer;
begin
  for i:=ComponentCount-1 downto 0 do
  begin
    if(Components[i] is TEdit)then
    begin
      TEdit(Components[i]).Color:=clWindow;
      TEdit(Components[i]).Clear;
      TEdit(Components[i]).ReadOnly:=false;
    end;
    if(Components[i] is TComboBox) then
    begin
      TComboBox(Components[i]).Color:=clWindow;
      TComboBox(Components[i]).Clear;
    end;
  end;
  gs_gzID.ReadOnly:=True;
  gs_gzID.Color:=$00D8D8D8;
  gs_Name.ReadOnly:=True;
  gs_Name.Color:=$00D8D8D8;
  gs_gz.ReadOnly:=true;
  gs_gz.Color:=$00D8D8D8;
  gs_cpXj.ReadOnly:=true;
  gs_cpXj.Color:=$00D8D8D8;
  gs_ssXj.ReadOnly:=true;
  gs_ssXj.Color:=$00D8D8D8;
  gs_zwc.ReadOnly:=true;
  gs_zwc.Color:=$00D8D8D8;
  gs_zsd.ReadOnly:=true;
  gs_zsd.Color:=$00D8D8D8;
  gs_ts.ReadOnly :=true;
  gs_ts.Color :=$00D8D8D8;
  gs_tsSd.ReadOnly:=true;
  gs_tsSd.Color:=$00D8D8D8;

  DecodeDate(now,year,month,day);
  gs_GsTime.Text:=inttostr(year)+'年'+inttostr(month)+'月';

  BitBtn1.Enabled:=false;  //“新增”不可用
  BitBtn2.Enabled:=false;  //“修改”不可用
  BitBtn3.Enabled:=true;   //“存储”可用
  BitBtn4.Enabled:=true;   //“取消”可用
end;

procedure TgssrForm.ENA;
var
 i:integer;
begin
  for i:=ComponentCount-1 downto 0 do
  begin
    if(Components[i] is TEdit)then
    begin
      TEdit(Components[i]).Color:=clWindow;
      TEdit(Components[i]).ReadOnly:=false;
    end;
    if(Components[i] is TComboBox) then
      TComboBox(Components[i]).Color:=clWindow;
  end;
  gs_gzID.ReadOnly:=True;
  gs_gzID.Color:=$00D8D8D8;
  gs_Name.ReadOnly:=True;
  gs_Name.Color:=$00D8D8D8;
  gs_gz.ReadOnly:=true;
  gs_gz.Color:=$00D8D8D8;
  gs_cpXj.ReadOnly:=true;
  gs_cpXj.Color:=$00D8D8D8;
  gs_ssXj.ReadOnly:=true;
  gs_ssXj.Color:=$00D8D8D8;
  gs_zwc.ReadOnly:=true;
  gs_zwc.Color:=$00D8D8D8;
  gs_zsd.ReadOnly:=true;
  gs_zsd.Color:=$00D8D8D8;
  gs_ts.ReadOnly :=true;
  gs_ts.Color :=$00D8D8D8;
  gs_tsSd.ReadOnly:=true;
  gs_tsSd.Color:=$00D8D8D8;

  BitBtn1.Enabled:=false;  //“新增”不可用
  BitBtn2.Enabled:=false;  //“修改”不可用
  BitBtn3.Enabled:=true;   //“存储”可用
  BitBtn4.Enabled:=true;   //“取消”可用
end;

procedure TgssrForm.DIS;
var
  i:integer;
begin
  for i:=ComponentCount-1 downto 0 do
  begin
    if(Components[i] is TEdit) then
    begin
      TEdit(Components[i]).Color:=$00D8D8D8;
      TEdit(Components[i]).ReadOnly:=true;
    end;
    if(Components[i] is TComboBox)then
      TComboBox(Components[i]).Color:=$00D8D8D8;
  end;
    BitBtn1.Enabled:=true;
    BitBtn2.Enabled:=true;
    BitBtn3.Enabled:=false;
    BitBtn4.Enabled:=false;
end;

procedure TgssrForm.ComboBox1DropDown(Sender: TObject);
var
  i:integer;
begin
  ComboBox1.Clear;
  with dm.GetdwID do
  begin
    Close;
    prepared:=false;
    prepared:=true;
    open;
    if(RecordCount>0)then
      first;
    for i:=0 to RecordCount-1 do
    begin
      ComboBox1.Items.Add(FieldByName('dwID').AsString);
      next;
    end;
  end;
end;

procedure TgssrForm.ComboBox1Change(Sender: TObject);
var
  i:integer;
begin
   if RadioGroup1.ItemIndex>=0 then
     RadioGroup1.ItemIndex:=-1;
  with dm.Qytemp1 do
  begin
    Close;
    CommandText:='SELECT dwName FROM dwInfo where dwID=:dwID';
    Parameters.ParamByName('dwID').Value:=ComboBox1.Text;
    Open;
  end;
  gs_dwName.Text:=dm.Qytemp1.FieldByName('dwName').AsString;
  ComboBox2.Clear;
  with dm.Qytemp4 do
  begin
    Close;
    CommandText:='SELECT BanzuName FROM Banzu where dwID=:dwID';
    Parameters.ParamByName('dwID').Value:=ComboBox1.Text;
    Open;
      if(RecordCount>0)then
        first;
      for i:=0 to RecordCount-1 do
      begin
        ComboBox2.Items.Add(FieldByName('BanzuName').AsString);
        next;
      end;
  end;
end;

procedure TgssrForm.RadioGroup1Click(Sender: TObject);
var
  i:integer;
begin
  if RadioGroup1.ItemIndex=1 then
    Panel5.Enabled:=false
  else
    begin
      Panel5.Enabled:=true;
      gs_zgID.Clear;
      with dm.Qytemp2 do
      begin
        Close;
        CommandText:='SELECT zgID FROM workerInfo where BanzuName=:BanzuName and dwID=:dwID';
        Parameters.ParamByName('BanzuName').Value:=ComboBox2.Text;
        Parameters.ParamByName('dwID').Value:=trim(ComboBox1.Text); 
        Open;
        if(RecordCount>0)then
        first;
        for i:=0 to RecordCount-1 do
        begin
          gs_zgID.Items.Add(FieldByName('zgID').AsString);
          next;
        end;
      end;
    end;
end;

procedure TgssrForm.gs_zgIDChange(Sender: TObject);
begin