⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 mmaterialmanager.~pas

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

interface

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

type
  Tmaterialmanager = class(Ttemplate2)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit8: TDBEdit;
    DBGrid1: TDBGrid;
    procedure tiNewClick(Sender: TObject);
    procedure tiEditClick(Sender: TObject);
    procedure tiDeleteClick(Sender: TObject);
    procedure tiFirstClick(Sender: TObject);
    procedure tiPriorClick(Sender: TObject);
    procedure tiNextClick(Sender: TObject);
    procedure tiLastClick(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure tiLocateClick(Sender: TObject);
    procedure tiRefreshClick(Sender: TObject);
    procedure tiPrintClick(Sender: TObject);
    procedure ticancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  materialmanager: Tmaterialmanager;

implementation

uses datamodule, mmaterialquery;

{$R *.dfm}

procedure Tmaterialmanager.tiNewClick(Sender: TObject);
var    {*****增加工具条快捷按钮单击事件*****}
    Serial:integer;
begin
  inherited;
dbgrid1.Enabled:=false;
  ticancel.Enabled:=true;
  dbedit1.readonly:=false;  
dbedit2.readonly:=false;
dbedit3.readonly:=false;
dbedit4.readonly:=false;
dbedit5.readonly:=false;
dbedit6.readonly:=false;
dbedit7.readonly:=false;
dbedit8.readonly:=false;
//dbedit9.readonly:=false;

dbedit1.Color:=clBtnHighlight;
dbedit2.Color:=clBtnHighlight;
dbedit3.Color:=clBtnHighlight;
dbedit4.Color:=clBtnHighlight;
dbedit5.Color:=clBtnHighlight;
dbedit6.Color:=clBtnHighlight;
dbedit7.Color:=clBtnHighlight;
dbedit8.Color:=clBtnHighlight;
//dbedit9.Color:=clBtnHighlight;

 DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(3); //当前活动记录下移到第三条记录
    Serial := DM.AT_Count['Count_Value']; //取得物料主档物料序号值
    dm.q_materialmanager.append;  //物料主档信息表处于追加记录状态
    DM.q_materialmanager['Note_Code'] := Serial+1;
    //end
    end;

procedure Tmaterialmanager.tiEditClick(Sender: TObject);
begin
  inherited;
  ticancel.Enabled:=true;
  dbedit1.readonly:=false;
dbedit2.readonly:=false;
dbedit3.readonly:=false;
dbedit4.readonly:=false;
dbedit5.readonly:=false;
dbedit6.readonly:=false;
dbedit7.readonly:=false;
dbedit8.readonly:=false;
//dbedit9.readonly:=false;

dbedit1.Color:=clBtnHighlight;
dbedit2.Color:=clBtnHighlight;
dbedit3.Color:=clBtnHighlight;
dbedit4.Color:=clBtnHighlight;
dbedit5.Color:=clBtnHighlight;
dbedit6.Color:=clBtnHighlight;
dbedit7.Color:=clBtnHighlight;
dbedit8.Color:=clBtnHighlight;
//dbedit9.Color:=clBtnHighlight;
dm.q_materialmanager.Edit;

end;

procedure Tmaterialmanager.tiDeleteClick(Sender: TObject);
var    {*****删除工具条快捷按钮单击事件*****}
    Button:integer;
begin
  inherited;
  dbedit1.readonly:=true;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.readonly:=true;
dbedit8.readonly:=true;
dbedit9.readonly:=true;
dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
dbedit7.Color:=clSilver;
dbedit8.Color:=clSilver;
dbedit9.Color:=clSilver;
  tinew.Enabled:=true;
  ticancel.Enabled:=true;
  if dm.q_materialmanager.IsEmpty=true then
 showmessage('没有需要删除的记录!') else
     begin
      Button := Application.MessageBox('真的要删除记录吗？','提示对话框',MB_OKCANCEL);  //弹出确认对话框
    if Button = IDOK then  //单击OK按钮
     
dm.q_materialmanager.Delete;
end
end;


procedure Tmaterialmanager.tiFirstClick(Sender: TObject);
begin
  inherited;
dm.q_materialmanager.First;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.readonly:=true;
dbedit8.readonly:=true;
dbedit9.readonly:=true;

dbedit1.Color:=clInactiveCaptionText;
dbedit2.Color:=clInactiveCaptionText;
dbedit3.Color:=clInactiveCaptionText;
dbedit4.Color:=clInactiveCaptionText;
dbedit5.Color:=clInactiveCaptionText;
dbedit6.Color:=clInactiveCaptionText;
dbedit7.Color:=clInactiveCaptionText;
dbedit8.Color:=clInactiveCaptionText;
dbedit9.Color:=clInactiveCaptionText;
end;

procedure Tmaterialmanager.tiPriorClick(Sender: TObject);
begin
  inherited;
dm.q_materialmanager.Prior;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.readonly:=true;
dbedit8.readonly:=true;
dbedit9.readonly:=true;

dbedit1.Color:=clInactiveCaptionText;
dbedit2.Color:=clInactiveCaptionText;
dbedit3.Color:=clInactiveCaptionText;
dbedit4.Color:=clInactiveCaptionText;
dbedit5.Color:=clInactiveCaptionText;
dbedit6.Color:=clInactiveCaptionText;
dbedit7.Color:=clInactiveCaptionText;
dbedit8.Color:=clInactiveCaptionText;
dbedit9.Color:=clInactiveCaptionText;
end;

procedure Tmaterialmanager.tiNextClick(Sender: TObject);
begin
  inherited;
dm.q_materialmanager.Next;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.readonly:=true;
dbedit8.readonly:=true;
dbedit9.readonly:=true;

dbedit1.Color:=clInactiveCaptionText;
dbedit2.Color:=clInactiveCaptionText;
dbedit3.Color:=clInactiveCaptionText;
dbedit4.Color:=clInactiveCaptionText;
dbedit5.Color:=clInactiveCaptionText;
dbedit6.Color:=clInactiveCaptionText;
dbedit7.Color:=clInactiveCaptionText;
dbedit8.Color:=clInactiveCaptionText;
dbedit9.Color:=clInactiveCaptionText;
end;

procedure Tmaterialmanager.tiLastClick(Sender: TObject);
begin
  inherited;
dm.q_materialmanager.Last;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.readonly:=true;
dbedit8.readonly:=true;
dbedit9.readonly:=true;

dbedit1.Color:=clInactiveCaptionText;
dbedit2.Color:=clInactiveCaptionText;
dbedit3.Color:=clInactiveCaptionText;
dbedit4.Color:=clInactiveCaptionText;
dbedit5.Color:=clInactiveCaptionText;
dbedit6.Color:=clInactiveCaptionText;
dbedit7.Color:=clInactiveCaptionText;
dbedit8.Color:=clInactiveCaptionText;
dbedit9.Color:=clInactiveCaptionText;
end;

procedure Tmaterialmanager.Image1Click(Sender: TObject);
begin
  inherited;
dm.q_materialmanager.Append;
end;

procedure Tmaterialmanager.tiLocateClick(Sender: TObject);
begin
  inherited;
materialquery.show;
end;

procedure Tmaterialmanager.tiRefreshClick(Sender: TObject);
begin
  inherited;
dm.q_materialmanager.Refresh;
end;

procedure Tmaterialmanager.tiPrintClick(Sender: TObject);
begin
  inherited;
  if(dbedit1.text='') or (dbedit2.text='')
  or (dbedit3.text='') or (dbedit4.text='')
  or (dbedit5.text='') or (dbedit6.text='')
  or (dbedit7.text='') or (dbedit8.text='')
  or (dbedit9.text='')
  then
  showmessage('请把必要信息填完！')
  else
  begin
  dbgrid1.Enabled:=true;
  tinew.Enabled:=true;
dm.q_materialmanager.Edit;
dm.q_materialmanager.post;
DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(3); //当前活动记录下移到第三条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] := StrToInt(DBEdit9.Text);
    DM.AT_Count.Post;
dbedit1.readonly:=true;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.readonly:=true;
dbedit8.readonly:=true;
dbedit9.readonly:=true;

dbedit1.Color:=clInactiveCaptionText;
dbedit2.Color:=clInactiveCaptionText;
dbedit3.Color:=clInactiveCaptionText;
dbedit4.Color:=clInactiveCaptionText;
dbedit5.Color:=clInactiveCaptionText;
dbedit6.Color:=clInactiveCaptionText;
dbedit7.Color:=clInactiveCaptionText;
dbedit8.Color:=clInactiveCaptionText;
dbedit9.Color:=clInactiveCaptionText;
end
end;
 
procedure Tmaterialmanager.ticancelClick(Sender: TObject);
begin
  inherited;
  dm.q_materialmanager.Cancel;
  dbgrid1.Enabled:=true;
  dbedit1.readonly:=true;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.readonly:=true;
dbedit8.readonly:=true;
dbedit9.readonly:=true;

dbedit1.Color:=clInactiveCaptionText;
dbedit2.Color:=clInactiveCaptionText;
dbedit3.Color:=clInactiveCaptionText;
dbedit4.Color:=clInactiveCaptionText;
dbedit5.Color:=clInactiveCaptionText;
dbedit6.Color:=clInactiveCaptionText;
dbedit7.Color:=clInactiveCaptionText;
dbedit8.Color:=clInactiveCaptionText;
dbedit9.Color:=clInactiveCaptionText;
end;

procedure Tmaterialmanager.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
dm.q_materialmanager.cancel;
end;

procedure Tmaterialmanager.FormCreate(Sender: TObject);
begin
  inherited;
with dm.q_materialmanager do
begin
close;
sql.clear;
sql.add('select * from material_main');
//prepare;
open;
end;
end;

end.

⌨️ 快捷键说明

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