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(cast(datediff(minute,fbegintime,fendtime) as money)/60) from ';
  if combobox8.Text = '班级' then
    sql := 'select d.Fname,sum(cast(datediff(minute,fbegintime,fendtime) as money)/60) from ';
  if combobox8.Text = '课程' then
    sql := 'select fKCname,sum(cast(datediff(minute,fbegintime,fendtime) as money)/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.