carinfo_unit.pas

货源代理管理系统 同样是DELPHI7下的

unit CarInfo_Unit;

interface

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

type
  TfrmCarInfo = class(TForm)
    Panel1: TPanel;
    btnAdd: TSpeedButton;
    btnModfiy: TSpeedButton;
    btnDel: TSpeedButton;
    btnCancel: TSpeedButton;
    btnSave: TSpeedButton;
    btnClosed: TSpeedButton;
    btnFind: TSpeedButton;
    btnRefresh: TSpeedButton;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBEdit2: TDBEdit;
    DBComboBox1: TDBComboBox;
    procedure btnAddClick(Sender: TObject);
    procedure btnModfiyClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnClosedClick(Sender: TObject);
    procedure btnFindClick(Sender: TObject);
    procedure btnRefreshClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCarInfo: TfrmCarInfo;

implementation

uses ClientDM_Unit;

{$R *.dfm}

procedure TfrmCarInfo.btnAddClick(Sender: TObject);
begin
  DM.cdsCar.Insert;
end;

procedure TfrmCarInfo.btnModfiyClick(Sender: TObject);
begin
  DM.cdsCar.Edit;
end;

procedure TfrmCarInfo.btnDelClick(Sender: TObject);
begin
  if Application.MessageBox('确定要删除此条记录吗?','提示',68) = IDNo then Exit;
  DM.cdsCar.Delete;
  DM.cdsCar.ApplyUpdates(0);
end;

procedure TfrmCarInfo.btnCancelClick(Sender: TObject);
begin
  DM.cdsCar.Cancel
end;

procedure TfrmCarInfo.btnSaveClick(Sender: TObject);
begin
  if DM.cdsCar.State in [dsInsert,dsEdit] then
  begin
    DM.cdsCar.Post;
    DM.cdsCar.ApplyUpdates(0);
  end;
end;

procedure TfrmCarInfo.btnClosedClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmCarInfo.btnFindClick(Sender: TObject);
var
  CarBool: Boolean;
  CarID: string;
begin
  CarID := DBEdit1.Text;
  CarBool := InputQuery('查询','请输入要查询编号',CarID);
  if CarBool then
  begin
    DM.cdsCar.Filtered := False;
    DM.cdsCar.Filter :=' CarNumber=' + QuotedStr(CarID);
    DM.cdsCar.Filtered := True;
  end;
end;

procedure TfrmCarInfo.btnRefreshClick(Sender: TObject);
begin
  DM.cdsCar.Filtered := False;
  DM.cdsCar.Filter :='';
  DM.cdsCar.Filtered := True;
end;

end.