unitlistmore.pas

delphi+sql server 我是delphi的初学者

unit Unitlistmore;

interface

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

type
  TFormlistmore = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edid: TEdit;
    Czt: TComboBox;
    Clx: TComboBox;
    dxCurrencyEdit1: TdxCurrencyEdit;
    dxDateEdit1: TdxDateEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EdidKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdidKeyPress(Sender: TObject; var Key: Char);
    procedure ClxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxCurrencyEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxDateEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CztKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formlistmore: TFormlistmore;

implementation
uses UDM;
{$R *.dfm}

procedure TFormlistmore.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TFormlistmore.FormShow(Sender: TObject);
begin
    with dm.qrytemp do
     begin
       Close;
       SQL.Clear;
       SQL.Add('select djzt from meun_zt');
       Prepared;
       Open;
     end;
    Czt.Items.Clear;
    while not dm.qrytemp.Eof do
      begin
        Czt.Items.Append(dm.qrytemp.Fields[0].AsString);
        DM.qrytemp.Next;
      end;


   with dm.qrytemp do
     begin
       Close;
       SQL.Clear;
       SQL.Add('select typename from typeunit');
       Prepared;
       Open;
     end;
    Clx.Items.Clear;
    while not dm.qrytemp.Eof do
      begin
        Clx.Items.Append(dm.qrytemp.Fields[0].AsString);
        DM.qrytemp.Next;
      end;

end;

procedure TFormlistmore.EdidKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=$0D then
    Czt.SetFocus;
end;

procedure TFormlistmore.EdidKeyPress(Sender: TObject; var Key: Char);
begin
   IF not (Key in ['0'..'9',#8]) then
   key:=#0;
end;

procedure TFormlistmore.ClxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=$0D then
 dxCurrencyEdit1.SetFocus;
end;

procedure TFormlistmore.dxCurrencyEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
     if Key=$0D then
 dxDateEdit1.SetFocus;
end;

procedure TFormlistmore.dxDateEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
  Button1Click(Sender);
end;

procedure TFormlistmore.CztKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key=$0D then
 Clx.SetFocus;
end;

procedure TFormlistmore.Button1Click(Sender: TObject);
  begin
    if Caption='修改核销单据'  then
     begin
      try
       dm.con1.BeginTrans;
       with dm.qrytemp do
        begin
          Close;
          SQL.Clear;
          SQL.Add('update libnumberls');
          SQL.Add('set');
          SQL.Add('zt=:zt,numbertype=:type,jine=:jin,rq=:rq');
          SQL.Add('where numberid=:id');
          Parameters.ParamByName('id').Value:=Edid.Text;
          Parameters.ParamByName('zt').Value:=Czt.Text;
          Parameters.ParamByName('type').Value:=Clx.Text;
          Parameters.ParamByName('jin').Value:=dxCurrencyEdit1.Value;
          Parameters.ParamByName('rq').Value:=dxDateEdit1.Date;
          ExecSQL;
        end;
        dm.con1.CommitTrans;
       except
        dm.con1.RollbackTrans;
      end;
      dm.ADOlibnumberls.Close;
      dm.ADOlibnumberls.Open;
     end;
  end;

end.