notuse.pas

西京票据管理系统刚刚获得

unit NOTUSE;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls,main;

type
  TFRMNOTUSE = class(TForm)
    EdHM: TEdit;
    CDJLX: TComboBox;
    Label1: TLabel;
    Label4: TLabel;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    CDJZT: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure EdHMKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure EdHMKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CDJLXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CDJZTKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMNOTUSE: TFRMNOTUSE;

implementation
USES UDM;
{$R *.dfm}

procedure TFRMNOTUSE.FormShow(Sender: TObject);

begin
  EdHM.Text:='';
  CDJLX.Text:='';
  CDJZT.Text:='';
 DM.ADOLX.Open;
 DM.ADOTEMP.Open;
 with dm.ADOTP do
  begin
    close;
    SQL.Clear;
    SQL.Add('select * from meun_zt');
    Prepared;
    Open;
  end;
  CDJZT.Items.Clear;
  while not dm.ADOTP.Eof do
   begin
     Close;
     CDJZT.Items.Append(dm.ADOTP.fieldbyname('djzt').AsString);
     DM.ADOTP.Next;
   end;
  WITH DM.ADOLX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from typeunit');
    Prepared;
    Open;
  end;
  CDJLX.Items.Clear;
  while not dm.ADOLX.Eof do
  begin
    CDJLX.Items.Append(dm.ADOLX.fieldbyname('typename').AsString);
    dm.ADOLX.Next;
  end;

end;

procedure TFRMNOTUSE.BitBtn2Click(Sender: TObject);
begin
  CLOSE;
end;

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

procedure TFRMNOTUSE.BitBtn1Click(Sender: TObject);
begin
 if Caption='未使用单据' then
  begin
  IF DM.ADOTEMP.RecordCount>0 THEN
  begin
    with dm.ADOTEMP do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from libnumber');
      SQL.Add('where numberid=:id and numbertype like :type');
      Parameters.ParamByName('id').Value:=EdHM.Text;
      Parameters.ParamByName('type').Value:='%'+CDJLX.Text+'%';
      Prepared;
      Open;
    end;
  end
  else
  begin
    MessageBox(Handle,'没有领用单据，无未使用单据信息','系统提示',MB_OK+MB_OKCANCEL);
    Exit;
  end;
 end
 else
 if Caption='核销单据' then
  begin
    if dm.ADOCODE.RecordCount>0 then
     begin
       with dm.ADOCODE do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select * from libnumberls');
          SQL.Add('where numberid=:id  and numbertype LIKE :type and zt like :zt');
          Parameters.ParamByName('id').Value:=EdHM.Text;
          Parameters.ParamByName('type').Value:='%'+CDJLX.Text+'%';
          Parameters.ParamByName('id').Value:=EdHM.Text;
          Parameters.ParamByName('zt').Value:='%'+CDJzt.Text+'%';
          Prepared;
          Open;
        end;
     end
     else
     begin
     MessageBox(Handle,'核消单据不存在','系统提示',MB_OK+MB_OKCANCEL);
     Exit;
     end;
  end;

  dm.ADOCODE.Close;
  dm.ADOCODE.Open;
  frmmain.dxDBGrid1.FullExpand;
end;

procedure TFRMNOTUSE.EdHMKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 IF Key=$0D then
 CDJLX.SetFocus;
end;

procedure TFRMNOTUSE.CDJLXKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 IF Key=$0D then
 CDJZT.SetFocus;
end;

procedure TFRMNOTUSE.CDJZTKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=13 then
 BitBtn1Click(Sender);

end;

end.