hetongdata.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 287 行

unit hetongdata;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Db, ADODB, DBCtrls, ExtCtrls, ImgList, ToolWin,
  ComCtrls, Menus, Mask, wwdblook, Buttons;

type
  Tfromhetongdata = class(TForm)
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    Panel1: TPanel;
    Label2: TLabel;
    Label1: TLabel;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    PopupMenu1: TPopupMenu;
    ADOCommand1: TADOCommand;
    Label3: TLabel;
    Label4: TLabel;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ImageList2: TImageList;
    DBNavigator2: TDBNavigator;
    ADOQuery5procno: TStringField;
    ADOQuery5procname: TStringField;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Edit1: TEdit;
    ADOQuery5guige: TStringField;
    lable1: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ADODataSet1: TADODataSet;
    ADODataSet1SetNo: TStringField;
    ADODataSet1procno: TStringField;
    ADODataSet1procname: TStringField;
    ADODataSet1Rq: TStringField;
    ADODataSet1BillNO: TStringField;
    ADODataSet1Unit: TStringField;
    ADODataSet1Prices: TBCDField;
    DataSource1: TDataSource;
    ADOTemp: TADODataSet;
    DBGrid1: TDBGrid;
    DataSource3: TDataSource;
    ADOpie_procno: TADODataSet;
    ADOpie_procnoprocno: TStringField;
    ADOpie_procnoprocname: TStringField;
    ADOpie_procnounit: TStringField;
    ADOpie_procnoprice: TBCDField;
    Button1: TButton;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    DataSource2: TDataSource;
    Edit2: TEdit;
    ADOQuery7: TADOQuery;
    ADOQuery8: TADOQuery;
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid2TitleClick(Column: TColumn);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton3Click(Sender: TObject);
    procedure ADODataSet1BeforeDelete(DataSet: TDataSet);
    procedure PageControl1Change(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure Edit1Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
  private
    { Private declarations }
    f:string;
  public
    { Public declarations }
  end;

var
  fromhetongdata: Tfromhetongdata;
  Temp1,Temp2,Temp3,Temp4:string;
implementation
uses datamol,publicfunction,main, reportforpiece, canfind,cvcode;
{$R *.DFM}


procedure Tfromhetongdata.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=VK_F1 then
      begin
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0078');
    end;
end;

procedure Tfromhetongdata.FormCreate(Sender: TObject);
begin
  adopie_procno.open;
  panel2.Visible:=false;
  DBNavigator2.DataSource:=datasource3;
  edit1.Text:='';
  combobox1.Text:='';

end;
procedure Tfromhetongdata.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  adopie_procno.close;
  action:=cafree;
  fromhetongdata:=nil;
end;

procedure Tfromhetongdata.DBGrid2TitleClick(Column: TColumn);
begin
  if f='DESC' then
     f:='ASC'
   else
     f:='DESC';
    ADOpie_procno.Sort :=column.FieldName+' '+f;
end;

procedure Tfromhetongdata.ToolButton1Click(Sender: TObject);
begin
close;
end;

procedure Tfromhetongdata.ToolButton2Click(Sender: TObject);
begin
   ADOpie_procno.close;
   ADOpie_procno.CommandText:='select * from pie03010' ;
   ADOpie_procno.open;
end;

procedure Tfromhetongdata.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (activecontrol=dbgrid1)  then exit;
  if key=#13 then
  begin
    selectnext(activecontrol,true,true);
    key:=#0;
  end;

end;
procedure Tfromhetongdata.ToolButton3Click(Sender: TObject);
begin
  if assigned(formcanfind) then  formcanfind.close;
  //(sender as Tpagecontrol).activepage.highlighted:=true;
  case pagecontrol1.activepageindex of
    0:findrecorder(Adopie_procno,'Adopie_procno','pie03010');
  end;  
end;
procedure Tfromhetongdata.ADODataSet1BeforeDelete(DataSet: TDataSet);
begin
    if application.MessageBox(pchar('删除此条数据会注销计件资料录入中的相同数据，是否删除？'),'齐协公司提示',MB_OKCANCEL+MB_ICONWARNING)=IDCANCEL then
       abort;
end;

procedure Tfromhetongdata.PageControl1Change(Sender: TObject);
begin
   (sender as Tpagecontrol).activepage.highlighted:=true;
   case pagecontrol1.activepageindex of
     0:DBNavigator2.DataSource:=datasource3;
   end;
end;

procedure Tfromhetongdata.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  dbgrid_keypress(sender,key);
end;

procedure Tfromhetongdata.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  (sender as Tpagecontrol).activepage.highlighted:=false;
end;

procedure Tfromhetongdata.DBGrid1TitleClick(Column: TColumn);
begin
  if f='DESC' THEN
   f:='ASC'
   else
   f:='DESC';
  ADOpie_procno.sort:=column.fieldname+' '+f;
end;

procedure Tfromhetongdata.Edit1Exit(Sender: TObject);
begin
  if trim(Edit1.text)<>'' then
    begin
      ADOpie_procno.Close;
      ADOpie_procno.CommandText:='select *  from pie03010  where procno='''+trim(edit1.text)+''' ';
      ADOpie_procno.Open;
    end;

end;

procedure Tfromhetongdata.Button1Click(Sender: TObject);
begin
 edit2.text:='';
 adoquery7.Close;
 adoquery7.SQL.Clear;
 adoquery7.sql.add('select * from pie03010js');
 adoquery7.open;
 panel2.Visible:=true;
end;

procedure Tfromhetongdata.SpeedButton1Click(Sender: TObject);
begin
 panel2.Visible:=false;
end;

procedure Tfromhetongdata.BitBtn2Click(Sender: TObject);
begin
 panel2.Visible:=false;
end;

procedure Tfromhetongdata.BitBtn1Click(Sender: TObject);
begin
 adoquery8.Close;
 adoquery8.SQL.Clear;
 adoquery7.Close;
 adoquery7.SQL.Clear;
 adoquery7.sql.Add('select * from pie03010js where monthy='''+combobox1.text+'''');
 //adodataset2.commandtext:='select * from pie03010js where monthy='''+combobox1.text+'''';
 adoquery7.open;
 if adoquery7.Eof then
 begin
  // adodataset2.close;
 //if not adodataset2.Locate('monthy',combobox1.text,[])then
   adoquery8.SQL.Add('insert into pie03010js (monthy,price) values('''+combobox1.text+''','''+edit2.text+''')');
 end
 else
 begin
   //adodataset2.close;
   adoquery8.SQL.Add('update pie03010js set price='''+edit2.text+''' where monthy='''+combobox1.text+'''');
 end;
  adoquery8.ExecSQL;
end;

procedure Tfromhetongdata.DBComboBox1Change(Sender: TObject);
begin
 adoquery8.Locate('monthy',combobox1.text,[]);
 adoquery8.Edit;
end;

procedure Tfromhetongdata.ComboBox1Change(Sender: TObject);
begin
 adoquery8.Close;
 adoquery8.SQL.clear;
 adoquery8.SQL.add('select * from pie03010js');
 adoquery8.Open;
 if adoquery8.Locate('monthy',combobox1.text,[]) then
  edit2.text:=floattostr(adoquery8.FieldByName('price').asfloat)
 else
  edit2.text:=''; 
end;

procedure Tfromhetongdata.Edit2Exit(Sender: TObject);
begin
 if trim(edit2.text)='' then
  edit2.text:='0';
end;

end.