mplan.~pas

来自「这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不」· ~PAS 代码 · 共 362 行

unit mplan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ttemplate, Menus, LabelButton, TradeImage, ComCtrls, ToolWin,
  StdCtrls, ExtCtrls, Grids, DBGrids, Mask, DBCtrls, Buttons, DB, ADODB,
  DBTables;

type
  Tf_mplan = class(Ttemplate2)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Label7: TLabel;
    Label8: TLabel;
    ADOCommand1: TADOCommand;
    BitBtn1: TBitBtn;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    Button1: TButton;
    Label3: TLabel;
    Label6: TLabel;
    procedure tiNewClick(Sender: TObject);
    procedure tiEditClick(Sender: TObject);
    procedure tiDeleteClick(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure tiFirstClick(Sender: TObject);
    procedure tiPriorClick(Sender: TObject);
    procedure tiNextClick(Sender: TObject);
    procedure tiLastClick(Sender: TObject);
    procedure tiLocateClick(Sender: TObject);
    procedure tiPrintClick(Sender: TObject);
    procedure SB_MRPClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ticancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_mplan: Tf_mplan;

implementation

uses datamodule, mpquery, Date;

{$R *.dfm}

procedure Tf_mplan.tiNewClick(Sender: TObject);
 var    {*****增加工具条快捷按钮单击事件*****}
    Serial:integer;
begin
  inherited;
dbgrid1.Enabled:=false;
 {DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(6); //当前活动记录下移到第三条记录
    Serial := DM.AT_Count['Count_Value'];
    dm.q_mplan.append;
    dm.q_mplan['Note_Code'] := Serial+1;}
  speedbutton1.Enabled:=true;
  dblookupcombobox1.ReadOnly:=false;
dblookupcombobox2.ReadOnly:=false;
dbedit4.ReadOnly:=false;
//dbedit3.ReadOnly:=false;
//dbedit5.ReadOnly:=false;
//dbedit6.ReadOnly:=false;

dblookupcombobox1.Color:=clBtnHighlight;
dblookupcombobox2.Color:=clBtnHighlight;
//dbedit3.Color:=clBtnHighlight;
dbedit4.Color:=clBtnHighlight;
dbedit5.Color:=clBtnHighlight;
//dbedit6.Color:=clBtnHighlight;

end;

procedure Tf_mplan.tiEditClick(Sender: TObject);
begin
  inherited;
ticancel.Enabled:=true;
  speedbutton1.Enabled:=true;
dblookupcombobox1.ReadOnly:=false;
dblookupcombobox2.ReadOnly:=false;
dbedit4.ReadOnly:=false;
//dbedit3.ReadOnly:=false;
//dbedit5.ReadOnly:=false;
//dbedit6.ReadOnly:=false;

dblookupcombobox1.Color:=clBtnHighlight;
dblookupcombobox2.Color:=clBtnHighlight;
//dbedit3.Color:=clBtnHighlight;
dbedit4.Color:=clBtnHighlight;
dbedit5.Color:=clBtnHighlight;
//dbedit6.Color:=clBtnHighlight;
 dm.q_mplan.Edit;
end;

procedure Tf_mplan.tiDeleteClick(Sender: TObject);
var    {*****删除工具条快捷按钮单击事件*****}
    Button:integer;
begin
  inherited;
ticancel.Enabled:=true;
  if dm.q_mPlan.IsEmpty=true then
 showmessage('没有需要删除的记录!') else
    begin
     Button := Application.MessageBox('真的要删除记录吗？','提示对话框',MB_OKCANCEL);  //弹出确认对话框
    if Button = IDOK then  //单击OK按钮

  dm.q_mplan.Delete;
  end
  end;



procedure Tf_mplan.Image1Click(Sender: TObject);
begin
  inherited;
dm.q_mplan.Append;
end;

procedure Tf_mplan.tiFirstClick(Sender: TObject);
begin
  inherited;
dm.q_mplan.first;
speedbutton1.Enabled:=false;
  dblookupcombobox1.readonly:=true;
dblookupcombobox2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
//dbedit6.readonly:=true;

dblookupcombobox1.Color:=clSilver;
dblookupcombobox2.Color:=clSilver;
//dbedit3/.Color:=clBackground;
dbedit4.Color:=clSilver;
dbedit5.Color:=clSilver;
//dbedit6.Color:=clSilver;
end;

procedure Tf_mplan.tiPriorClick(Sender: TObject);
begin
  inherited;
dm.q_mplan.prior;
speedbutton1.Enabled:=false;
 dblookupcombobox1.readonly:=true;
dblookupcombobox2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
//dbedit6.readonly:=true;


dblookupcombobox1.Color:=clSilver;
dblookupcombobox2.Color:=clSilver;
//dbedit3.Color:=clBackground;
dbedit4.Color:=clSilver;
dbedit5.Color:=clSilver;
//dbedit6.Color:=clSilver;
end;

procedure Tf_mplan.tiNextClick(Sender: TObject);
begin
  inherited;
dm.q_mplan.next;
speedbutton1.Enabled:=false;
dblookupcombobox1.readonly:=true;
dblookupcombobox2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
//dbedit6.readonly:=true;


dblookupcombobox1.Color:=clSilver;
dblookupcombobox2.Color:=clSilver;
//dbedit3/.Color:=clBackground;
dbedit4.Color:=clSilver;
dbedit5.Color:=clSilver;
//dbedit6.Color:=clSilver;
end;

procedure Tf_mplan.tiLastClick(Sender: TObject);
begin
  inherited;
dm.q_mplan.last;
speedbutton1.Enabled:=false;
dblookupcombobox1.readonly:=true;
dblookupcombobox2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
//dbedit6.readonly:=true;


dblookupcombobox1.Color:=clSilver;
dblookupcombobox2.Color:=clSilver;
//dbedit3.Color:=clBackground;
dbedit4.Color:=clSilver;
dbedit5.Color:=clSilver;
//dbedit6.Color:=clSilver;
end;

procedure Tf_mplan.tiLocateClick(Sender: TObject);
begin
  inherited;
f_mpquery.show;
end;

procedure Tf_mplan.tiPrintClick(Sender: TObject);
begin
  inherited;
   if(dblookupcombobox1.text='') or (dblookupcombobox2.text='')
   or (dbedit4.text='')
  or (dbedit5.text='') 
 then
 showmessage('请把必要信息填完！')
 else
 begin
 dbgrid1.Enabled:=true;
  dm.q_mplan.edit;
  dm.q_mplan.post;
  {DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(6); //当前活动记录下移到第三条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] := StrToInt(DBEdit6.Text);
    DM.AT_Count.Post; }
   speedbutton1.Enabled:=false;
dblookupcombobox1.readonly:=true;
dblookupcombobox2.readonly:=true;
//bedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
//dbedit6.readonly:=true;


dblookupcombobox1.Color:=clSilver;
dblookupcombobox2.Color:=clSilver;
//dbedit3.Color:=clBackground;
dbedit4.Color:=clSilver;
dbedit5.Color:=clSilver;
//dbedit6.Color:=clSilver;
end
end;

procedure Tf_mplan.SB_MRPClick(Sender: TObject);
begin
  inherited;
  ADOCommand1.CommandText:='exec mrp';
    ADOCommand1.Execute;
  with DM.q_needstro do
 begin
      Close;  //关闭数据集
      SQL.Clear;  //清除SQL语句
      SQL.Add('SELECT * FROM needstro'); //添加SQL语句
      Open; //执行SQL语句，打开数据集
 end;
end;

procedure Tf_mplan.BitBtn1Click(Sender: TObject);
begin
  inherited;
  ADOCommand1.CommandText:='exec mrp';
    ADOCommand1.Execute;
  with DM.q_needstro do
 begin
      Close;  //关闭数据集
      SQL.Clear;  //清除SQL语句
      SQL.Add('SELECT * FROM needstro'); //添加SQL语句
      Open; //执行SQL语句，打开数据集
 end;
end;

procedure Tf_mplan.SpeedButton1Click(Sender: TObject);
begin
  inherited;
 //F_Date.Left := F_Order.Left+SpeedButton1.Left; //控件日期选择窗口显示位置
    //F_Date.Top := F_Order.Top+SpeedButton1.Top;
    dbedit5.ReadOnly:=false;
    F_Date.ShowModal;   //弹出日期选择窗口
    if F_Date.ModalResult = mrOk then  //用户确定选择的日期
    DM.Q_mplan['Produce_Time'] := F_Date.MC.Date; //选择的日期赋建档日期字段
end;

procedure Tf_mplan.FormCreate(Sender: TObject);
begin
  inherited;
  with dm.q_mplan do
begin
close;
sql.clear;
sql.add('select * from mplan');
//prepare;
open;
end;
  if(dbedit5.ReadOnly=true) then
speedbutton1.Enabled:=false
else speedbutton1.Enabled:=false

end;

procedure Tf_mplan.ticancelClick(Sender: TObject);
begin
  inherited;
DM.Q_mplan.Cancel;
dbgrid1.Enabled:=true;
speedbutton1.Enabled:=false;
 dblookupcombobox1.readonly:=true;
dblookupcombobox2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
//dbedit6.readonly:=true;


dblookupcombobox1.Color:=clSilver;
dblookupcombobox2.Color:=clSilver;
//dbedit3.Color:=clBackground;
dbedit4.Color:=clSilver;
dbedit5.Color:=clSilver;
//dbedit6.Color:=clSilver;
end;

procedure Tf_mplan.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
dm.q_mplan.Cancel;
end;

procedure Tf_mplan.Button1Click(Sender: TObject);
begin
inherited;
  ADOCommand1.CommandText:='exec mmplan';
    ADOCommand1.Execute;
  with DM.q_mplan do
 begin
      Close;  //关闭数据集
      SQL.Clear;  //清除SQL语句
      SQL.Add('SELECT * FROM mplan'); //添加SQL语句
      Open; //执行SQL语句，打开数据集
 end;
end;

end.