main.~pas

一个工具管理系统。。用DELPHI+ACCESS写的

          DBComboBoxEh7.Items.Add(trim(fieldbyname('名称').text));
          Next;
        end;
      end;
      //****************************************************************
end;

procedure TFM_Main.BookChange;
begin
  case book.ActivePageIndex of
  0:begin
    end;
  1:begin
      xindan:=true;
      with FM_Data.ADO_Note do
      begin
        SQL.Clear;
        SQL.Add('select * from [nnote] where id=0');
        Open;
      end;

      with FM_Data.ADO_Type do
      begin
        //添加 领用单位
        SQL.Clear;
        SQL.Add('select 名称 from [type] where 类别=''领用单位''');
        Open;
        First;
        DBComboBoxEh1.Items.Clear;
        if not IsEmpty then
        while not Eof do
        begin
          DBComboBoxEh1.Items.Add(trim(fieldbyname('名称').text));
          Next;
        end;
        //添加 井号
        SQL.Clear;
        SQL.Add('select 名称 from [type] where 类别=''井号''');
        Open;
        First;
        DBComboBoxEh2.Items.Clear;
        if not IsEmpty then
        while not Eof do
        begin
          DBComboBoxEh2.Items.Add(trim(fieldbyname('名称').text));
          Next;
        end;
        //添加 拉运车号
        SQL.Clear;
        SQL.Add('select 名称 from [type] where 类别=''拉运车号''');
        Open;
        First;
        DBComboBoxEh3.Items.Clear;
        if not IsEmpty then
        while not Eof do
        begin
          DBComboBoxEh3.Items.Add(trim(fieldbyname('名称').text));
          Next;
        end;
        //添加 司机
        SQL.Clear;
        SQL.Add('select 名称 from [type] where 类别=''司机''');
        Open;
        First;
        DBComboBoxEh4.Items.Clear;
        if not IsEmpty then
        while not Eof do
        begin
          DBComboBoxEh4.Items.Add(trim(fieldbyname('名称').text));
          Next;
        end;
        //添加 收款单位
        SQL.Clear;
        SQL.Add('select 名称 from [type] where 类别=''收款单位''');
        Open;
        First;
        DBComboBoxEh5.Items.Clear;
        if not IsEmpty then
        while not Eof do
        begin
          DBComboBoxEh5.Items.Add(trim(fieldbyname('名称').text));
          Next;
        end;
        //添加 制单
        SQL.Clear;
        SQL.Add('select 名称 from [type] where 类别=''制单''');
        Open;
        First;
        DBComboBoxEh6.Items.Clear;
        if not IsEmpty then
        while not Eof do
        begin
          DBComboBoxEh6.Items.Add(trim(fieldbyname('名称').text));
          Next;
        end;
        //添加 保管员
        SQL.Clear;
        SQL.Add('select 名称 from [type] where 类别=''保管员''');
        Open;
        First;
        DBComboBoxEh7.Items.Clear;
        if not IsEmpty then
        while not Eof do
        begin
          DBComboBoxEh7.Items.Add(trim(fieldbyname('名称').text));
          Next;
        end;
      end;
    end;  //case 1 end
  2:begin
      with FM_Data.ADO_PubTable do
      begin
        //添加领用单位
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''领用单位''');
        Open;
        First;
        TreeView1.Items.Clear;
        while not Eof do
        begin
          TreeView1.Items.Add(TreeView1.TopItem,trim(fieldbyname('名称').Text));
          Next;
        end;
        //添加 井号
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''井号''');
        Open;
        First;
        TreeView2.Items.Clear;
        while not Eof do
        begin
          TreeView2.Items.Add(TreeView2.TopItem,trim(fieldbyname('名称').Text));
          Next;
        end;
        //添加拉运车号
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''拉运车号''');
        Open;
        First;
        TreeView3.Items.Clear;
        while not Eof do
        begin
          TreeView3.Items.Add(TreeView3.TopItem,trim(fieldbyname('名称').Text));
          Next;
        end;
        //添加 司机
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''司机''');
        Open;
        First;
        TreeView4.Items.Clear;
        while not Eof do
        begin
          TreeView4.Items.Add(TreeView4.TopItem,trim(fieldbyname('名称').Text));
          Next;
        end;
        //添加收款单位
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''收款单位''');
        Open;
        First;
        TreeView5.Items.Clear;
        while not Eof do
        begin
          TreeView5.Items.Add(TreeView5.TopItem,trim(fieldbyname('名称').Text));
          Next;
        end;
        //添加 制单
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''制单''');
        Open;
        First;
        TreeView6.Items.Clear;
        while not Eof do
        begin
          TreeView6.Items.Add(TreeView6.TopItem,trim(fieldbyname('名称').Text));
          Next;
        end;
        //添加  保管员
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''保管员''');
        Open;
        First;
        TreeView7.Items.Clear;
        while not Eof do
        begin
          TreeView7.Items.Add(TreeView7.TopItem,trim(fieldbyname('名称').Text));
          Next;
        end;
      end;
    end;
  end; //case end



end;

procedure TFM_Main.FormShow(Sender: TObject);
begin
  FM_Login.ShowModal;
  StatusBar1.Panels[1].Text:='日期:'+ShowDate;
  book.ActivePageIndex:=0;
end;

function TFM_Main.ShowDate: string;
var
  s,ss:string;
  yy,mm,dd:word;
begin
  DecodeDate(Date,yy,mm,dd);  //分解日期为年月日
  s:=inttostr(yy)+'年'+inttostr(mm)+'月'+inttostr(dd)+'日'; //转换日期字符串
  //获取星期字符串
  case DayOfWeek(Date) of
    7: ss:='星期六' ;
    1: ss:='星期日';
    2: ss:='星期一';
    3: ss:='星期二';
    4: ss:='星期三';
    5: ss:='星期四';
    6: ss:='星期五';
  end;
  Result:=s+'  '+ss;

end;

procedure TFM_Main.N6Click(Sender: TObject);
begin
  FM_EditPass.ShowModal;
end;

procedure TFM_Main.N7Click(Sender: TObject);
begin
  FM_Login.ShowModal;
end;

procedure TFM_Main.ToolButton3Click(Sender: TObject);
begin
  book.ActivePageIndex:=2;
  BookChange;
end;

procedure TFM_Main.TreeView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown:=1;
end;

procedure TFM_Main.TreeView2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown:=2;
end;

procedure TFM_Main.TreeView3MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown:=3;
end;

procedure TFM_Main.TreeView4MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown:=4;
end;

procedure TFM_Main.TreeView5MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown:=5;
end;

procedure TFM_Main.TreeView6MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown:=6;
end;

procedure TFM_Main.TreeView7MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown:=7;
end;

procedure TFM_Main.N19Click(Sender: TObject);
begin

  case MouseDown of
    1:with FM_Data.ADO_Type do
      begin
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''领用单位'' and [名称]='''+TreeView1.Selected.Text+'''' );
        Open;
        delete;
        TreeView1.Selected.Delete;
      end;
    2:with FM_Data.ADO_Type do
      begin
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''井号'' and [名称]='''+TreeView2.Selected.Text+'''' );
        Open;
        delete;
        TreeView2.Selected.Delete;
      end;
    3:with FM_Data.ADO_Type do
      begin
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''拉运车号'' and [名称]='''+TreeView3.Selected.Text+'''' );
        Open;
        delete;
        TreeView3.Selected.Delete;
      end;
    4:with FM_Data.ADO_Type do
      begin
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''司机'' and [名称]='''+TreeView4.Selected.Text+'''' );
        Open;
        delete;
        TreeView4.Selected.Delete;
      end;
    5:with FM_Data.ADO_Type do
      begin
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''收款单位'' and [名称]='''+TreeView5.Selected.Text+'''' );
        Open;
        delete;
        TreeView5.Selected.Delete;
      end;
    6:with FM_Data.ADO_Type do
      begin
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''制单'' and [名称]='''+TreeView6.Selected.Text+'''' );
        Open;
        delete;
        TreeView6.Selected.Delete;
      end;
    7:with FM_Data.ADO_Type do
      begin
        SQL.Clear;
        SQL.Add('select * from [type] where [类别]=''保管员'' and [名称]='''+TreeView7.Selected.Text+'''' );
        Open;
        delete;
        TreeView7.Selected.Delete;
      end;
  end;


end;

procedure TFM_Main.SpeedButton2Click(Sender: TObject);
begin
  Panel4.Visible:=False;
  Panel5.Visible:=False;
end;

procedure TFM_Main.N18Click(Sender: TObject);
begin
  Panel4.Visible:=True;
  Panel5.Visible:=True;
  Edit1.SetFocus;
end;

procedure TFM_Main.SpeedButton1Click(Sender: TObject);
begin
  if trim(Edit1.Text)='' then
  begin
    showmessage('名称不能为空！');
    Edit1.SetFocus;
    Abort;
  end;
  with FM_Data.ADO_Type do
  begin
    SQL.Clear;
    SQL.Add('select * from [type]');
    Open;
  end;
  case MouseDown of
   1 : with FM_Data.ADO_Type do
       begin
         Insert;
         FieldByName('名称').Text:=trim(Edit1.Text);
         FieldByName('类别').Text:='领用单位';
         Post;
         TreeView1.Items.Add(TreeView1.TopItem,trim(edit1.Text ))

       end;
    2: with FM_Data.ADO_Type do
       begin
         Insert;
         FieldByName('名称').Text:=trim(Edit1.Text);
         FieldByName('类别').Text:='井号';
         Post;
         TreeView2.Items.Add(TreeView2.TopItem,trim(edit1.Text ))

       end;
    3: with FM_Data.ADO_Type do
       begin
         Insert;
         FieldByName('名称').Text:=trim(Edit1.Text);
         FieldByName('类别').Text:='拉运车号';
         Post;
         TreeView3.Items.Add(TreeView3.TopItem,trim(edit1.Text ))

       end;
    4: with FM_Data.ADO_Type do
       begin
         Insert;
         FieldByName('名称').Text:=trim(Edit1.Text);
         FieldByName('类别').Text:='司机';
         Post;
         TreeView4.Items.Add(TreeView4.TopItem,trim(edit1.Text ))

       end;
    5: with FM_Data.ADO_Type do
       begin
         Insert;
         FieldByName('名称').Text:=trim(Edit1.Text);
         FieldByName('类别').Text:='收款单位';
         Post;
         TreeView5.Items.Add(TreeView5.TopItem,trim(edit1.Text ))

       end;
    6: with FM_Data.ADO_Type do
       begin
         Insert;
         FieldByName('名称').Text:=trim(Edit1.Text);
         FieldByName('类别').Text:='制单';
         Post;
         TreeView6.Items.Add(TreeView6.TopItem,trim(edit1.Text ))

       end;
    7: with FM_Data.ADO_Type do
       begin
         Insert;
         FieldByName('名称').Text:=trim(Edit1.Text);
         FieldByName('类别').Text:='保管员';
         Post;
         TreeView7.Items.Add(TreeView7.TopItem,trim(edit1.Text ))

       end;
  end;   // case end
  Panel4.Visible:=False;
  Panel5.Visible:=False;
end;

procedure TFM_Main.ToolButton5Click(Sender: TObject);
begin
  FM_EditPass.ShowModal;
end;

end.