小铁匠 发表于 2012-12-5 18:09:01

刚学了几天delphi,找了个数据库方面的案例，希望大家一起探讨并为小弟理清思路啊。。

是一个基于sql server2000的仓库管理系统。。因为是刚接触数据库方面的，有点不懂。。所以传个源代码上来，文件有点大，传到115网盘上了。希望大家一起探讨下，把知道的部分注释下，贴上了。。并说下以后开发数据库方面的思路哈。。小弟新手哈，目前正在学习中，，希望高手指点哈。。。**** Hidden Message *****

贰DXA@环 发表于 2012-12-5 19:46:36

正好一起看看

贰DXA@环 发表于 2012-12-5 19:48:01

文件拥有者未分享该文件。不能看啊？

止战之殇 发表于 2012-12-5 20:52:42

看下。。。。。。

小铁匠 发表于 2012-12-5 21:29:01

贰DXA@环 发表于 2012-12-5 19:48 static/image/common/back.gif
文件拥有者未分享该文件。不能看啊？

可能没弄好，发到快盘里了。。。下面是链接地址：
http://www.kuaipan.cn/file/id_74751603684409346.htm

小铁匠 发表于 2012-12-5 21:43:38

自己看了下，并结合帮助注释了下。。是商品基本信息里的一部分代码，，怎么没人回啊。。我相信大家一起讨论肯定可以研究出来的呀。。。。

unit USPJBXX;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TSPJBXX = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Memo1: TMemo;
    GroupBox2: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Edit10: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label10: TLabel;
    ComboBox1: TComboBox;
    Bevel1: TBevel;
    Edit11: TEdit;
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10Change(Sender: TObject);
private
    { Private declarations }
public
    procedure GetAll;          //获取数据
    procedure posting;      //提交数据
    Function CanSave: Boolean; //判断是否保存
    procedure bh;             //自动编号
    Procedure tr;             //去除空字符
   { Public declarations }
end;

var
SPJBXX: TSPJBXX;

implementation

uses UDM, UMAIN, UGYSXX;

{$R *.dfm}
procedure TSPJBXX.tr;
var
i:integer;
begin

//原型：property ComponentCount: Integer;
//componentcount返回组件的数量

for i:=ComponentCount - 1 downto 0 do
    if(Components is TEdit) then

/原型：function Trim(const S: string): string; overload;
//function Trim(const S: WideString): WideString; overload;
//作用是除去空格和一些其他字符串

    TEdit(Components).Text:=trim(TEdit(Components).Text);
end;

procedure TSPJBXX.GetAll;//获得所有数据
begin
//原型：function FieldByName(const FieldName: string): TField;
//fieldByName 是 数据库控件的属性， 意思是名称指定字段。‘菜单项’是表内的字段名；.asstring 是以字符形式表示。
//如果"列名"在你SQL语句中找不到,或者表中压根就没有这个字段,就会抛出找不到"列名"字段的异常.
//不过这边对于DM不懂，下面有DM的也不懂。还没看过这方面的知识，先跳过，懂的指点下的。。
    Edit1.Text:=DM.DSOSPXX.FieldByName('商品编号').AsString;
    Edit2.Text:=DM.DSOSPXX.FieldByName('商品名称').AsString;
    Edit3.Text:=DM.DSOSPXX.FieldByName('规格').AsString;
    Edit4.Text:=DM.DSOSPXX.FieldByName('保质期').AsString;
    Edit5.Text:=DM.DSOSPXX.fieldByName('产地').AsString;
    Edit6.Text:=DM.DSOSPXX.FieldByName('单位').AsString;
    Edit7.Text:=DM.DSOSPXX.FieldByName('商品单价').AsString;
    Edit8.Text:=DM.DSOSPXX.FieldByName('批发价').AsString;
    Edit9.Text:=DM.DSOSPXX.FieldByName('零售价').AsString;
    Edit10.Text:=DM.DSOSPXX.FieldByName('商品简称').AsString;
    Edit11.Text:=DM.DSOSPXX.FieldByName('供应商名称').AsString;
    ComboBox1.Text:=DM.DSOSPXX.FieldByName('供应商编号').AsString;
    Memo1.Text:=DM.DSOSPXX.FieldByName('备注').AsString;
end;
procedure TSPJBXX.Posting;          //提交数据
begin
if ActionCD='N' then
BEGIN
with DM.QSPXX do
begin
    Close;   //关闭数据库连接
    SQL.Clear; //清除上次使用的sql语句

//SQL.Add 设置本次使用的sql语句
    SQL.Add('INSERT INTO 商品基本信息(商品名称,商品简称,规格,保质期,产地,单位,商品单价,批发价,零售价,供应商编号,供应商名称,备注,商品编号)');
    SQL.Add('Values(:商品名称,:商品简称,:规格,:保持期,:产地,:单位,:商品单价,:批发价,:零售价,:供应商编号,:供应商名称,:备注,:商品编号)');

//Parameters传递参数。数据添加   
   
    Parameters.Items.Value:=Edit2.Text;
    Parameters.Items.Value:=Edit10.Text;
    Parameters.Items.Value:=Edit3.Text;
    Parameters.Items.Value:=Edit4.Text;
    Parameters.Items.Value:=Edit5.Text;
    Parameters.Items.Value:=Edit6.Text;
    Parameters.Items.Value:=Edit7.Text;
    Parameters.Items.Value:=StrToCurr(Edit8.Text);
    Parameters.Items.Value:=StrToCurr(Edit9.Text);
    Parameters.Items.Value:=ComboBox1.Text;
    Parameters.Items.Value:=Edit11.Text;
    Parameters.Items.Value:=Memo1.Text;
    Parameters.Items.Value:=Edit1.Text;

//原型：property Prepared: WordBool;
//如果设置为真，准备命令组件连接到一个数据存储，数据库准备命令之前执行它。如果准备设置为fal se，干脆不准备命令。

    Prepared:=True;

/原型：function ExecSQL: Integer;
//呼叫execsql执行SQL语句目前分配给查询的性能。使用execsql执行查询不返回光标数据（如插入，更新，删除，并创建表）。
//execsql返回一个整型值反映所影响的行数执行语句。

    ExecSQL;


end;
END else
if ActionCD='M' then
begin
    With DM.QSPXX DO
    begin
      Close;
      SQL.Clear;
      SQL.Add('update 商品基本信息 Set 商品名称=:商品名称1,商品简称=:商品简称1,');
      SQL.Add('规格=:规格1,保质期=:保质期1,产地=:产地1,单位=:单位1,');
      SQL.Add('商品单价=:商品单价1,批发价=:批发价1,零售价=:零售价1,供应商编号=:供应商编号1,供应商名称=:供应商名称1,备注=:备注1 Where 商品编号=:商品编号1');
      Parameters.Items.Value:=Edit2.Text;
      Parameters.Items.Value:=Edit10.Text;
      Parameters.Items.Value:=Edit3.Text;
      Parameters.Items.Value:=Edit4.Text;
      Parameters.Items.Value:=Edit5.Text;
      Parameters.Items.Value:=Edit6.Text;
      Parameters.Items.Value:=Edit7.Text;
      Parameters.Items.Value:=StrToCurr(Edit8.Text);
      Parameters.Items.Value:=StrToCurr(Edit9.Text);
      Parameters.Items.Value:=ComboBox1.Text;
      Parameters.Items.Value:=Edit11.Text;
      Parameters.Items.Value:=Memo1.Text;
      Parameters.Items.Value:=DM.DSOSPXX.FieldByName('商品编号').AsString;
      Prepared:=true;
      ExecSQL;
    end;
end;
end;

function TSPJBXX.CanSave: Boolean;//判断是否保存
begin
if Edit1.Text='' then
begin
    Result:=False;
    Application.MessageBox('商品编号不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if Edit2.Text='' then
begin
    Result:=False;
    Application.MessageBox('商品名称不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if Edit10.Text='' then
begin
    Result:=False;
    Application.MessageBox('商品简称不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if Edit3.Text='' then
begin
    Result:=False;
    Application.MessageBox('商品规格不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if Edit4.Text='' then
begin
    Result:=False;
    Application.MessageBox('保质期不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if Edit5.Text='' then
begin
    Result:=False;
    Application.MessageBox('商品产地不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if Edit6.Text='' then
begin
    Result:=False;
    Application.MessageBox('商品单位不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if Edit7.Text='' then
begin
    Result:=False;
    Application.MessageBox('商品进价不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if Edit8.Text='' then
begin
    Result:=False;
    Application.MessageBox('商品批发价不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if Edit9.Text='' then
begin
    Result:=False;
    Application.MessageBox('商品零售价不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if ComboBox1.Text='' then
begin
    Result:=False;
    Application.MessageBox('供应商编号不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if Edit11.Text='' then
begin
    Result:=False;
    Application.MessageBox('供应商名称不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if strtofloat(Edit7.Text)>strtofloat(Edit8.Text) then
begin
    Result:=False;
    Application.MessageBox('进价不能大于批发价！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if strtofloat(Edit8.Text)>strtofloat(Edit9.Text) then
begin
    Result:=False;
    Application.MessageBox('批发价不能大于零售价！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;
if strtofloat(Edit7.Text)>strtofloat(Edit9.Text) then
begin
    Result:=False;
    Application.MessageBox('进价不能大于零售价！','提示信息',0+MB_ICONINFORMATION);
    exit;
end;

end;

贰DXA@环 发表于 2012-12-5 22:13:02

我也刚开始学的，一起进步吧~:D

因為·有你 发表于 2012-12-7 11:57:17

嗯，多谢楼主分享了哈，那就看看呗

快乐小袁空间 发表于 2012-12-7 14:51:32

呵呵呵额呵呵呵呵呵呵呵呵

sejung 发表于 2012-12-7 19:01:47

I an studying to it

gxzje 发表于 2012-12-19 20:34:52

我也需要数据库方面的资料。

cctv185 发表于 2012-12-20 13:12:09

需要数据库方面{:1_1:}:D:'(

空虚的灵魂 发表于 2013-1-21 19:37:06

什么东东啊

＿摆架_回宫、 发表于 2013-5-11 19:10:38

楼主加油，鱼C加油！我们都看好你哦！

福禄娃娃 发表于 2013-5-11 22:27:12

强烈支持楼主ing……

tuy 发表于 2013-6-9 22:46:37

激动，激动，激动。。。。。

miwu 发表于 2013-10-29 21:37:34

学习学习{:1_1:}

为·所欲为 发表于 2013-10-30 08:40:06

看看，谢谢分享

油坑建材技术部 发表于 2013-10-30 09:20:07

俺也是新手哦，迅速围观

油坑建材技术部 发表于 2013-10-30 09:21:03

提示：文件拥有者未分享该文件！！坑爹呀！！
页: [1] 2 3 4 5 6
查看完整版本: 刚学了几天delphi,找了个数据库方面的案例，希望大家一起探讨并为小弟理清思路啊。。