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

📄 bom.~pas

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

interface

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

type
  Tbomb = class(Ttemplate2)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    DBGrid1: TDBGrid;
    DBEdit2: TDBEdit;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    DBEdit9: TDBEdit;
    Label9: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label6: TLabel;
    DBGrid2: TDBGrid;
    Panel2: TPanel;
    TradeImg1: TTradeImg;
    TradeImg2: TTradeImg;
    TradeImg3: TTradeImg;
    TradeImg4: TTradeImg;
    LabelBtn21: TLabelBtn;
    LabelBtn23: TLabelBtn;
    LabelBtn24: TLabelBtn;
    LabelBtn25: TLabelBtn;
    TradeImg5: TTradeImg;
    LabelBtn26: TLabelBtn;
    DBEdit6: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    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 TradeImg1Click(Sender: TObject);
    procedure TradeImg3Click(Sender: TObject);
    procedure TradeImg4Click(Sender: TObject);
    procedure TradeImg2Click(Sender: TObject);
    procedure ticancelClick(Sender: TObject);
    procedure TradeImg5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure DBLookupComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bomb: Tbomb;

implementation

uses datamodule, bomquery;

{$R *.dfm}

procedure Tbomb.tiNewClick(Sender: TObject);
var serial:integer;
begin
  inherited;
tradeimg1.Enabled:=false;
tradeimg2.Enabled:=false;
tradeimg3.Enabled:=false;
tradeimg4.Enabled:=false;
  dbgrid1.Enabled:=false;
  //dbedit1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
DBLookupComboBox2.ReadOnly:=false;
dbedit4.ReadOnly:=false;
//dbedit5.ReadOnly:=false;

//dbedit1.color:=clBtnHighlight;
dbedit2.color:=clBtnHighlight;
DBLookupComboBox2.color:=clBtnHighlight;
dbedit4.color:=clBtnHighlight;
//dbedit5.color:=clBtnHighlight;
DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(1); //当前活动记录下移到第三条记录
    Serial := DM.AT_Count['Count_Value'];
    dm.q_bomm.append;
    dm.q_bomm['Note_Code'] := Serial+1;
end;

procedure Tbomb.tiEditClick(Sender: TObject);
begin
  inherited;
tradeimg1.Enabled:=false;
tradeimg2.Enabled:=false;
tradeimg3.Enabled:=false;
tradeimg4.Enabled:=false;
  ticancel.Enabled:=true;
  //dbedit1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
DBLookupComboBox2.ReadOnly:=false;
dbedit4.ReadOnly:=false;
//dbedit5.ReadOnly:=false;

//dbedit1.color:=clBtnHighlight;
dbedit2.color:=clBtnHighlight;
DBLookupComboBox2.color:=clBtnHighlight;
dbedit4.color:=clBtnHighlight;
//dbedit5.color:=clBtnHighlight;
dm.q_bomm.Edit;
end;

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


procedure Tbomb.tiPrintClick(Sender: TObject);
begin
  inherited;
if(dbedit2.text='')
or (dbedit4.text='') //or (dbedit5.text='')
then
showmessage('请把必要信息填完！')
else
begin
dbgrid1.Enabled:=true;
  dm.q_bomm.edit;
dm.q_bomm.post;
DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(1); //当前活动记录下移到第三条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] := StrToInt(DBEdit1.Text);
    DM.AT_Count.Post;
 dbedit1.readonly:=true;
dbedit2.readonly:=true;
DBLookupComboBox2.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
tradeimg1.Enabled:=true;
tradeimg2.Enabled:=true;
tradeimg3.Enabled:=true;
tradeimg4.Enabled:=true;
dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
DBLookupComboBox2.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
end
end;

procedure Tbomb.tiFirstClick(Sender: TObject);
begin
  inherited;
dm.q_bomm.first;
dbedit1.readonly:=true;
dbedit2.readonly:=true;
DBLookupComboBox2.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;

dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
DBLookupComboBox2.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
end;

procedure Tbomb.tiPriorClick(Sender: TObject);
begin
  inherited;
dm.q_bomm.prior;
dbedit1.readonly:=true;
dbedit2.readonly:=true;
DBLookupComboBox2.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;

dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
DBLookupComboBox2.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
end;

procedure Tbomb.tiNextClick(Sender: TObject);
begin
  inherited;
dm.q_bomm.next;
dbedit1.readonly:=true;
dbedit2.readonly:=true;
DBLookupComboBox2.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;

dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
DBLookupComboBox2.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
end;

procedure Tbomb.tiLastClick(Sender: TObject);
begin
  inherited;
dm.q_bomm.last;
dbedit1.readonly:=true;
dbedit2.readonly:=true;
DBLookupComboBox2.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;

dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
DBLookupComboBox2.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
end;

procedure Tbomb.tiLocateClick(Sender: TObject);
begin
  inherited;
bbomquery.show;
end;

procedure Tbomb.TradeImg1Click(Sender: TObject);
var serial:integer;
begin
  inherited;
dbgrid2.Enabled:=false;
tradeimg3.Enabled:=false;
  tradeimg4.Enabled:=true;
  tradeimg5.Enabled:=true;
DBLookupComboBox1.ReadOnly:=false;
dbedit9.ReadOnly:=false;
//dbedit10.ReadOnly:=false;
dbedit11.ReadOnly:=false;
//DBLookupComboBox3.ReadOnly:=false;
//dbedit6.ReadOnly:=false;
dbedit7.ReadOnly:=false;
//dbedit16.ReadOnly:=false;
DBLookupComboBox1.Color:=clbtnhighlight;
dbedit9.Color:=clbtnhighlight;
//dbedit10.Color:=clbtnhighlight;
dbedit11.Color:=clbtnhighlight;
//DBLookupComboBox3.Color:=clbtnhighlight;
//dbedit6.Color:=clbtnhighlight;
dbedit7.Color:=clbtnhighlight;
//dbedit16.Color:=clbtnhighlight;

DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(10); //当前活动记录下移到第三条记录
    Serial := DM.AT_Count['Count_Value'];
    dm.q_bomd.append;
   dm.q_bomd['Note_Code'] := Serial+1;
end;

procedure Tbomb.TradeImg3Click(Sender: TObject);
var    {*****删除工具条快捷按钮单击事件*****}
    Button:integer;
begin
  inherited;

  if dm.q_bomd.IsEmpty=true then
 showmessage('没有需要删除的记录!') else
      begin
      Button := Application.MessageBox('真的要删除记录吗？','提示对话框',MB_OKCANCEL);  //弹出确认对话框
    if Button = IDOK then  //单击OK按钮
dm.q_bomd.Delete;
end
end;


procedure Tbomb.TradeImg4Click(Sender: TObject);
 begin
  inherited;
if (dbedit7.text='') or (DBLookupComboBox1.text='')
or (dbedit9.text='')  or (dbedit11.text='')
//or (DBLookupComboBox3.text='')
then
showmessage('请把必要信息填完！')
else
begin
dbgrid2.Enabled:=true;
  dm.q_bomd.edit;
dm.q_bomd.post;
DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(10); //当前活动记录下移到第三条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] :=StrToInt(dbedit6.text);
    DM.AT_Count.Post;
{dm.q_bomd.Close;
dm.q_bomd.SQL.Clear;
dm.q_bomd.SQL.Add( 'select * from bomc order by note_code');
dm.q_bomd.Open; }
dbedit9.readonly:=true;
//dbedit10.readonly:=true;
dbedit11.readonly:=true;
//DBLookupComboBox3.readonly:=true;
//dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;
DBLookupComboBox1.readonly:=true;

dbedit7.Color:=clSilver;
DBLookupComboBox1.Color:=clSilver;
dbedit11.Color:=clSilver;
//DBLookupComboBox3.Color:=clSilver;
//dbedit10.Color:=clSilver;
dbedit9.Color:=clSilver;
//dbedit6.Color:=clSilver;
end
end;


procedure Tbomb.TradeImg2Click(Sender: TObject);
begin
  inherited;
tradeimg4.Enabled:=true;
  tradeimg5.Enabled:=true;
DBLookupComboBox1.ReadOnly:=false;
dbedit9.ReadOnly:=false;
//dbedit10.ReadOnly:=false;
dbedit11.ReadOnly:=false;
//DBLookupComboBox3.ReadOnly:=false;
//dbedit6.ReadOnly:=false;
dbedit7.ReadOnly:=false;
//dbedit16.ReadOnly:=false;
DBLookupComboBox1.Color:=clbtnhighlight;
dbedit9.Color:=clbtnhighlight;
//dbedit10.Color:=clbtnhighlight;
dbedit11.Color:=clbtnhighlight;
//DBLookupComboBox3.Color:=clbtnhighlight;
//dbedit6.Color:=clbtnhighlight;
dbedit7.Color:=clbtnhighlight;
//dbedit16.Color:=clbtnhighlight;
dm.q_bomd.Edit;
end;

procedure Tbomb.ticancelClick(Sender: TObject);
begin
  inherited;
  tradeimg1.Enabled:=true;
tradeimg2.Enabled:=true;
tradeimg3.Enabled:=true;
tradeimg4.Enabled:=true;
  dm.q_bomm.Cancel;
dbgrid1.Enabled:=true;
 dbedit1.readonly:=true;
dbedit2.readonly:=true;
DBLookupComboBox2.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;

dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
DBLookupComboBox2.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
end;

procedure Tbomb.TradeImg5Click(Sender: TObject);
begin
  inherited;
dm.q_bomd.Cancel;
dbgrid2.Enabled:=true;
tradeimg3.Enabled:=true;
tradeimg4.Enabled:=false;
dbedit9.readonly:=true;
//dbedit10.readonly:=true;
dbedit11.readonly:=true;
//DBLookupComboBox3.readonly:=true;
//dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;
DBLookupComboBox1.readonly:=true;

dbedit7.Color:=clSilver;
DBLookupComboBox1.Color:=clSilver;
dbedit11.Color:=clSilver;
//DBLookupComboBox3.Color:=clSilver;
//dbedit10.Color:=clSilver;
dbedit9.Color:=clSilver;
//dbedit6.Color:=clSilver;
end;

procedure Tbomb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
dm.q_bomm.Cancel;
dm.q_bomd.Cancel;
end;

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

  if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=0 then
   begin
         tradeimg1.Enabled:=true;
             tradeimg2.Enabled:=true;
             tradeimg3.Enabled:=true;
             tradeimg4.Enabled:=true;
             tradeimg5.Enabled:=true;
            end
              else if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=1 then
               begin
              tradeimg1.Enabled:=true;
             tradeimg2.Enabled:=true;
             tradeimg3.Enabled:=true;
             tradeimg4.Enabled:=true;
             tradeimg5.Enabled:=true;
            end
            else if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=2 then
            begin
             tradeimg1.Enabled:=false;
             tradeimg2.Enabled:=false;
             tradeimg3.Enabled:=false;
             tradeimg4.Enabled:=false;
             tradeimg5.Enabled:=false;
            end
end;

procedure Tbomb.DBLookupComboBox1Click(Sender: TObject);
begin
  inherited;
with dm.ADOQuery2 do
begin
close;
sql.clear;
sql.Add('select material_type,materialm_id from material_main ');
sql.Add('where materialm_name='''+dblookupcombobox1.text+'''');
open;
dbedit9.Text:=fieldbyname('material_type').AsString;
dbedit3.Text:=fieldbyname('materialm_id').asstring;
end;
end;

end.

⌨️ 快捷键说明

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