stock.pas

这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.

unit stock;

interface

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

type
  Tsstock = class(Ttemplate2)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    ADOCommand1: TADOCommand;
    DBEdit8: TDBEdit;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    procedure tiNewClick(Sender: TObject);
    procedure tiEditClick(Sender: TObject);
    procedure tiDeleteClick(Sender: TObject);
    procedure tiPrintClick(Sender: TObject);
    procedure tiFirstClick(Sender: TObject);
    procedure tiPriorClick(Sender: TObject);
    procedure tiNextClick(Sender: TObject);
    procedure tiLastClick(Sender: TObject);
    procedure tiLocateClick(Sender: TObject);
    procedure SpeedButton1Click(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
  sstock: Tsstock;

implementation

uses datamodule, stockquery, Date;

{$R *.dfm}

procedure Tsstock.tiNewClick(Sender: TObject);
var serial:integer;
begin
  inherited;
dbgrid1.Enabled:=false;
  ticancel.Enabled:=true;
  //speedbutton1.enabled:=true;
  //dbedit1.ReadOnly:=false;
  //dbedit2.ReadOnly:=false;
  //dbedit3.ReadOnly:=false;
  dbedit4.ReadOnly:=false;
  //dbedit5.ReadOnly:=false;
  dbedit6.ReadOnly:=false;
  //dbedit7.ReadOnly:=false;
  //dbedit1.ReadOnly:=false;
  //dbedit1.Color:=clbtnhighlight;
   //dbedit2.Color:=clbtnhighlight;
    //dbedit3.Color:=clbtnhighlight;
     dbedit4.Color:=clbtnhighlight;
      //dbedit5.Color:=clbtnhighlight;
      // dbedit7.Color:=clbtnhighlight;
        dbedit6.Color:=clbtnhighlight;
  {DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(9); //当前活动记录下移到第三条记录
    Serial := DM.AT_Count['Count_Value'];
    dm.q_ProcurePlan.append;
    dm.q_ProcurePlan['Note_Code'] := Serial+1; }
end;

procedure Tsstock.tiEditClick(Sender: TObject);
begin
  inherited;
ticancel.Enabled:=true;
  dm.q_ProcurePlan.edit;
  //speedbutton1.enabled:=true;
 //dbedit1.ReadOnly:=false;
  //dbedit2.ReadOnly:=false;
  //dbedit3.ReadOnly:=false;
  dbedit4.ReadOnly:=false;
  //dbedit5.ReadOnly:=false;
  dbedit6.ReadOnly:=false;
  //dbedit7.ReadOnly:=false;
  //dbedit1.ReadOnly:=false;
 // dbedit1.Color:=clbtnhighlight;
  // dbedit2.Color:=clbtnhighlight;
    //dbedit3.Color:=clbtnhighlight;
     dbedit4.Color:=clbtnhighlight;
     // dbedit5.Color:=clbtnhighlight;
      // dbedit7.Color:=clbtnhighlight;
        dbedit6.Color:=clbtnhighlight;
end;

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

  dm.q_ProcurePlan.Delete;
  end
  end;

procedure Tsstock.tiPrintClick(Sender: TObject);
begin
  inherited;
   if  //( DBEdit3.Text='')
        ( DBEdit4.Text='')
        or ( DBEdit6.Text='') then
        begin
        ShowMessage('请把必要信息填完');
       // DBEdit1.SetFocus;
        exit;
        end
else begin
dbgrid1.Enabled:=true;
 dm.q_ProcurePlan.edit;
dm.q_ProcurePlan.post;
{DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(9); //当前活动记录下移到第三条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] := StrToInt(DBEdit1.Text);
    DM.AT_Count.Post;  }
 //speedbutton1.Enabled:=false;
 //dbedit1.readonly:=true;
//dbedit2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
dbedit6.readonly:=true;
//dbedit7.ReadOnly:=true;

//dbedit7.Color:=clSilver;
//dbedit1.Color:=clSilver;
//dbedit2.Color:=clSilver;
//dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
end
end;

procedure Tsstock.tiFirstClick(Sender: TObject);
begin
  inherited;
dm.q_ProcurePlan.first;
//speedbutton1.Enabled:=false;
 //dbedit1.readonly:=true;
//dbedit2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
dbedit6.readonly:=true;
///dbedit7.ReadOnly:=true;

//dbedit7.Color:=clSilver;
//dbedit1.Color:=clSilver;
//dbedit2.Color:=clSilver;
//dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
end;

procedure Tsstock.tiPriorClick(Sender: TObject);
begin
  inherited;
dm.q_ProcurePlan.prior;
//speedbutton1.Enabled:=false;
 //dbedit1.readonly:=true;
//dbedit2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
dbedit6.readonly:=true;
//dbedit7.ReadOnly:=true;

//dbedit7.Color:=clSilver;
//dbedit1.Color:=clSilver;
//dbedit2.Color:=clSilver;
//dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
end;

procedure Tsstock.tiNextClick(Sender: TObject);
begin
  inherited;
dm.q_ProcurePlan.next;
//speedbutton1.Enabled:=false;
 //dbedit1.readonly:=true;
//dbedit2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
dbedit6.readonly:=true;
//dbedit7.ReadOnly:=true;

//dbedit7.Color:=clSilver;
//dbedit1.Color:=clSilver;
//dbedit2.Color:=clSilver;
//dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
end;

procedure Tsstock.tiLastClick(Sender: TObject);
begin
  inherited;
dm.q_ProcurePlan.last;
//speedbutton1.Enabled:=false;
 //dbedit1.readonly:=true;
//dbedit2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
dbedit6.readonly:=true;
//dbedit7.ReadOnly:=true;

//dbedit7.Color:=clSilver;
//dbedit1.Color:=clSilver;
//dbedit2.Color:=clSilver;
//dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
end;

procedure Tsstock.tiLocateClick(Sender: TObject);
begin
  inherited;
sstockquery.show;
end;

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

procedure Tsstock.ticancelClick(Sender: TObject);
begin
  inherited;
dm.q_ProcurePlan.Cancel;
dbgrid1.Enabled:=true;
//speedbutton1.Enabled:=false;
// dbedit1.readonly:=true;
//dbedit2.readonly:=true;
//dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
dbedit6.readonly:=true;
//dbedit7.ReadOnly:=true;

//dbedit7.Color:=clSilver;
//dbedit1.Color:=clSilver;
//dbedit2.Color:=clSilver;
//dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
end;

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

procedure Tsstock.Button1Click(Sender: TObject);
begin
  inherited;
ADOCommand1.CommandText:='exec stock';
 ADOCommand1.Execute;
 with DM.q_ProcurePlan do
    begin

      Close;  //关闭数据集
      SQL.Clear;  //清除SQL语句
      SQL.Add('SELECT * FROM procureplan'); //添加SQL语句
      Open; //执行SQL语句，打开数据集
 if(fieldbyname('procure_quantity').Value<0)
 then
 begin
 edit;
 fieldbyname('procure_quantity').Value:=0;
 post;
 end
 else
 end;

end;





end.