sjfm.pas

不管我的程序编得怎么样

unit sjfm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, ExtCtrls, jpeg;

type
  Tsjform = class(TForm)
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Panel2: TPanel;
    Image3: TImage;
    Panel3: TPanel;
    Image4: TImage;
    Label1: TLabel;
    Panel4: TPanel;
    Panel5: TPanel;
    Label2: TLabel;
    keyword: TEdit;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    Button3: TButton;
    StatusBar1: TStatusBar;
    Button4: TButton;
    DateTimePicker1: TDateTimePicker;
    procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjform: Tsjform;

implementation
uses loginfm,dmfm;
{$R *.dfm}

procedure Tsjform.Image4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

  ReleaseCapture;
  SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure Tsjform.FormShow(Sender: TObject);
var
asql:string;
begin
  if G_flag=0 then
   begin
    DateTimePicker1.Visible:=true;
    button2.Visible:=true;
   end
  else
   begin
    DateTimePicker1.Visible:=false;
    button2.Visible:=false;
   end;

with dm.aq_jl do
 begin
  close;
  sql.Clear;
  if G_flag=0 then
   begin
   asql:='select * from 消费记录 order by id desc';
   end
  else
   begin
   asql:='select * from 消费记录 where 操作员='''+G_username+''' order by id desc';
   end;
  sql.Add(asql);
  try
  open;
  except
  end;
  DBGrid1.Columns[0].Width:=60;
  DBGrid1.Columns[1].Width:=60;
  DBGrid1.Columns[2].Width:=60;
  DBGrid1.Columns[3].Width:=120;
  DBGrid1.Columns[4].Width:=120;
  DBGrid1.Columns[5].Width:=120;
  DBGrid1.Columns.Items[0].FieldName :='应收';
  DBGrid1.Columns.Items[1].FieldName :='优惠';
  DBGrid1.Columns.Items[2].FieldName :='实收';
  DBGrid1.Columns.Items[3].FieldName :='会员名称';
  DBGrid1.Columns.Items[4].FieldName :='操作员';
  DBGrid1.Columns.Items[5].FieldName :='操作时间';
  StatusBar1.Panels.Items[0].Text:='共有 '+inttostr(RecordCount) + ' 条记录';
 end;
end;

procedure Tsjform.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tsjform.Button4Click(Sender: TObject);
var
hj:integer;
asql:string;
begin
if G_flag=0 then
 begin
 if keyword.text='' then
  begin
   Application.MessageBox('请填写要统计的管理员名称！', '明宇提示', Mb_Ok or Mb_IconStop);
   keyword.SetFocus;
  end
 else
  begin
   hj:=0;
   with dm.aq_jl do
    begin
     close;
     sql.Clear;
     asql:='select * from 消费记录 where 操作员='''+keyword.Text+''' and 操作时间 like ''%'+datetostr(DateTimePicker1.Date)+'%'' order by id desc';
     sql.Add(asql);
     active:=true;
     first;
     while not eof do
      begin
       hj:=hj+FieldValues['应收'];
       next;
      end;StatusBar1.Panels.Items[1].Text:='查询日期： '+datetostr(DateTimePicker1.Date) + ',操作员：'+keyword.Text+',应交款：'+inttostr(hj)+'元!';
    end;
  end;
 end
else
 begin
 hj:=0;
with dm.aq_jl do
 begin
  close;
  sql.clear;
  asql:='select * from 消费记录 where 操作员='''+G_username+''' and 操作时间 like ''%'+datetostr(date)+'%''  order by id desc';
  sql.Add(asql);
  active:=true;
  first;
  while not eof do
  begin
  hj:=hj+FieldValues['实收'];
  next;
  end;
  active:=false;
  StatusBar1.Panels.Items[1].Text:='今天日期： '+datetostr(date) + ',操作员：'+G_username+',应交款：'+inttostr(hj)+'元!';
 end;

end;

with dm.aq_jl do
 begin
  close;
  sql.Clear;
  if G_flag=0 then
   begin
   asql:='select * from 消费记录 order by id desc';
   end
  else
   begin
   asql:='select * from 消费记录 where 操作员='''+G_username+''' order by id desc';
   end;
  sql.Add(asql);
  try
  open;
  except
  end;
  DBGrid1.Columns[0].Width:=60;
  DBGrid1.Columns[1].Width:=60;
  DBGrid1.Columns[2].Width:=60;
  DBGrid1.Columns[3].Width:=120;
  DBGrid1.Columns[4].Width:=120;
  DBGrid1.Columns[5].Width:=120;
  DBGrid1.Columns.Items[0].FieldName :='应收';
  DBGrid1.Columns.Items[1].FieldName :='优惠';
  DBGrid1.Columns.Items[2].FieldName :='实收';
  DBGrid1.Columns.Items[3].FieldName :='会员名称';
  DBGrid1.Columns.Items[4].FieldName :='操作员';
  DBGrid1.Columns.Items[5].FieldName :='操作时间';
  StatusBar1.Panels.Items[0].Text:='共有 '+inttostr(RecordCount) + ' 条记录';
 end;
end;

procedure Tsjform.Button2Click(Sender: TObject);
var
G_sjid,asql:string;
begin
with dm.aq_jl do
 begin
  if RecordCount>0 then
   begin
     if application.MessageBox('是否真的删除?', '明宇提示', 4) = 6 then
     try
     G_sjid:=DBGrid1.DataSource.DataSet.FieldByName('id').asstring;
     close;
     sql.Clear;
     sql.Add('delete from 消费记录 where id='+G_sjid);
     //Parameters.ParamByName('G_sjid').Value:=G_sjid
     execsql;
     active:=false;
     Application.MessageBox('记录删除成功！', '明宇提示', Mb_Ok or Mb_IconInformation);
     except
       Application.MessageBox('记录删除失败！', '提示', Mb_Ok or Mb_IconStop);
     end;
   end;
   close;
   sql.Clear;
   if G_flag=0 then
   begin
   asql:='select * from 消费记录 order by id desc';
   end
  else
   begin
   asql:='select * from 消费记录 where 操作员='''+G_username+''' order by id desc';
   end;
   sql.Add(asql);
   active:=true;
   StatusBar1.Panels.Items[0].Text:='共有 '+IntToStr(RecordCount) + ' 条信息';
 end;
end;

procedure Tsjform.Button1Click(Sender: TObject);
begin
with dm.aq_jl do
 begin
 close;
 sql.Clear;
 sql.Add('select * from 消费记录 where 操作员 like ''%'+keyword.Text+'%'' order by id desc');
 active:=true;
 try
 open;
 except
 end;
 StatusBar1.Panels.Items[0].Text:='共有 '+IntToStr(RecordCount) + ' 条信息';
 end;

end;

end.