tcjxzunit.pas

工资管理系统

unit TcjXzUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons;

type
  TTcjXz = class(TForm)
    ListBox1: TListBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    ListBox2: TListBox;
    SpeedButton1: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TcjXz: TTcjXz;

implementation

uses gzdata, DataTUnit, PassWordUnit, PrintShowUnit, ZhiChengPrintUnit,
  TcjPrintunit;
{$R *.DFM}

procedure TTcjXz.BitBtn3Click(Sender: TObject);
begin
data.query1.close;
close;
end;

procedure TTcjXz.FormShow(Sender: TObject);
begin
  listbox2.Items.Clear;
  listbox1.Items.Clear;
  
  with datat.BmTable2 do
  begin
    open;
    first;
    while not eof do
    begin
       listbox2.Items.Add(datat.bmtable2.Fields[0].AsString+datat.bmtable2.Fields[1].AsString);
       next;
    end;
  end;
end;

procedure TTcjXz.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;

procedure TTcjXz.SpeedButton1Click(Sender: TObject);
var ll,ddd:string;
    i:integer;
begin
if listbox1.Items.Count<=0 then
abort;
if printshowform=nil then
Application.CreateForm(TPrintShowForm, PrintShowForm);
//kk:=0;
ddd:='';
ddd:=password.maskedit1.text+'-'+inttostr(strtoint(password.edit4.text));
IF  (application.messagebox(pchar('您所选择的打印数据是:  '+ddd+'月,正确吗?'),'消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
     =idcancel) then  abort;
data.Query1.DisableControls;

  data.Query1.Close;
  PrintShowForm.Show;
  PrintShowForm.Label1.Caption:='正在处理数据请稍候...';
  printshowForm.Label1.Update;
  PrintShowForm.Update;
  Application.CreateForm(Ttcjprint,tcjprint);
 with data.Query1.SQL do
   begin
//    ll:='';
//    mm:='';
    ll:=copy(listbox1.Items[0],1,5);
//    mm:=listbox1.Items[0];
    PrintShowForm.Label1.Caption:='正在处理数据请稍候...';
    printshowForm.Label1.Update;
    clear;
    add('select * from lyk.dbf');
    add('where riqi='''+ddd+'''');
      for i:=0 to listbox2.Items.Count-1 do
        begin
          try
            add('and bmno <> +'''+copy(listbox2.Items[i],1,5)+'''');
          except
             ShowMessage('sdfsdfsdfsd');
          end;
         end;

  end;

     data.Query1.Open;

     if data.query1.isempty then
     begin
       ddd:=ddd+'数据不存在,请重新选择日期或者重新生成本月数据!!!';
       printshowform.Hide;
       application.messagebox(pchar(ddd),'消息框',mb_ok+mb_iconinformation);
       data.Query1.Close;
       abort;
     end;//判断数据是否存在

     PrintShowForm.hide;
     tcjprint.QuickRep1.Preview;

     tcjprint.Hide;
     tcjprint.release;
     data.Query1.EnableControls;
end;

procedure TTcjXz.SpeedButton6Click(Sender: TObject);
var i:integer;
begin
try
      ListBox1.Items.Add(listbox2.Items[listbox2.ItemIndex]);
      //listbox1.Items.Delete(listbox1.itemindex);
      listbox2.SetFocus;
      listbox2.Update;
     // ShowMessage(IntToStr(listbox1.ItemIndex));
      i:=listbox2.ItemIndex;
      listbox2.Items.Delete(listbox2.itemindex);
      listbox2.ItemIndex:=i;

except
MessageBox(Handle,'请选择部门(单击部门列表再选择)',pchar(caption),Mb_iconstop+Mb_ok);
end;

end;

procedure TTcjXz.SpeedButton7Click(Sender: TObject);
begin
try
      ListBox2.Items.Add(listbox1.Items[listbox1.ItemIndex]);
      listbox1.Items.Delete(listbox1.itemindex);
      listbox1.SetFocus;
except
MessageBox(Handle,'请选择部门(单击部门列表再选择)',pchar(caption),Mb_iconstop+Mb_ok);
end;
end;

procedure TTcjXz.SpeedButton8Click(Sender: TObject);
var i:integer;
begin
try
   for i:=0 to listbox2.Items.Count do
     begin
      ListBox1.Items.Add(listbox2.Items[i]);
     end;
except
end;
      try
      listbox2.Items.Clear;
      except
      end;
end;

procedure TTcjXz.SpeedButton9Click(Sender: TObject);
var i:integer;
begin
try
   for i:=0 to listbox1.Items.Count do
     begin
      ListBox2.Items.Add(listbox1.Items[i]);
     end;
  except
end;
  try
      listbox1.Items.Clear;
    except
  end;
end;


procedure TTcjXz.SpeedButton2Click(Sender: TObject);
begin
 Close;
end;

end.