checkflow.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit checkflow;

interface

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

type
  Tcheckflowfm = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Database1: TDatabase;
    Query1izCode: TIntegerField;
    Query1ijcode: TIntegerField;
    Query1igoods: TIntegerField;
    Query1Msum: TFloatField;
    Query1Mcashsum: TFloatField;
    Query1Mbillsum: TFloatField;
    Query1Mcardsum: TFloatField;
    Query1Mothsum: TFloatField;
    Query1Ibillnum: TSmallintField;
    Query1Icardnum: TSmallintField;
    Query1Iothnum: TSmallintField;
    Query1Isource: TSmallintField;
    Query1Caim: TStringField;
    Query1Ireason: TSmallintField;
    Query1Iinhand: TSmallintField;
    Query1Cpname: TStringField;
    Query1Dptime: TDateTimeField;
    Query1Crname: TStringField;
    Query1Drtime: TDateTimeField;
    Query1Cmemo: TStringField;
    GDSStdPanel: TPanel;
    ImageBevel: TBevel;
    GDSSloganLabel2: TLabel;
    GDSLabel2: TLabel;
    GDSStdImage: TImage;
    GDSLabel: TLabel;
    GDSSloganLabel: TLabel;
    StdCtrlPanel: TPanel;
    SpeedButton8: TSpeedButton;
    GroupBox4: TGroupBox;
    GroupBox3: TGroupBox;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    SpeedButton6: TSpeedButton;
    GroupBox2: TGroupBox;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Edit3: TEdit;

    procedure Edit2enter(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure DBGrid1EditButtonClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  checkflowfm: Tcheckflowfm;

implementation

{$R *.DFM}


procedure Tcheckflowfm.Edit2enter(Sender: TObject);
begin
query1.close;
 if (edit2.text<>'')then
 begin
 query1.sql.Clear ;
 query1.sql.Add('select * from zjlshtab ');
 query1.sql.add('where cpname like '+edit2.text);
 end;
  try
 query1.open;
 except
  on edatabaseerror do
    showmessage('error!');
end;
end;


procedure Tcheckflowfm.RadioButton1Click(Sender: TObject);
var
  ADateAndTime: TDateTime;
begin
     ADateAndTime := datetimepicker1.datetime ;
     Query1.Close;
     Query1.Sql.Clear ;
     Query1.Sql.Add('select * from zjlshtab ');
     Query1.Sql.Add('where dptime<:pDateTime');

     query1.parambyname('pDateTime').AsDatetime := ADateAndTime;
     query1.prepare;
     Query1.Open;
     dbgrid1.SetFocus ;
end;

procedure Tcheckflowfm.RadioButton2Click(Sender: TObject);
var
  ADateAndTime: TDateTime;
begin
     ADateAndTime := datetimepicker1.datetime ;
     Query1.Close;
     Query1.Sql.Clear ;
     Query1.Sql.Add('select * from zjlshtab ');
     Query1.Sql.Add('where dptime>:pDateTime');

     Query1.ParamByName('pDateTime').AsDatetime := ADateAndTime;
     query1.prepare;
     Query1.Open;
     dbgrid1.SetFocus ;
end;

procedure Tcheckflowfm.RadioButton4Click(Sender: TObject);
begin
query1.close;
 if (edit3.text<>'')then
 begin
 query1.sql.Clear ;
 query1.sql.Add('select * from zjlshtab ');
 query1.sql.add('where msum<'+edit3.text);
 end
 else
  showmessage('请输入金额大小!') ;
  try
 query1.open;
 except
  on edatabaseerror do
    showmessage('error!');
  end;
  dbgrid1.SetFocus ;
end;

procedure Tcheckflowfm.RadioButton5Click(Sender: TObject);
begin
 query1.close;
 if (edit3.text<>'')then
 begin
 query1.sql.Clear ;
 query1.sql.Add('select * from zjlshtab ');
 query1.sql.add('where msum>='+edit3.text);
 end
 else
  showmessage('请输入金额大小!') ;
  try
 query1.open;
 except
  on edatabaseerror do
    showmessage('error!');
  end;
 dbgrid1.SetFocus ;
end;

procedure Tcheckflowfm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 // erase existing output
  DBGrid1.Canvas.FillRect (Rect);
  (query1.fieldbyname('dptime')as tdatetimefield).displayformat:='mm-dd-yyyy';
 // choose the font color
    if (Column.Field = query1msum) and
        (query1msum.AsInteger < 0) then
      DBGrid1.Canvas.Font.Color := clRed
    else
    if (Column.Field = query1msum) and
        (query1msum.AsInteger > 0) then
      DBGrid1.Canvas.Font.Color := clgreen
    else if gdSelected in State then
      DBGrid1.Canvas.Font.Color := clHighlightText
    else
      DBGrid1.Canvas.Font.Color := Column.Font.Color;
    // draw the standard text
    DBGrid1.Canvas.TextRect (
      Rect, Rect.Left, Rect.Top,
      Column.Field.AsString);

  // optionally draw the focus rectangle
  if gdFocused in State then
    DBGrid1.Canvas.DrawFocusRect (Rect);
end;

procedure Tcheckflowfm.SpeedButton1Click(Sender: TObject);
begin
query1.Next;
end;

procedure Tcheckflowfm.SpeedButton2Click(Sender: TObject);
begin
query1.Prior ;
end;

procedure Tcheckflowfm.SpeedButton6Click(Sender: TObject);
begin
  {query1.Close;
  query1.sql.Clear ;
  query1.sql.Add('select * from zjlshtab ');
  query1.open;}
  checkflowfm.Close ;
  checkflowfm.Release ;
end;

procedure Tcheckflowfm.DBGrid1EditButtonClick(Sender: TObject);
begin
showmessage('llaala!')
end;

procedure Tcheckflowfm.Button2Click(Sender: TObject);
begin
query1dptime.displayformat:='mm-dd-yyyy';
query1msum.displayformat:='###,###,###';
end;

procedure Tcheckflowfm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
 begin
  query1.close;
  if (edit2.text<>'')then
  begin
   query1.sql.Clear ;
   query1.sql.Add('select * from zjlshtab ');
   query1.sql.add('where cpname like :pname');
   Query1.ParamByName('pname').Asstring := edit2.text;
  end
  else
   showmessage('请输入交款人姓名!') ;
  try
 query1.open;
 except
  on edatabaseerror do
    showmessage('error!');
  end;
end;
if key=vk_escape then
 begin
   checkflowfm.close;
   checkflowfm.Release;
 end;
end;

procedure Tcheckflowfm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_escape then
 begin
   checkflowfm.close;
   checkflowfm.Release;
 end;
end;

procedure Tcheckflowfm.DateTimePicker1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if key=vk_escape then
 begin
   checkflowfm.close;
   checkflowfm.Release;
 end;
end;

procedure Tcheckflowfm.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_escape then
 begin
   checkflowfm.close;
   checkflowfm.Release;
 end;
end;

end.