frmsetcommodity.pas

这是一个商品管理系统

unit FrmSetCommodity;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, Grids, DBGrids, StdCtrls, ExtCtrls, jpeg, DBCtrls;

type
  TFormSetCommodity = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    EditID: TEdit;
    EditName: TEdit;
    BtnAdd: TButton;
    BtnModify: TButton;
    BtnRemove: TButton;
    BtnOK: TButton;
    DataSourceCommodity: TDataSource;
    DataSetCommodity: TADODataSet;
    CmdSetCommodity: TADOCommand;
    Label11: TLabel;
    Label5: TLabel;
    CBSort: TComboBox;
    CBTrade: TComboBox;
    Label4: TLabel;
    EditImagePath: TEdit;
    BtnBrowse: TButton;
    DataGrid: TDBGrid;
    Label1: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    ImageCommodity: TImage;
    DataSetSortTrade: TADODataSet;
    procedure BtnBrowseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnModifyClick(Sender: TObject);
    procedure BtnRemoveClick(Sender: TObject);
    procedure DataGridDblClick(Sender: TObject);
    function GetIDByName(name: string; table: string) : string;
    function GetNameByID(ID: string; table: string) : string;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSetCommodity: TFormSetCommodity;

implementation

{$R *.dfm}

function TFormSetCommodity.GetIDByName(name: string; table: string) : string;
begin
        DataSetSortTrade.Active := false;
        DataSetSortTrade.CommandText :=
                'select id from '
                + table
                + ' where name = '''
                + name
                + '''';
        DataSetSortTrade.Active := true;
        if not(DataSetSortTrade.IsEmpty) then
        begin
               GetIDByName := DataSetSortTrade.FieldByName('id').AsString;
        end
        else
        begin
               Application.MessageBox('无效的商品名称！', '错误', MB_OK);
        end;
end;

function TFormSetCommodity.GetNameByID(ID: string; table: string) : string;
begin
        DataSetSortTrade.Active := false;
        DataSetSortTrade.CommandText :=
                'select name from '
                + table
                + ' where id = '''
                + ID
                + '''';
        DataSetSortTrade.Active := true;
        if not(DataSetSortTrade.IsEmpty) then
        begin
               GetNameByID := DataSetSortTrade.FieldByName('name').AsString;
        end
        else
        begin
               Application.MessageBox('无效的商品名称！', '错误', MB_OK);
        end;
end;

procedure TFormSetCommodity.BtnBrowseClick(Sender: TObject);
var
        OpenDlg: TOpenDialog;
begin
        OpenDlg := TOpenDialog.Create(Application);
        try
                OpenDlg.FileName := EditImagePath.Text;
                OpenDlg.Filter := 'Image Files (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf|All Files(*.*)|*.*';
                OpenDlg.Options := OpenDlg.Options + [ofPathMustExist];
                if OpenDlg.Execute then
                begin
                        EditImagePath.Text := OpenDlg.Filename;
                        ImageCommodity.Picture.LoadFromFile(EditImagePath.Text);
                end;
        finally
                OpenDlg.Free;
        end;
end;

procedure TFormSetCommodity.FormShow(Sender: TObject);
var
        i, Min, Max: integer;
        item: string;
begin
        CBSort.Clear;   
        DataSetSortTrade.Active := False;
        DataSetSortTrade.CommandText := 'select name from Sort';
        DataSetSortTrade.Active := True;
        Min := 0;
        Max := DataSetSortTrade.RecordCount;
        DataSetSortTrade.First;
        for i := Min to (Max-1) do
        begin
                item := DataSetSortTrade.FieldByName('name').AsString;
                CBSort.Items.Add(item);
                DataSetSortTrade.Next;
        end;

        CBTrade.Clear;
        DataSetSortTrade.Active := False;
        DataSetSortTrade.CommandText := 'select name from Trade';
        DataSetSortTrade.Active := True;
        Min := 0;
        Max := DataSetSortTrade.RecordCount;
        DataSetSortTrade.First;
        for i := Min to (Max-1) do
        begin
                item := DataSetSortTrade.FieldByName('name').AsString;
                CBTrade.Items.Add(item);
                DataSetSortTrade.Next;
        end;
end;

procedure TFormSetCommodity.BtnAddClick(Sender: TObject);
var
        SortID, TradeID: string;
begin
        if (EditID.Text = '') or (EditName.Text = '') or (CBSort.Text = '') or (CBTrade.Text = '') then
        begin
                Application.MessageBox('输入不能为空！', '错误', MB_OK);
                exit;
        end;

        SortID := GetIDByName(CBSort.Text, 'Sort');
        TradeID := GetIDByName(CBTrade.Text, 'Trade');

        CmdSetCommodity.CommandText :=
                'INSERT INTO Commodity Values('''
                + EditID.Text
                + ''','''
                + EditName.Text
                + ''','''
                + SortID
                + ''','''
                + TradeID
                + ''','''
                + EditImagePath.Text
                +  ''')';
        CmdSetCommodity.Execute;

        DataSetCommodity.Requery;
end;

procedure TFormSetCommodity.BtnModifyClick(Sender: TObject);
var
        SortID, TradeID: string;
begin
        if (EditID.Text = '') or (EditName.Text = '') or (CBSort.Text = '') or (CBTrade.Text = '') then
        begin
                Application.MessageBox('输入不能为空！', '错误', MB_OK);
                exit;
        end;

        SortID := GetIDByName(CBSort.Text, 'Sort');
        TradeID := GetIDByName(CBTrade.Text, 'Trade');

        CmdSetCommodity.CommandText :=
                'UPDATE Commodity Set name = '''
                + EditName.Text
                + ''' , Sort = '''
                + SortID
                + ''', Trade = '''
                + TradeID
                + ''', Picture = '''
                + EditImagePath.Text
                +  ''' WHERE ID = '''
                + EditID.Text
                + '''';
        CmdSetCommodity.Execute;

        DataSetCommodity.Requery;
end;

procedure TFormSetCommodity.BtnRemoveClick(Sender: TObject);
begin
        CmdSetCommodity.CommandText :=
                'DELETE FROM Commodity WHERE ID = '''
                + EditID.Text
                + '''';
        CmdSetCommodity.Execute;

        DataSetCommodity.Requery;
end;

procedure TFormSetCommodity.DataGridDblClick(Sender: TObject);
var
        TradeID, SortID, ImagePath: string;
begin
        EditID.Text := DataSetCommodity.FieldByName('id').AsString;
        EditName.Text := DataSetCommodity.FieldByName('name').AsString;
        SortID := DataSetCommodity.FieldByName('sort').AsString;
        TradeID := DataSetCommodity.FieldByName('trade').AsString;

        CBSort.Text := GetNameByID(SortID, 'Sort');
        CBTrade.Text := GetNameByID(TradeID, 'Trade');

        ImagePath := DataSetCommodity.FieldByName('picture').AsString;
        EditImagePath.Text := ImagePath;
        if not(ImagePath = '') then
        begin
                if FileExists(ImagePath) then
                        ImageCommodity.Picture.LoadFromFile(ImagePath)
                else
                begin
                        Application.MessageBox('无法找到指定文件！', '错误', MB_OK);
                        EditImagePath.Text := ''
                end
        end
        else
        begin
                SetCurrentDir(ExtractFileDir(Application.Exename));
                ImageCommodity.Picture.LoadFromFile('NoPicture.bmp')
        end
end;

end.