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

📄 storage.~pas

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

interface

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

type
  Tsstorage = class(Ttemplate2)
    Panel1: TPanel;
    Panel2: TPanel;
    Label7: TLabel;
    DBComboBox1: TDBComboBox;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    BitBtn1: TBitBtn;
    ADOCommand1: TADOCommand;
    SpeedButton1: TSpeedButton;
    Button1: TButton;
    ADOCommand2: TADOCommand;
    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 BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ticancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure DBLookupComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sstorage: Tsstorage;

implementation

uses ttemplate1, datamodule, storagequery, Date;

{$R *.dfm}

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

end;

procedure Tsstorage.tiEditClick(Sender: TObject);
begin
  inherited;
  ticancel.Enabled:=true;
  dm.q_mio.Edit;
  speedbutton1.enabled:=true;
  dbcombobox1.readonly:=false;
dbedit1.ReadOnly:=false;
  //dbedit2.ReadOnly:=false;
  dbedit3.ReadOnly:=false;
  //dbedit4.ReadOnly:=false;
  dbedit5.ReadOnly:=false;
  dbedit6.ReadOnly:=false;
  //dbedit7.ReadOnly:=false;
 // dbedit8.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;
end;

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

dm.q_mio.Delete;
end
end;

procedure Tsstorage.tiPrintClick(Sender: TObject);
begin
  inherited;
  if
 (dbcombobox1.text='')
 or  (dbedit1.Text='')
    or   (dbedit3.Text='')
   or  ( dbedit4.Text='')  or   (dbedit5.Text='')
    or   (dbedit6.Text='')  or   (dbedit7.Text='' )
 then
  begin
  showmessage('请把所有信息填完!');
end
else
begin
dbgrid1.Enabled:=true;
with dm.q_mio do
 begin
 edit;
 post;
 DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(4); //当前活动记录下移到第三条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] := StrToInt(DBEdit7.Text);
    DM.AT_Count.Post;
  speedbutton1.Enabled:=false;
 dbcombobox1.ReadOnly:=true;
  dbedit1.readonly:=true;
//dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;

dbcombobox1.Color:=clSilver;
dbedit7.Color:=clSilver;
dbedit1.Color:=clSilver;
//dbedit2.Color:=clSilver;
dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
 Close;
 sql.Clear;
 sql.add('select * from materialio');
 //prepare;
 open;
 end;
  end;
end;

procedure Tsstorage.tiFirstClick(Sender: TObject);
begin
  inherited;
dm.q_mio.first;
 dbedit1.readonly:=true;
//dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;

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

procedure Tsstorage.tiPriorClick(Sender: TObject);
begin
  inherited;
dm.q_mio.prior;
 dbedit1.readonly:=true;
//dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;

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

procedure Tsstorage.tiNextClick(Sender: TObject);
begin
  inherited;
dm.q_mio.next;
 dbedit1.readonly:=true;
//dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;

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

procedure Tsstorage.tiLastClick(Sender: TObject);
begin
  inherited;
dm.q_mio.last;
 dbedit1.readonly:=true;
//dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;

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

procedure Tsstorage.tiLocateClick(Sender: TObject);
begin
  inherited;
sstoragequery.show;
end;

procedure Tsstorage.BitBtn1Click(Sender: TObject);
begin
  inherited;
 ADOCommand1.CommandText:='exec kuchun';
 ADOCommand1.Execute;
 with DM.Q_storaged do
 begin
      Close;  //关闭数据集
      SQL.Clear;  //清除SQL语句
      SQL.Add('SELECT * FROM MaterialStorage'); //添加SQL语句
      Open; //执行SQL语句，打开数据集
      if(fieldbyname('material_quantity').Value>1000)
      or (fieldbyname('material_quantity').Value<0)
      then
      begin
      showmessage('已超过上限或下限');
      dbgrid2.Columns[2].font.Color:=clred;
      end
 end;
 end;

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

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

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

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

procedure Tsstorage.Button1Click(Sender: TObject);
begin
  inherited;
ADOCommand2.CommandText:='exec newkucun';
 ADOCommand2.Execute;
 with DM.Q_storaged do
 begin
      Close;  //关闭数据集
      SQL.Clear;  //清除SQL语句
      SQL.Add('SELECT * FROM MaterialStorage'); //添加SQL语句
      Open; //执行SQL语句，打开数据集
           if(fieldbyname('material_quantity').Value>1000)
      or (fieldbyname('material_quantity').Value<0)
      then
      begin
      showmessage('已超过上限或下限');
      dbgrid2.Columns[2].font.Color:=clred;
      end
end;
end;
procedure Tsstorage.DBLookupComboBox1Click(Sender: TObject);
begin
  inherited;
with dm.ADOQuery2 do
begin
close;
sql.clear;
sql.Add('select materialm_id from material_main ');
sql.Add('where materialm_name='''+dblookupcombobox1.text+'''');
open;
dbedit1.Text:=fieldbyname('materialm_id').AsString;
end;
end;


end.

⌨️ 快捷键说明

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