pawnquery.pas

一个典当行的业务管理系统程序

unit PawnQuery;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, Db,
  DBTables, Spin;

type
  TfrmPawnQuery = class(TForm)
    GroupBox2: TGroupBox;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    cmdLost: TButton;
    cmdFind: TButton;
    Label2: TLabel;
    txtPawnCode: TEdit;
    Label1: TLabel;
    txtID: TEdit;
    dgDetail: TDBGrid;
    dgHead: TDBGrid;
    Label3: TLabel;
    txtPawnerName: TEdit;
    cmdQuery: TButton;
    cmdDelete: TButton;
    cmdExit: TButton;
    staQuery: TStaticText;
    ckOnpawn: TRadioButton;
    ckOutpawn: TRadioButton;
    ckNopawn: TRadioButton;
    ckTotalData: TRadioButton;
    txtBeginYear: TSpinEdit;
    txtBeginMonth: TSpinEdit;
    txtBeginDay: TSpinEdit;
    txtEndYear: TSpinEdit;
    txtEndMonth: TSpinEdit;
    txtEndDay: TSpinEdit;
    ckRansom: TRadioButton;
    Label4: TLabel;
    staRecNum: TStaticText;
    dgHRansom: TDBGrid;
    procedure cmdExitClick(Sender: TObject);
    procedure txtPawnCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtPawnerNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtBeginMonthKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtBeginDayKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtEndYearKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtEndYearExit(Sender: TObject);
    procedure txtEndMonthKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtEndDayKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ckOnpawnKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ckOutpawnKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ckNopawnKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cmdQueryClick(Sender: TObject);
    procedure dgHeadCellClick(Column: TColumn);
    procedure cmdLostClick(Sender: TObject);
    procedure cmdFindClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdDeleteClick(Sender: TObject);
    procedure cmbCategoryKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dgHRansomKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dgHeadKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    procedure ClearForm;
    //procedure IniCategoryBox;
  public
    { Public declarations }
  end;

var
  frmPawnQuery: TfrmPawnQuery;
  ModifyCode:string;
  
implementation

uses DmPawn, Msg, Pawn, PawnModify;

var
   PawnCode:string;
   DataSetHeadOpenMark:Boolean;
   CertiEnterTimes:Integer; //证件名称选择时用到(即组合框用键盘控制时用到)
{$R *.DFM}
procedure TfrmPawnQuery.ClearForm;
var
   Present: TDateTime;
   Year, Month, Day: Word;
begin
     Present:= Now;
     DecodeDate(Present, Year, Month, Day);
     txtBeginYear.Value :=Year;
     txtBeginMonth.Value :=Month;
     txtBeginDay.Value :=Day;
     txtEndYear.Value:=Year;
     txtEndMonth.Value:=Month;
     txtEndDay.Value:=Day;

     txtPawnCode.Text:='';
     txtID.Text:='';
     txtPawnerName.Text:='';
     //cmbCategory.Text:='';
     
     ckOnpawn.Checked:=False;
     ckOutpawn.Checked:=False;
     ckNopawn.Checked:=False;
     
end;

//初始化物品类别组合框
{procedure TfrmPawnQuery.IniCategoryBox;
begin
     with cmbCategory.Items do
     begin
          with dmPawnFrm do
          begin
               tblCategory.Open;
               tblCategory.First ;
               while not tblCategory.Eof do
               begin
                    Add(tblCategory.fieldByName('Name').asstring);
                    tblCategory.Next ;
               end;
               tblCategory.Close;
          end;
     end;
     //cmbCategory.ItemIndex :=0;

end;}

procedure TfrmPawnQuery.cmdExitClick(Sender: TObject);
begin
     if PawnModify.ModifyMark=True then
     begin
          PawnModify.ModifyMark:=False;
          ModifyCode:=PawnCode;
          ModalResult:=mrOk;
     end;
     if DataSetHeadOpenMark=True then
     begin
          DataSetHeadOpenMark:=False;
     end;
     dmPawnFrm.dqDetailUn.close;
     close;
end;

procedure TfrmPawnQuery.txtPawnCodeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          {if txtPawnCode.Text='' then
          begin
             messagedlg(Msg.MsgPawnCodeInput,mtWarning,[mbYes],0);
             txtPawnCode.SetFocus ;
          end
          else}
              txtID.SetFocus ;
     end;
end;

procedure TfrmPawnQuery.txtIDKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
        txtPawnerName.SetFocus ;
end;

procedure TfrmPawnQuery.txtPawnerNameKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
     if key=VK_RETURN then
        txtBeginYear.SetFocus ;
end;


procedure TfrmPawnQuery.txtBeginMonthKeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
   Present: TDateTime;
   Year, Month, Day: Word;
   InputMonth:integer;
begin
     Present:= Now;
     DecodeDate(Present, Year, Month, Day);

     if txtBeginMonth.Text ='' then
        txtBeginMonth.Text:=IntToStr(Month);
     if (length(txtBeginMonth.text)=2)then
     begin
          InputMonth:=strtoint(txtBeginMonth.Text);
        if (InputMonth>12)or(InputMonth<1) then
        begin
             txtBeginMonth.Text :=IntToStr(Month);
        end;
        txtBeginDay.SetFocus ;
     end;
end;

procedure TfrmPawnQuery.txtBeginDayKeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
   Present: TDateTime;
   Year, Month, Day: Word;
begin
     Present:= Now;
     DecodeDate(Present, Year, Month, Day);
     if txtBeginDay.Text =''then
        txtBeginDay.Text:=IntToStr(Day);
     if length(txtBeginDay.text)=2 then
     begin
        if (strtoint(txtBeginDay.text)<1)or
           (strtoint(txtBeginDay.text)>31) then
        begin
             txtBeginDay.Text :=IntToStr(Day);
        end;
        txtEndYear.SetFocus ;
     end;
end;

procedure TfrmPawnQuery.txtEndYearKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
   Present: TDateTime;
   Year, Month, Day: Word;
begin
     Present:= Now;
     DecodeDate(Present, Year, Month, Day);
     if txtEndYear.Text ='' then
        txtEndYear.Text :=IntToStr(Year);
     if (length(txtEndYear.text)=4) then {or
        (length(txtPawnEndYear.text)=2)then }
        txtEndMonth.SetFocus ;
end;

procedure TfrmPawnQuery.txtEndYearExit(Sender: TObject);
var
   InputYear : Integer;
   Present: TDateTime;
   Year, Month, Day: Word;
begin
     Present:= Now;
     DecodeDate(Present, Year, Month, Day);
     if txtEndYear.Text =''then
        txtEndYear.Text :=IntToStr(Year);
     InputYear:=strtoint(txtEndYear.text);
     case InputYear of
          0:txtEndYear.Text :='2000';
          1..9:txtEndYear.Text :='190'+inttostr(InputYear);
          10..64:txtEndYear.Text :='19'+inttostr(InputYear);
          65..99:txtEndYear.Text :='19'+txtEndYear.Text ;
     end;
end;

procedure TfrmPawnQuery.txtEndMonthKeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
   Present: TDateTime;
   Year, Month, Day: Word;
begin
     Present:= Now;
     DecodeDate(Present, Year, Month, Day);
     if txtEndMonth.Text ='' then
        txtEndMonth.Text :=IntToStr(Month);
     if length(txtEndMonth.text)=2then
     begin
        if (strtoint(txtEndMonth.text)<1)or
           (strtoint(txtEndMonth.text)>12) then
        begin
          txtEndMonth.Text :=IntToStr(Month);
        end;
        txtEndDay.SetFocus ;
     end;
end;

procedure TfrmPawnQuery.txtEndDayKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
   Present: TDateTime;
   Year, Month, Day: Word;
begin
     Present:= Now;
     DecodeDate(Present, Year, Month, Day);
     if txtEndDay.Text ='' then
        txtEndDay.Text :=IntToStr(Day);
     if length(txtEndDay.text)=2 then
     begin
        if(strtoint(txtEndDay.text)>31)or
        (strtoint(txtEndDay.text)<1)then
        begin
          txtEndDay.Text :=IntToStr(Day);
        end;
        ckOnpawn.Checked :=True ;
        ckOnpawn.SetFocus;
     end;
end;
//在当选择
procedure TfrmPawnQuery.ckOnpawnKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if ckOnpawn.Checked=True then
             ckOnpawn.Checked :=False
          else
              ckOnpawn.Checked :=True;
     end;
end;
//逾期选择
procedure TfrmPawnQuery.ckOutpawnKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if ckOutpawn.Checked =True then
             ckOutpawn.Checked :=False