📄 unit_modeinput.pas

📁 此代码为企业原料管理代码
💻 PAS
字号:
unit Unit_modeinput;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, StdCtrls, Mask, DBCtrls, Db, DBTables, Grids, DBGrids;

type
  TForm_modeinput = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Panel2: TPanel;
    Button4: TButton;
    Button3: TButton;
    Button2: TButton;
    Button1: TButton;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Panel3: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Bevel1: TBevel;
    Panel12: TPanel;
    Edit1: TEdit;
    Panel4: TPanel;
    Button5: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    DBEdit10: TDBEdit;
    Label1: TLabel;
    Edit4: TEdit;
    Button6: TButton;
    Bevel2: TBevel;
    Panel13: TPanel;
    DBEdit2: TDBEdit;
    Panel14: TPanel;
    Panel15: TPanel;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Bevel3: TBevel;
    DBEdit13: TDBEdit;
    DateTimePicker1: TDateTimePicker;
    procedure DBEdit10Enter(Sender: TObject);
    procedure DBEdit1Enter(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
    procedure DBEdit8Enter(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBEdit3Enter(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit4Enter(Sender: TObject);
    //procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
    procedure Button6Click(Sender: TObject);
    procedure DateTimePicker1Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_modeinput: TForm_modeinput;
  t,v,yu:integer;
implementation

uses UnitQueryID;

{$R *.DFM}

procedure TForm_modeinput.DBEdit10Enter(Sender: TObject);
begin
  if t<>1 then
    begin
    showmessage('请按添加键或修改键！');
    Button1.SetFocus;
    exit;
    end;
  TDBEdit(Sender).color:=claqua;
  edit1.text:='';
  DBEdit10.text:='';
  frmCommQueryID.top:=200;//Form_dinginput.Height+Form_dinginput.top;
  frmCommQueryID.left:=200;//Form_dinginput.left;
  frmCommQueryID.PageControl1.ActivePageIndex:=1;
  frmCommQueryID.query1.open;
  frmCommQueryID.ActiveControl:=frmCommQueryID.dbgProdDictionary;
      // showmessage('通过');
  if frmCommQueryID.showmodal = mrok then
        begin
          Edit1.SetFocus;
          Edit1.text:=frmCommQueryID.query1.fieldbyname('ProdID').asstring;
          DBEdit10.text:=frmCommQueryID.query1.fieldbyname('prodname').asstring;
          Edit3.text:=frmCommQueryID.query1.fieldbyname('prodname').asstring;
          Edit2.text:=frmCommQueryID.query1.fieldbyname('figid').asstring;
        end;
        DBEdit4.SetFocus;
end;

procedure TForm_modeinput.DBEdit1Enter(Sender: TObject);
begin
    if t<>1 then
    begin
    showmessage('请按添加键或修改键！');
    Button1.SetFocus;
    exit;
    end;
    TDBEdit(Sender).color:=claqua;
    FrmcommqueryID.PageControl1.ActivePageIndex:=0;
    FrmcommqueryID.ActiveControl:=FrmcommqueryID.estaffID;
    if  FrmcommqueryID.showmodal=mrok then
     DBEdit1.text:=FrmcommqueryID.query3.fieldbyname('staffname').asstring;
     DBEdit10.SetFocus;
end;

procedure TForm_modeinput.FormShow(Sender: TObject);
begin
 //table1.Filtered:=true;
 Button1.Enabled:=true;
 Button2.Enabled:=true;
 Button3.Enabled:=true;
 Button6.Enabled:=true;
 DateTimePicker1.Date:=date;
 Button4.Enabled:=false;
 yu:=0;
 t:=0;
 v:=0;
 table1.Filtered:=true;
 table1.Open;
end;

procedure TForm_modeinput.Button1Click(Sender: TObject);
begin
 t:=1;
 edit4.Text:='';
 Button4.Enabled:=true;
 Button1.Enabled:=false;
 Button2.Enabled:=false;
 Button3.Enabled:=false;
 Button6.Enabled:=false;
 table1.open;
 table1.Append;
 DBEdit1.SetFocus;
 table1.disablecontrols;
end;

procedure TForm_modeinput.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
  end; //if
end;

procedure TForm_modeinput.Button4Click(Sender: TObject);
begin
   if (DBEdit4.text = '') or (DBEdit1.text = '') or (DBEdit6.text = '') or (DBEdit10.text = '') then
  begin
    showmessage('必须填写“姓名”、“产品名称”、“领坯数”、“合格品数”等栏目！');
    exit;
  end;//if
  if t=1 then
   begin
    DBEdit13.text:=formatdatetime('yy"-"mm',DateTimePicker1.date);
    table1.fieldbyname('tmonth').asstring:=DBEdit13.text;
    table1.fieldbyname('riqi').asdatetime:=DateTimePicker1.date;
    table1.fieldbyname('prodid').asstring:=Edit1.Text;
    table1.fieldbyname('figid').asstring:=Edit2.Text;
    table1.fieldbyname('prodname').asstring:=Edit3.Text;
    table1.post;
    table1.enablecontrols;
    table1.Close;
    table1.Filtered:=false;
    table1.Filtered:=true;
    table1.open;
    Button6.Enabled:=true;
    Button4.Enabled:=false;
    Button1.Enabled:=true;
    Button2.Enabled:=true;
    Button3.Enabled:=true;
   end;
    //Button8.Enabled:=true;
   if t=0 then
    showmessage('请先按“添加”或“修改”按键！');
    t:=0;
  end;

procedure TForm_modeinput.DBEdit8Enter(Sender: TObject);
begin
   if t<>1 then
    begin
    showmessage('请按添加键或修改键！');
    exit;
    end;
    TDBEdit(Sender).color:=claqua;
    FrmcommqueryID.PageControl1.ActivePageIndex:=0;
    FrmcommqueryID.ActiveControl:=FrmcommqueryID.estaffID;
    if  FrmcommqueryID.showmodal=mrok then
      DBEdit8.text:=FrmcommqueryID.query3.fieldbyname('staffname').asstring;
end;

procedure TForm_modeinput.Button5Click(Sender: TObject);
begin
 close;
end;

procedure TForm_modeinput.Button2Click(Sender: TObject);
begin

  if v<>1 then
   begin
    showmessage('请选择要删除的记录！');
    exit;
    end;
  if messagedlg('会删除所选记录 要继续吗？',mtWarning,[mbYes,mbNo],0) = mrNo then
    begin
    v:=0;
    exit;
    end;
    table1.open;
    table1.Delete;
end;

procedure TForm_modeinput.DBGrid1CellClick(Column: TColumn);
begin
  v:=1;
  DateTimePicker1.Date:=table1.fieldbyname('riqi').asdatetime;
  Edit1.Text:=table1.fieldbyname('prodid').asstring;
  Edit2.Text:=table1.fieldbyname('figid').asstring;
  Edit3.Text:=table1.fieldbyname('prodname').asstring;

end;

procedure TForm_modeinput.DBEdit3Enter(Sender: TObject);
begin
  if t<>1 then
    begin
    showmessage('请按添加键或修改键！');
    Button1.SetFocus;
    exit;
    end;
    TDBEdit(Sender).color:=claqua;
end;

procedure TForm_modeinput.Button3Click(Sender: TObject);
begin
  
   if v<>1 then
   begin
    showmessage('请选择要修改的记录！');
    exit;
    end;
   // table1.Filtered:=false;
  t:=1;
   Button4.Enabled:=true;
   Button1.Enabled:=false;
   Button2.Enabled:=false;
   Button3.Enabled:=false;
   Button6.Enabled:=false;
   table1.open;
   table1.Edit;
   v:=0;
end;

procedure TForm_modeinput.DBEdit1Exit(Sender: TObject);
begin
 TDBEdit(Sender).color:=clwindow;
end;

procedure TForm_modeinput.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 table1.Filtered:=false;
 table1.Close;
end;

procedure TForm_modeinput.Edit4Enter(Sender: TObject);
begin
    table1.Close;
    Edit4.text:='';
   // TDBEdit(Sender).color:=claqua;
    FrmcommqueryID.PageControl1.ActivePageIndex:=0;
    FrmcommqueryID.ActiveControl:=FrmcommqueryID.estaffID;
    if  FrmcommqueryID.showmodal=mrok then
     Edit4.text:=FrmcommqueryID.query3.fieldbyname('staffname').asstring;
end;

procedure TForm_modeinput.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  tr,rt:string;
begin
  if Edit4.text='' then
  begin
   tr:=formatdatetime('yy-mm-dd',table1.FieldByName('riqi').asdatetime);
   rt:=formatdatetime('yy-mm-dd',DateTimePicker1.date);
   if tr = rt then
 Accept:=true
 else
 Accept:=false;
  end
  else
  begin
  if(table1.FieldByName('name').asstring = Edit4.text) then
  Accept:=true
  else
 Accept:=false;
  end;
end;

procedure TForm_modeinput.Button6Click(Sender: TObject);
begin
 if edit4.text='' then
 begin
 showmessage('请输入职工姓名！');
 exit;
 end;
 table1.Filtered:=false;
 table1.close;
 table1.Filtered:=true;
 table1.open;

end;

procedure TForm_modeinput.DateTimePicker1Click(Sender: TObject);
begin
 if t=1 then
 begin
 showmessage('现在是添加记录操作，要修改时间，提交后，'+#13+'删除该记录，选择好时间，再重新输入一次！');
 exit;
 end;
 edit4.text:='';
table1.Filtered:=false;
 table1.close;
 DateTimePicker1.Date:=DateTimePicker1.Date-1;
 table1.Filtered:=true;
 table1.open;
end;

procedure TForm_modeinput.DateTimePicker1Change(Sender: TObject);
begin
  if t=1 then
 begin
 showmessage('现在是添加记录操作，要修改时间，提交后，'+#13+'删除该记录，选择好时间，再重新输入一次！');
 exit;
 end;
  edit4.text:='';
  table1.Filtered:=false;
  table1.Close;
  table1.Filtered:=true;
  table1.Open;
end;

end.
💿 文件大小 8641 K
👤 上传用户 zxyxwd6
📂 所属分类企业管理
🏷️ 相关标签

#代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -