changedj.pas

delphi+sql server 我是delphi的初学者

unit changedj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxCntner, dxEditor, dxExEdtr, dxEdLib, StdCtrls, Buttons,
  ExtCtrls, ComCtrls;

type
  Tfrmchangedj = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    ComboBox1: TComboBox;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    dxCurrencyEdit1: TdxCurrencyEdit;
    ComboBox2: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchangedj: Tfrmchangedj;

implementation
uses udm;
{$R *.dfm}

procedure Tfrmchangedj.FormShow(Sender: TObject);
begin

 WITH DM.ADOZTDJ DO
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from meun_zt');
    Prepared;
    Open;
  end;
  ComboBox1.Items.Clear;
  while not dm.ADOZTDJ.Eof do
  begin
    ComboBox1.Items.Append(dm.ADOZTDJ.fieldbyname('djzt').AsString);
    DM.ADOZTDJ.Next;
  end;
  with DM.ADOLX do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from typeunit');
     Prepared;
     Open;
   end;
  ComboBox2.Items.Clear;
  while not DM.ADOLX.Eof do
  begin
    ComboBox2.Items.Append(dm.ADOLX.fieldbyname('typename').AsString);
    dm.ADOLX.Next;
  end;
end;

procedure Tfrmchangedj.Panel1Click(Sender: TObject);
begin
   Close;
end;

procedure Tfrmchangedj.BitBtn1Click(Sender: TObject);
begin
 dm.ADOCon1.BeginTrans;
 try
   with dm.ADOTP do
    begin
      Close;
      SQL.Clear;
      SQL.Add('update libnumberls');
      SQL.Add('set zt=:zt,numbertype=:type,jine=:je,rq=:rq');
      SQL.Add('where numberid=:id and sxdm=:dm');
      Parameters.ParamByName('zt').Value:=ComboBox1.Text;
      Parameters.ParamByName('type').Value:=ComboBox2.Text;
      Parameters.ParamByName('je').Value:=dxCurrencyEdit1.Value;
      Parameters.ParamByName('rq').Value:=DateTimePicker1.Date;
      Parameters.ParamByName('dm').Value:=dm.HDM;
      Parameters.ParamByName('id').Value:=dm.ADOCODE.Fieldbyname('numberid').AsString;
      ExecSQL;
    end;
    dm.ADOCon1.CommitTrans;
 except
   ShowMessage('修改数据失败！');
    dm.ADOCon1.RollbackTrans;
 end;
 dm.ADOCODE.Close;
 dm.ADOCODE.Open;
end;

procedure Tfrmchangedj.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.