mxcu.pas

delphi+sql server 我是delphi的初学者

unit mxcu;

interface

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

type
  TFrmmxcx = class(TForm)
    pnl1: TPanel;
    spl1: TSplitter;
    qrymx: TADOQuery;
    ds1: TDataSource;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    edt5: TEdit;
    edt6: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    edt7: TEdit;
    lbl7: TLabel;
    btn1: TBitBtn;
    r1: TdxDBGrid;
    personidr1Column1: TdxDBGridColumn;
    personidr1Column2: TdxDBGridColumn;
    personidr1Column3: TdxDBGridColumn;
    personidr1Column4: TdxDBGridColumn;
    personidr1Column5: TdxDBGridColumn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure r1DblClick(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmmxcx: TFrmmxcx;

implementation
uses UDM;

{$R *.dfm}

procedure TFrmmxcx.FormShow(Sender: TObject);
begin
         qrymx.Open;
       edt1.Text:='';
       edt2.Text:='';
       edt3.Text:='';
       edt4.Text:='';
       edt5.Text:='';
       edt6.Text:='';
       edt7.Text:='';
      edt4.Text:=dm.tblpjly.fieldbyname('list').AsString;
      edt1.Text:=dm.tblpjly.fieldbyname('lyperson').AsString;
      edt3.Text:=dm.tblpjly.fieldbyname('numberto').AsString;
      edt2.Text:=dm.tblpjly.fieldbyname('numbers').AsString;
      edt5.Text:=dm.tblpjly.fieldbyname('numbertyoe').AsString;
      edt6.Text:=dm.tblpjly.fieldbyname('lydjplace').AsString;
      edt7.Text:=dm.tblpjly.fieldbyname('lydate').AsString;

end;

procedure TFrmmxcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    qrymx.Close;
end;

procedure TFrmmxcx.r1DblClick(Sender: TObject);
begin
  if (qrymx.FieldByName('hxbz').Asstring='0' )and (qrymx.FieldByName('A').AsBoolean=FALSE )
   and(qrymx.FieldByName('B').AsBoolean=false) then
   begin
     qrymx.Edit;
     qrymx.FieldByName('hxbz').Asstring:='1';
     qrymx.FieldByName('A').AsBoolean:=TRUE;
     qrymx.FieldByName('B').AsBoolean:=TRUE;
     QRYMX.Post;
     showmessage('此单据已收回!');
   end;
   qrymx.Close;
   qrymx.Open;
end;

procedure TFrmmxcx.btn1Click(Sender: TObject);
begin
   close;
end;

end.