takepageman.pas

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

unit takepageman;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, dxCntner, dxEditor, dxExEdtr,
  dxEdLib, dxDBELib, DBCtrls, Mask, DB;

type
  Tfrmtakepageman = class(TForm)
    pnl1: TPanel;
    btn1: TBitBtn;
    btn2: TBitBtn;
    pnl2: TPanel;
    spl1: TSplitter;
    spl2: TSplitter;
    spl3: TSplitter;
    spl4: TSplitter;
    ds1: TDataSource;
    dbedt2: TDBEdit;
    dbcbb1: TDBComboBox;
    dxDBDateEdit1: TdxDBDateEdit;
    dbedt3: TDBEdit;
    dbcbb2: TDBComboBox;
    dbedt4: TDBEdit;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dbedt2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbcbb1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxDBDateEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbedt3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbcbb2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbedt3KeyPress(Sender: TObject; var Key: Char);
    procedure dbedt4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
   
    { Public declarations }
  end;

var
  frmtakepageman: Tfrmtakepageman;

implementation
uses UDM;

{$R *.dfm}

procedure Tfrmtakepageman.btn2Click(Sender: TObject); 
begin
  close;
end;

procedure Tfrmtakepageman.btn1Click(Sender: TObject);
begin
   if dbedt2.Text='' then
   begin
   MessageBox(handle,'领用人不能为空!','系统提示',mb_iconinformation+mb_ok);
    dbedt2.SetFocus;
    exit;
   end;
   if dxDBDateEdit1.Text='' then
   begin
    MessageBox(handle,'领用日期不能为空!','系统提示',mb_iconinformation+mb_ok);
    dxDBDateEdit1.SetFocus;
    exit;
   end;
   dm.tblperson.Post;
   close;
end;

procedure Tfrmtakepageman.FormShow(Sender: TObject);
begin
   DM.tblperson.Open;
    with dm.qrytemp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from ly_place');
    prepared;
    open;
  end;
  dbcbb2.Items.Clear;
  while not dm.qrytemp.Eof do
  begin
    dbcbb2.Items.Append(dm.qrytemp.Fields[2].asstring);
    dm.qrytemp.Next;
  end;
end;

procedure Tfrmtakepageman.dbedt2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    IF key=$0D then
   dbcbb1.SetFocus;
end;

procedure Tfrmtakepageman.dbcbb1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    IF key=$0D then
   dxdbdateedit1.SetFocus;
end;

procedure Tfrmtakepageman.dxDBDateEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   IF key=$0D then
   dbedt3.SetFocus;
end;

procedure Tfrmtakepageman.dbedt3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF key=$0D then
 dbcbb2.SetFocus;
end;

procedure Tfrmtakepageman.dbcbb2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF key=$0D then
 dbedt4.SetFocus; 
end;

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

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

end.