kchz.~pas

delphi6.0版本的主要用于学样、网吧的计费系统的源码

unit KCHZ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, CheckLst, ExtCtrls, Grids, DB, ADODB, Menus,
  ImgList;

type
  TKCHZForm = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label4: TLabel;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    ComboBox2: TComboBox;
    Label5: TLabel;
    ComboBox6: TComboBox;
    Label7: TLabel;
    ComboBox4: TComboBox;
    ComboBox7: TComboBox;
    Label8: TLabel;
    ComboBox1: TComboBox;
    ComboBox3: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    ComboBox5: TComboBox;
    StatusBar1: TStatusBar;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    ImageList2: TImageList;
    Label1: TLabel;
    ComboBox8: TComboBox;
    Button3: TButton;
    SaveDialog1: TSaveDialog;
    procedure FormShow(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure Button2Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure ComboBox8Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KCHZForm: TKCHZForm;

implementation

uses datamodule, ModiMX, KCGL;

{$R *.dfm}

procedure TKCHZForm.FormShow(Sender: TObject);
var
 query:Tadoquery;
 sql:string;
 i:integer;
 temp:string;
begin

  datetimepicker1.Date:=date;
  datetimepicker3.Date:=date+1;

  datetimepicker2.Time:=strtotime('00:00:00');
  datetimepicker4.Time:=strtotime('00:00:00');



  for i:=0 to stringgrid1.RowCount-1 do
  stringgrid1.Rows[i].Clear;

  stringgrid1.cells[1,0]:='实验课机时（小时）';


 query:=Tadoquery.Create(self);
 query.Connection:=dmfm.ADOConnection;
 sql:='select * from Tkc ';
 query.close;
 query.SQL.text:=sql;
 query.open;
 combobox5.Clear;
 combobox5.Items.Add('');
 while not query.Eof do
  begin
   combobox5.Items.Add(trim(query.fieldbyname('Fname').asstring));
   query.Next;
  end;
  
 sql:='select * from Tteach ';
 query.close;
 query.SQL.text:=sql;
 query.open;
 combobox2.Clear;
 combobox2.Items.Add('');
 combobox6.Clear;
 combobox6.Items.Add('');
 while not query.Eof do
  begin
   combobox2.Items.Add(trim(query.fieldbyname('Fname').asstring));
   combobox6.Items.Add(trim(query.fieldbyname('Fnum').asstring));
   query.Next;
  end;

 sql:='select * from TBJ ';
 query.close;
 query.SQL.text:=sql;
 query.open;
 combobox4.Clear;
 combobox4.Items.Add('');
 combobox7.Clear;
 combobox7.Items.Add('');
 while not query.Eof do
  begin
   combobox4.Items.Add(trim(query.fieldbyname('Fname').asstring));
   combobox7.Items.Add(trim(query.fieldbyname('ID').asstring));
   query.Next;
  end;

 sql:='select * from TJfinfo ';
 query.close;
 query.SQL.text:=sql;
 query.open;
 combobox1.Clear;
 combobox1.Items.Add('');
 combobox3.Clear;
 combobox3.Items.Add('');
 while not query.Eof do
  begin
   combobox3.Items.Add(trim(query.fieldbyname('fnum').asstring));
   combobox1.Items.Add(trim(query.fieldbyname('fname').asstring));
   query.Next;
  end;
end;

procedure TKCHZForm.ComboBox4Change(Sender: TObject);
begin
combobox7.ItemIndex:=combobox4.itemindex;

end;

procedure TKCHZForm.ComboBox2Change(Sender: TObject);
begin
combobox6.ItemIndex:=combobox2.itemindex;
end;

procedure TKCHZForm.ComboBox1Change(Sender: TObject);
begin
combobox3.ItemIndex:=combobox1.itemindex;

end;

procedure TKCHZForm.Button1Click(Sender: TObject);
var
 i,row:integer;
 sql:string;
 query:Tadoquery;
 HJ:Currency;
begin
  if combobox8.Text='' then
   begin
    messagebox(handle,'统计依据不能为空','提示',mb_iconwarning);
    combobox8.SetFocus;
    exit;
   end;

  for i:=1 to stringgrid1.RowCount-1 do
  stringgrid1.Rows[i].Clear;

  query:=Tadoquery.Create(self);
  query.Connection:=dmfm.ADOConnection;
  sql:='';
  if combobox8.Text='教师' then
   sql:='select c.Fname,sum(datediff(minute,fbegintime,fendtime)/60) from ';
  if combobox8.Text='班级' then
   sql:='select d.Fname,sum(datediff(minute,fbegintime,fendtime)/60) from ';
  if combobox8.Text='课程' then
   sql:='select fKCname,sum(datediff(minute,fbegintime,fendtime)/60) from ';

    sql:=sql+ format('   (select a.*,b.Fname from Tkcapmx as a left join Tteach as b on a.fjsnum=b.fnum )as c '+
               ' left join '+
               ' TBJ as d  '+
               ' on c.fbjid=d.id '+
               ' where fbegintime>=''%s'' and fbegintime<=''%s'' ',
               [datetostr(datetimepicker1.Date)+' '+timetostr(datetimepicker2.Time),
                datetostr(datetimepicker3.Date)+' '+timetostr(datetimepicker4.Time)]);

    if combobox5.text<>'' then
     sql:=sql+' and fkcname='''+combobox5.text+'''';

    if combobox4.text<>'' then
     sql:=sql+' and fbjID='+combobox7.text;

    if combobox2.Text<>'' then
     sql:=sql+' and fjsnum='+combobox6.text;

    if combobox1.Text<>'' then
     sql:=sql+' and fjfnum+'','' like '+'''%'''''+combobox3.text+''''',%''';

  if combobox8.Text='教师' then
   sql:=sql+'group by c.Fname';
  if combobox8.Text='班级' then
   sql:=sql+'group by d.Fname';
  if combobox8.Text='课程' then
   sql:=sql+'group by fKCname ';



   query.close;
   query.sql.text:=sql;
   query.Open;

  if query.IsEmpty then
   Stringgrid1.RowCount:=2
  else
   Stringgrid1.RowCount:=query.RecordCount+2;

  row:=1;
  HJ:=0;
  self.StatusBar1.Panels[0].Text:='共查询到 '+inttostr(query.RecordCount)+' 条记录';
  while not query.Eof do
  begin
   stringgrid1.Cells[0,row]:=query.Fields[0].AsString;
   stringgrid1.Cells[1,row]:=formatfloat('0.00',query.Fields[1].value);
   HJ:=HJ+query.Fields[1].Value;
   query.Next;
   row:=row+1;
  end;

  stringgrid1.Cells[0,row]:='总计';
  stringgrid1.Cells[1,row]:=formatfloat('0.00',HJ);


  query.Destroy;
end;

procedure TKCHZForm.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
 x,y:integer;
begin
   stringgrid1.Canvas.FillRect(rect);
   x:=stringgrid1.Canvas.TextWidth(stringgrid1.cells[acol,arow]);
   y:=stringgrid1.Canvas.TextHeight(stringgrid1.cells[acol,arow]);
   stringgrid1.Canvas.TextOut(rect.left+2,rect.top+stringgrid1.rowheights[0] div 2- y div 2,stringgrid1.cells[acol,arow]);

 if (arow=0) then
  begin
   stringgrid1.Canvas.font.Name:='宋体';
   stringgrid1.Canvas.font.Size:=9;
   stringgrid1.Canvas.FillRect(rect);
   x:=stringgrid1.Canvas.TextWidth(stringgrid1.cells[acol,arow]);
   y:=stringgrid1.Canvas.TextHeight(stringgrid1.cells[acol,arow]);
   stringgrid1.Canvas.TextOut(rect.left+stringgrid1.ColWidths[acol] div 2-x div 2,rect.top+stringgrid1.rowheights[0] div 2- y div 2,stringgrid1.cells[acol,arow]);
   exit;
  end;

    if arow=stringgrid1.row then
  begin
    stringgrid1.Canvas.Brush.Color:=clblue;
    stringgrid1.Canvas.FillRect(rect);
    stringgrid1.Canvas.font.Name:='宋体';
    stringgrid1.Canvas.font.Color:=clwhite;
    stringgrid1.Canvas.font.Size:=9;
    stringgrid1.Canvas.Font.Style:=[fsBold];
    stringgrid1.Canvas.FillRect(rect);
    x:=stringgrid1.Canvas.TextWidth(stringgrid1.cells[acol,arow]);
    y:=stringgrid1.Canvas.TextHeight(stringgrid1.cells[acol,arow]);
    stringgrid1.Canvas.TextOut(rect.left+2,rect.top+stringgrid1.rowheights[0] div 2- y div 2,stringgrid1.cells[acol,arow]);
  end;

end;

procedure TKCHZForm.Button2Click(Sender: TObject);
begin
close;
end;

procedure TKCHZForm.N23Click(Sender: TObject);
begin
button1.click;
end;

procedure TKCHZForm.ComboBox8Change(Sender: TObject);
begin
stringgrid1.Cells[0,0]:=combobox8.Text;
end;

procedure TKCHZForm.Button3Click(Sender: TObject);
var
 Myfile:TextFile;
 i:integer;
begin
 if savedialog1.Execute then
 begin
  AssignFile(Myfile, SaveDialog1.FileName);
  Rewrite(Myfile);
  for i:=0 to StringGrid1.RowCount-1 do
    Writeln(Myfile,StringGrid1.cells[0,i]+#9+Stringgrid1.cells[1,i]+#9);
  CloseFile(Myfile);
 end;
end;

end.